วิธีที่ 1: FSO
ตั้งค่า fs = CreateObject (Scripting.FileSystemObject)
NewFile=Server.MapPath(/asp/chap06/at/newfile.html)
'สร้างไฟล์ใหม่/newfile.html หากมีไฟล์อยู่แล้ว ให้เขียนทับไฟล์นั้น'
ตั้งค่า a = fs.CreateTextFile(NewFile, True)
Response.Write ไฟล์ใหม่ได้ถูกสร้างขึ้นแล้ว!
ก.ปิด
ไฟล์=Server.MapPath(newfile.html)
ตั้งค่า txt=fs.OpenTextFile(File,8,True) 'เปิดไฟล์ที่สามารถเขียนข้อมูลต่อท้ายได้
data1=ประโยคนี้เขียนโดยใช้วิธี WriteLine! -
txt.WriteLine data1
data2=ประโยคนี้เขียนโดยใช้วิธีเขียน! -
txt.เขียนข้อมูล2
txt.ปิด
วิธีที่ 2: XMLHTTP
-
ตั้งค่า xml = Server.CreateObject(Microsoft.XMLHTTP)
'แทนที่ที่อยู่ต่อไปนี้ด้วยที่อยู่ไฟล์ของหน้าแรกของคุณ ตรวจสอบให้แน่ใจว่าใช้เส้นทางสัมบูรณ์ที่ขึ้นต้นด้วย http:// คุณไม่สามารถเขียนเส้นทางสัมพัทธ์ได้
xml.Open GET, http://www.vevb.com,เท็จ
xml.ส่ง
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,gb2312)
ตั้งค่า xml = ไม่มีเลย
หรี่ fso, MyFile
ตั้งค่า fso = CreateObject (Scripting.FileSystemObject)
ตั้งค่า MyFile= fso.CreateTextFile(server.MapPath(aa.htm), True)
MyFile.WriteLine(เนื้อหาข้อความ)
MyFile.ปิด
อื่น:
1
ตัวอย่างต่อไปนี้คือไดนามิกทั้งสามของ index.asp?id=1/index.asp?id=2/index.asp?id=3/
เพจ สร้างดัชนี1.htm, index2.htm, index3.htm ตามลำดับ และจัดเก็บไว้ในไดเร็กทอรีราก:
-
strUrl สลัว, Item_Classid, id, ชื่อไฟล์, FilePath, Do_Url, Html_Temp
Html_Temp=<UL>
สำหรับ i=1 ถึง 3
Html_Temp = Html_Temp&<LI>
Item_Classid = i
FileName = ดัชนี&Item_Classid&.htm
FilePath = Server.MapPath(/)&/&ชื่อไฟล์ Html_Temp = Html_Temp&FilePath&</LI>
Do_Url = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Do_Url
objXmlHttp สลัว
ตั้ง objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.open GET,strUrl,เท็จ
objXmlHttp.ส่ง()
Dim binFileData
binFileData = objXmlHttp.responseBody
ติ่ม objAdoStream
ตั้ง objAdoStream = Server.createObject (ADODB.Stream)
objAdoStream.Type = 1
objAdoStream.เปิด()
objAdoStream.Write (binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.ปิด()
ต่อไป
Html_Temp = Html_Temp&<UL>
-
-
Response.Write (สร้างไฟล์สำเร็จแล้ว: )
การตอบสนองเขียน ( <BR> )
การตอบสนองเขียน Html_Temp
-
ฟังก์ชั่น BytesToBstr (เนื้อหา, Cset)
objstream สลัว
ตั้ง objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้ง objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
-
2
<%@LANGUAGE=รหัส VBSCRIPT=936%>
-
ไฟล์สาธารณะเทมเพลต tmpdata
sub ofile()'เปิดไฟล์และใส่เนื้อหาไฟล์ลงใน tmpdata
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
tmpdata=
ตั้งค่า Astream=Server.CreateObject (Adodb.Stream)
Astream.type=2'ข้อความประเภทไฟล์
Astream.Mode = 3' อ่าน-เขียน
Astream.open
Astream.CharSet = GB2312'ชุดอักขระ
Astream.LoadFromFile (tempelatefile) 'โหลดจากไฟล์
Assp=Astream.size
ถ้า err.number<>0 แล้ว
xz=-18
การตอบสนอง เขียน templatefile&<br>
ผิดพลาดชัดเจน
tmpdata=
อื่น
tmpdata=Astream.ReadText(Assp)
สิ้นสุดถ้า
จบย่อย
ย่อย save_file()
ofile()
recfilen=server.MapPath(dts)
Astream.ฟลัช
Astream.ปิด
Astream.type=2
Astream.Mode = 3
Astream.open
Astream.CharSet = GB2312
Astream.position=0
Astream.Writetext tmpdata,1'เขียนข้อมูลเพื่อสตรีม
Astream.SaveToFile recfilen,2'บันทึกลงไฟล์
จบย่อย
ฟังก์ชั่น dts()' สร้างชื่อไฟล์แบบสุ่ม
ถ้า len(เดือน(ตอนนี้()))>1 แล้ว
มม.=เดือน(ตอนนี้())
อื่น
มม.=0&เดือน(ตอนนี้())
สิ้นสุดถ้า
ถ้า len(day(now()))>1 แล้ว
d=วัน(ตอนนี้())
อื่น
d=0&วัน(ตอนนี้())
สิ้นสุดถ้า
ถ้า len(ชั่วโมง(ตอนนี้()))>1 แล้ว
h=ชั่วโมง(ตอนนี้())
อื่น
h=0&ชั่วโมง(ตอนนี้())
สิ้นสุดถ้า
ถ้า len(นาที(ตอนนี้()))>1 แล้ว
ม.=นาที(ตอนนี้())
อื่น
ม=0&นาที(ตอนนี้())
สิ้นสุดถ้า
ถ้า len(วินาที(ตอนนี้()))>1 แล้ว
s=วินาที(ตอนนี้())
อื่น
s=0&วินาที(ตอนนี้())
สิ้นสุดถ้า
สุ่ม
ขอบบน=9999
ขอบเขตล่าง=1,000
rds=Int((บน - ล่าง + 1) * Rnd + ล่าง)
dts=htm/&ปี(ตอนนี้())&mm&d&h&m&s&rds&.htm
ฟังก์ชั่นสิ้นสุด
title=request.Form(ชื่อเรื่อง)
เนื้อหา=request.Form(เนื้อหา)
tmpdata=replace(tmpdata,<title></title>,title)' เพื่อรองรับการแทนที่เนื้อหาที่ส่ง
tmpdata=replace(tmpdata,<เนื้อหา></เนื้อหา>,เนื้อหา)
templatefile=server.MapPath(tempelate/1.htm)'ไฟล์เทมเพลต
บันทึก_ไฟล์()
-