هذا مثال على تنزيل البيانات مباشرة من قاعدة بيانات الخادم إلى ملف العميل، ويمكن كتابة اسم الملف وامتداده حسب الحاجة. يتطلب new/temp.htm وجودًا حقيقيًا، وهو في الواقع مجرد دليل.
هناك الكثير من الأشياء في هذا المجال يتم تداولها على الإنترنت، ولكن معظمها منسوخة، مما يجعلها معقدة للغاية. هناك عدد قليل جدًا من الأشياء التي تم وضعها موضع التنفيذ بالفعل. لذلك كتبت واحدة بنفسي، رغم أنها بسيطة وفيها بعض المشاكل، إلا أنه يمكن استخدامها بعد نسخها. يمكن للأصدقاء الذين لديهم أسئلة الاتصال بي حتى نتمكن من التعلم معًا.
filemystream=server.mappath("new") & "temp.htm"
تعيين MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Mode=3
ماي ستريم.فتح
MyStream.LoadFromFile(filemystream)
Response.ContentType = "application/octet-stream"
Response.AddHeader "ترتيب المحتوى:"، المرفقات؛ اسم الملف = "&"bk.txt"
النطاق=Mid(Request.ServerVariables("HTTP_RANGE"),7)
استجابة.اكتب "الاسم"
الرد.اكتب "الحساب"
الرد.اكتب "العنوان"
الرد.اكتب "الوصف"
cr=chr(13)&chr(10)
Response.write(cr)
بينما ليس rs.eof
استجابة.كتابة آر إس ("الاسم")
استجابة.كتابة RS("accno")
استجابة.كتابة آر إس ("العنوان")
استجابة.كتابة آر إس ("ملاحظة")
استجابة.كتابة (كر)
RS.MoveNext
اذهب إلى
rs. Close
تعيين RS=لا شيء
كون.إغلاق
تعيين كون = لا شيء
Mystream.إغلاق
اضبط Mystream=لا شيء