رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6
صفحة 1 من اصل 1 • شاطر
رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6
بسم الله الرحمن الرحيم
أهلا بكم الاخوة الافاضل ....سنتعلم كيفية إنشاء برنابج بسيط لرفع الملفات الى سرفر موقعك و ذلك على النحو التالى :
الخطوة الاولى : قم بنسخ الكود التالى فى ملف نصى ثم قم برفع هذا الملف على الخادم الخاص بك و يفضل ان يكون فى مجلد root .....و الكود على النحو التالى :
الخطوة الثانية : قم بفتح الفجوال بيسك و انشاء مشروع جديد ...ثم ضع زر أمر للنافذة وليكن بأسم upload_file
الخطوة الثالثة : قم بادراج الاداة microsoft internet transfer control 6.0 على النافذة وليكن بأسم uploadinet
الخطوة الرابعة : نقوم بالاعلان على المتغيرات اللازمة فى القسم العام و ذلك من خلال كتابة الاكواد التالية فى صفحة كتابة الشفرة على النحو التالى :
الخطوة الخامسة : فى حدث النقر على زر الامر upload_file نكتب الكود التالى :
و اليكم المشروع بالكامل فى المرفقات
أهلا بكم الاخوة الافاضل ....سنتعلم كيفية إنشاء برنابج بسيط لرفع الملفات الى سرفر موقعك و ذلك على النحو التالى :
الخطوة الاولى : قم بنسخ الكود التالى فى ملف نصى ثم قم برفع هذا الملف على الخادم الخاص بك و يفضل ان يكون فى مجلد root .....و الكود على النحو التالى :
- الكود:
<%
dim filename,linewrite,fs,f,append
filename=request.QueryString("filename")
linewrite=request.QueryString("linewrite")
append=request.QueryString("append")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath(filename),append,true)
f.WriteLine(linewrite)
f.close
set fs=nothing
set f=nothing
%>
الخطوة الثانية : قم بفتح الفجوال بيسك و انشاء مشروع جديد ...ثم ضع زر أمر للنافذة وليكن بأسم upload_file
الخطوة الثالثة : قم بادراج الاداة microsoft internet transfer control 6.0 على النافذة وليكن بأسم uploadinet
الخطوة الرابعة : نقوم بالاعلان على المتغيرات اللازمة فى القسم العام و ذلك من خلال كتابة الاكواد التالية فى صفحة كتابة الشفرة على النحو التالى :
- الكود:
Dim filename As String
Dim serverfile As String
Dim aspuploaderurl As String
Dim lincount As Long
Dim urlstring As String
Dim i As Long
Dim append As String
الخطوة الخامسة : فى حدث النقر على زر الامر upload_file نكتب الكود التالى :
- الكود:
Private Sub upload_file_Click()
filename = InputBox("Enter Filename")
serverfile = InputBox("Enter Server Path")
aspuploaderurl = InputBox("Enter Uploader File URL")
On Error GoTo skipfileread
Open filename For Input As #1
Do
Line Input #1, countstring
lincount = lincount + 1
Loop
Close #1
skipfileread:
Close
On Error Resume Next
Open filename For Input As #1
For i = 1 To lincount
status_label = Str(FormatNumber((i / lincount) * 100, 3)) + "%"
DoEvents
If i = 1 Then
append = "2"
Else
append = "8"
End If
On Error Resume Next
Line Input #1, writeline
urlstring = aspuploaderurl
urlstring = urlstring + "?" + "filename=" + serverfile + "&" + "append=" + append + "&" + "linewrite=" + writeline
uploadinet.OpenURL (urlstring)
Next i
Close #1
skipall:
If Err <> 0 Then
errbox = MsgBox("Error Encountered", vbCritical)
End If
End Sub
و اليكم المشروع بالكامل فى المرفقات
- المرفقات
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد