Stimson (งานต้นฉบับ)
มีคลาสการอัปโหลดแบบไม่มีคอมโพเนนต์อยู่มากมาย ฉันลองดูแล้วพบว่าคลาสส่วนใหญ่ค่อนข้างซับซ้อน สิ่งสำคัญที่สุดคือไม่มีคลาสที่มีน้อยกว่า 10 บรรทัด code:) ฉันใช้เวลาทั้งคืน ฉันศึกษา ADODB.Stream และใช้โค้ด 6 บรรทัดเพื่อใช้การอัปโหลดแบบไม่มีคอมโพเนนต์:
strFileName = Request.QueryString("file1")
ตั้ง objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.เปิด
objStream.LoadFromFile strFileName
objStream.SaveToFileเซิร์ฟเวอร์"123_onweb.gif",2
วิธีใช้:
เขียนโค้ดด้านบนเป็น upload.asp
เข้าสู่เบราว์เซอร์:
GetFileName = mid(strFile,InStrRev(strFile, "")+1)
อื่น
รับชื่อไฟล์ = ""
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
strFileName = Request.Form("file1")
ตั้ง objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.เปิด
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream ปิด
%>
ไฟล์ upload.htm
<ชื่อแบบฟอร์ม = "รูปแบบ" การกระทำ = "upload.asp" วิธีการ = "โพสต์">
<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</แบบฟอร์ม>