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

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

اذهب الى الأسفل

رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6 Empty رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 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

و اليكم المشروع بالكامل فى المرفقات
المرفقات
رفع الملفات على سرفر موقعك من خلال الفجوال بيسك 6 Attachment
Uploader.zip لا تتوفر على صلاحيات كافية لتحميل هذه المرفقات.(2 Ko) عدد مرات التنزيل 11
NEXT
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة : مصر
الجنس : ذكر

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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