นี่คือตัวอย่างการดาวน์โหลดข้อมูลจากฐานข้อมูลเซิร์ฟเวอร์ไปยังไฟล์ไคลเอ็นต์โดยตรง สามารถเขียนชื่อไฟล์และนามสกุลได้ตามต้องการ new/temp.htm จำเป็นต้องมีอยู่จริง จริงๆ แล้ว มันไม่มีผลกระทบใดๆ เลย มิฉะนั้น จะไม่สามารถเขียนข้อมูล stram ได้
มีหลายสิ่งหลายอย่างในพื้นที่นี้ที่เผยแพร่บนอินเทอร์เน็ต แต่ส่วนใหญ่จะถูกคัดลอก สิ่งที่เรียบง่ายมากนั้นซับซ้อนมาก มีน้อยมากที่ได้นำไปปฏิบัติจริง ดังนั้นฉันจึงเขียนมันขึ้นมาเอง แม้ว่ามันจะง่ายและมีปัญหาอยู่บ้าง แต่ก็สามารถใช้ได้หลังจากคัดลอกไปแล้ว เพื่อนๆที่มีคำถามสามารถติดต่อผมเพื่อที่เราจะได้เรียนร่วมกันนะครับ
filemystream=server.mappath("ใหม่") & "temp.htm"
ตั้งค่า MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Mode=3
MyStream.Open
MyStream.LoadFromFile (filemystream)
Response.ContentType = "แอปพลิเคชัน / octet-stream"
Response.AddHeader "การจัดการเนื้อหา:" สิ่งที่แนบมา; ชื่อไฟล์ =" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
response.write "ชื่อ"
ตอบกลับเขียน "บัญชี"
ตอบกลับเขียน "ที่อยู่"
ตอบกลับเขียน "คำอธิบาย"
cr=chr(13)&chr(10)
response.write(cr)
ในขณะที่ไม่ใช่ rs.eof
response.write rs("ชื่อ")
response.write rs("acno")
response.write rs("ที่อยู่")
response.write rs("หมายเหตุ")
การตอบกลับเขียน(cr)
RS.MoveNext
เวนอาร์
เอสปิด
ตั้งค่า rs=nothing
คอน.ปิด
ตั้งค่า Conn=ไม่มีอะไร
Mystream.ปิด
ตั้งค่า Mystream=nothing