<!-#รวมไฟล์ = dbConn.asp->
-
ฟังก์ชั่น readfile (ชื่อไฟล์)
เมื่อเกิดข้อผิดพลาดต่อไป
err.lear
'วิธีการแก้ไขข้อผิดพลาดใน ASP
const forreading = 2
const create = false
สลัว fso
Dim Ts
Dim Filepath
หรี่
ซุ่มซ่าม
-
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
filePath = server.mappath (temp) ./folder เก็บไว้ในสมุดบันทึก
ถ้า err.number <> 0 แล้ว
ไม่มีการตอบสนองไดเรกทอรี
Response.end
สิ้นสุดถ้า
'filename = test.txt ------------------ test.txt เป็นชื่อไฟล์ที่คุณอ่านจากฐานข้อมูล
thefile = filePath &/& ชื่อไฟล์
ตั้งค่า ts = fso.opentextfile (thefile, 1)
ทำจนกระทั่ง ts.atendofstream
Response.write (& ts.readline &)
Response.write (<br>)
วง
ตั้งค่า ts = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-
-
DIMID
ชื่อไฟล์หรี่
id = 6
ตั้งค่า rs = server.createObject (adodb.recordset)
sql = เลือก * จากหยวนโดยที่ id = & id
Rs.Open SQL, CN, 1,1
FileName = Rs (fileload)
-
< % readfile (ชื่อไฟล์) %>