قراءة محتوى الملف.
نسخة الكود كما يلي:
FunctionLoadFile (byvalfile)
Dimobjstream
onerrorresumenext
setObjStream = server.createBject ("Adodb.stream")
iferr.number = -2147221005th
Response.write "<Divalign = 'Center'> للأسف ، لا يدعم مضيفك adodb.stream ، ولا يمكنك استخدام هذا البرنامج </div>"
err.clear
استجابة
Endif
بدون BJStream
.type = 2
. وضع = 3
.يفتح
.LoadFromFileserver.mappath (ملف)
iferr.number <> 0then
Response.write "<fivalign = 'center'> file <fontcolor = '#ff0000'>" & file & "</font> لا يمكن فتحه ، يرجى التحقق مما إذا كان موجودًا! </font> </viv>"
err.clear
استجابة
Endif
.charset = "GB2312"
.Position=2
loadfile = .readtext
.يغلق
endwith
setObjStream = لا شيء
الوظيفية
محتوى التخزين للملف
نسخة الكود كما يلي:
subavetofile (ByvalStrbody ، Byvalfile)
Dimobjstream
onerrorresumenext
setObjStream = server.createBject ("Adodb.stream")
iferr.number = -2147221005th
Response.write "<Divalign = 'Center'> للأسف ، لا يدعم مضيفك adodb.stream ، ولا يمكنك استخدام هذا البرنامج </div>"
err.clear
استجابة
Endif
بدون BJStream
.type = 2
.يفتح
.charset = "GB2312"
.position = objstream.size
.riteText = strbody
.savetofileserver.mappath (ملف) ، 2
.يغلق
endwith
setObjStream = لا شيء
ينتهي
استدعاء مثال
نسخة الكود كما يلي:
<٪
writefile "aaa.txt" ، "www.vevb.com" ، "UTF-8"
review.write readfile ("aaa.txt" ، "UTF-8")
٪>