رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6

مُساهمة من طرف NEXT في الخميس يوليو 11, 2013 9:03 pm

بسم الله الرحمن الرحيم

أهلا بكم الاخوة الافاضل ....سنتعلم كيفية إنشاء برنابج بسيط لرفع الملفات الى سرفر موقعك و ذلك على النحو التالى :

الخطوة الاولى : قم بنسخ الكود التالى فى ملف نصى ثم قم برفع هذا الملف على الخادم الخاص بك و يفضل ان يكون فى مجلد 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

و اليكم المشروع بالكامل فى المرفقات
المرفقات
Uploader.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(2 Ko) عدد مرات التنزيل 8

NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 262
النقاط : 378
التقيم : 10
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى