โค้ดประเภทนี้ส่วนใหญ่จะใช้เมื่อเราไม่ได้ใช้ฟังก์ชันการออกแบบเพื่อสร้างสแตติก แต่เราต้องการสร้างไดนามิกเพจบางส่วนให้เป็นสแตติกชั่วคราว รับเนื้อหาไดนามิกโดยตรง และบันทึกเป็นสแตติก
คัดลอกรหัสรหัสดังต่อไปนี้:
<!--#include file="admin_Checkuser.asp"-->
-
โทร ConnectionDatabase()
str,str_new สลัว
STR=""
str_ใหม่ = ""
sqlx="เลือก id จากลำดับ Fl_Products โดย id desc"
ตั้งค่า rsx=conn.execute(sqlx)
ทำในขณะที่ไม่ใช่ rsx.eof
str=str&rsx("id")&"|"
rsx.movenext :loop
rsx.ปิด
sqlx = "เลือก id จาก Fl_News เรียงลำดับตาม id desc"
ตั้งค่า rsx=conn.execute(sqlx)
ทำในขณะที่ไม่ใช่ rsx.eof
str_new=str_new&rsx("id")&"|"
rsx.movenext :loop
rsx.ปิด
place=InStrRev(str,"|")
str=ซ้าย(str,สถานที่-1)
place=InStrRev(str_new,"|")
str_new=ซ้าย(str_new,place-1)
URL สลัว cwww ทำหน้าที่
การกระทำ = ตัดแต่ง (Request.QueryString ("การกระทำ"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm"เขียนหน้าแรกสำเร็จแล้ว!"
MakeHtm cwww&"/about.asp","../about.htm"เขียนโปรไฟล์บริษัทสำเร็จแล้ว!"
MakeHtm cwww&"/contact.asp","../contact.htm"เขียนติดต่อเราสำเร็จแล้ว!"
MakeHtm cwww&"/ry.asp","../ry.htm", "คุณสมบัติและเกียรติคุณเขียนสำเร็จแล้ว!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm"เขียนติดต่อเราสำเร็จแล้ว!"
MakeHtm cwww&"/pro.asp","../pro.htm"เขียนการแสดงผลิตภัณฑ์สำเร็จแล้ว!"
MakeHtm cwww&"/news.asp","../news.htm"สร้างการเขียนเวิร์กช็อปได้สำเร็จ!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm"เขียนข้อมูลข่าวสารสำเร็จแล้ว!"
MakeHtm cwww&"/alliance.asp","../alliance.htm"เขียนเครือข่ายการขายสำเร็จแล้ว!"
'สร้างผลิตภัณฑ์
xstr=แยก(str,"|")
สำหรับ i=0 ถึง ubound(xstr)
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"เขียนสำเร็จแล้ว!"
ต่อไป
xstr=แยก(str_new,"|")
สำหรับ i=1 ถึง ubound(xstr)/25+1
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","รายการข่าว"&i&"เขียนสำเร็จแล้ว!"
ต่อไป
xstr=แยก(str_new,"|")
สำหรับ i=0 ถึง ubound(xstr)
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"เขียนสำเร็จ!"
ต่อไป
ฟังก์ชั่น 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 = ไม่มีเลย
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น MakeHtm(curl,turl,mess)
ตั้งค่า xml = Server.CreateObject("Microsoft.XMLHTTP")
'แทนที่ที่อยู่ต่อไปนี้ด้วยที่อยู่ไฟล์ของหน้าแรกของคุณ อย่าลืมใช้เส้นทางสัมบูรณ์ที่จุดเริ่มต้น คุณไม่สามารถเขียนเส้นทางสัมพัทธ์ได้
xml.Open "GET", ขด, เท็จ
xml.ส่ง
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
ตั้งค่า xml = ไม่มีเลย
'แทนที่
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=replace(BodyText,"index.asp,"index.htm")
BodyText=replace(BodyText,"about.asp","about.htm")
BodyText=replace(BodyText,"pro.asp","pro.htm")
BodyText=replace(BodyText,"news.asp","news.htm")
BodyText=replace(BodyText,"liuyan.asp","liuyan.htm")
BodyText=replace(BodyText,"ry.asp","ry.htm")
BodyText=replace(BodyText,"xinwen.asp","xinwen.htm")
BodyText=replace(BodyText,"contact.asp","contact.htm")
หรี่ fso, MyFile
ตั้งค่า fso = CreateObject("Scripting.FileSystemObject")
ตั้งค่า MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(เนื้อหา)
MyFile.ปิด
ตอบกลับเขียนระเบียบ
ตอบกลับเขียน "<br>"
ฟังก์ชันสิ้นสุด
ฟังก์ชั่นสาธารณะ RegReplace (sContent, sPatrn, sNewStr)
Dim oTempReg : ตั้งค่า oTempReg = RegExp ใหม่
ด้วย oTempReg
.IgnoreCase = จริง
.สากล=จริง
.Pattern = sPatrn
RegReplace = .แทนที่ (sContent, sNewStr)
จบด้วย
ตั้งค่า oTempReg = ไม่มีเลย
ฟังก์ชันสิ้นสุด
เรียก CloseDatabase()
-
<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>เอกสารที่ไม่มีชื่อ</title>
<สไตล์>
body,td{font-family:Verdana, Arial, Helvetica, sans-serif;
ขนาดตัวอักษร:10.5pt;}
</สไตล์>
</หัว>
<ร่างกาย>
</ร่างกาย>
</html>
จากไอสบอย