'เนื้อหาไฟล์อ่าน
การคัดลอกรหัสมีดังนี้:
functionloadfile (byvalfile)
dimobjstream
onerrorresumenext
setObjstream = server.createObject ("adodb.stream")
iferr.number = -2147221005 จากนั้น
Response.write "<divalign = 'center'> น่าเศร้าโฮสต์ของคุณไม่รองรับ adoDb.stream และคุณไม่สามารถใช้โปรแกรมนี้ </div>"
err.lear
Response.end
endif
ไม่มี bjstream
.Type = 2
.Mode = 3
.เปิด
.loadfromfileserver.mappath (ไฟล์)
iferr.number <> 0 แล้ว
Response.write "<divalign = 'center'> ไฟล์ <fontcolor = '#ff0000'>" & ไฟล์ & "</font> ไม่สามารถเปิดได้โปรดตรวจสอบว่ามีอยู่! </font> </div>"
err.lear
Response.end
endif
.Charset = "GB2312"
.position = 2
loadfile = .readText
.ปิด
จบลงด้วย
setObjstream = ไม่มีอะไร
endfunction
'เนื้อหาการจัดเก็บเป็นไฟล์
การคัดลอกรหัสมีดังนี้:
subsavetofile (byvalstrbody, byvalfile)
dimobjstream
onerrorresumenext
setObjstream = server.createObject ("adodb.stream")
iferr.number = -2147221005 จากนั้น
Response.write "<divalign = 'center'> น่าเศร้าโฮสต์ของคุณไม่รองรับ adoDb.stream และคุณไม่สามารถใช้โปรแกรมนี้ </div>"
err.lear
Response.end
endif
ไม่มี bjstream
.Type = 2
.เปิด
.Charset = "GB2312"
.position = objstream.size
.writeText = strbody
.savetofileserver.mappath (ไฟล์), 2, 2
.ปิด
จบลงด้วย
setObjstream = ไม่มีอะไร
enddub
ตัวอย่างการโทร
การคัดลอกรหัสมีดังนี้:
-
writefile "aaa.txt", "www.vevb.com", "UTF-8"
Response.write ReadFile ("AAA.txt", "UTF-8")
-