วิธีง่ายๆ ในการสร้าง static asp วันนี้ฉันดูโค้ดในเครื่องมือพจนานุกรม มันค่อนข้างง่าย เพื่อนๆ ที่ต้องการมันสามารถอ้างอิงได้ สร้างHtml
บทความทั้งหมดถูกสร้างขึ้น ทรัพยากรที่ใช้งานง่าย
วิธีแรก:
คัดลอกรหัสรหัสดังต่อไปนี้:
'เริ่มโหมดการสร้าง HTML'
ตั้งค่า Rs=Server.Createobject(Adodb.Recordset)
Sql=เลือก KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_บันทึกจาก KQIQI_CY สั่งซื้อโดย KQIQI_ID Desc
Rs.Open Sql,Conn,1,3
Datanum=Rs.Recordcount
สำหรับ i= 1 ถึง Datanum
Title=แทนที่(แทนที่(Rs(1),Chr(13),),Chr(10),)
'เริ่มสร้างไฟล์สำนวน
ตั้งค่า Fso=สร้างวัตถุ(Scripting.FilesyStemobject)
ตั้งค่า KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.อ่านทั้งหมด
KQIQI_MB.ปิด
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:Title},&หัวข้อ&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:พินอิน},&Rs(2)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:อธิบาย},&Rs(3)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:เนื้อหา},&Rs(4)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:บันทึก},&Rs(5)&)
ตั้งค่า KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_เราปิด
ตั้งค่า Fso=ไม่มีอะไร
'รุ่นเสร็จสมบูรณ์
฿มูฟเน็กซ์
ต่อไป
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>สร้าง</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>พจนานุกรมสำนวน Ke Qiqi ถูกสร้างขึ้นแล้ว! <ประเภทอินพุต=ชื่อปุ่ม=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>ออก</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>ออก</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf
แบบที่ 2 ดูได้จากระบบอื่น
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ลิขสิทธิ์ 2550
ผู้เขียน: อู๋ จุน
' ลิขสิทธิ์: www.sm05.com
'เวอร์ชัน: เวอร์ชัน 1.0
'การสนับสนุนทางเทคนิค: อีเมล: [email protected] QQ: 21275120
-
<!--#include file=cyconn.asp-->
-
สลัว fso
สลัว
สลัว
ตกลง
'เริ่มโหมดการสร้าง HTML'
ตั้งค่า rs=server.createobject (adodb.recordset)
sql=select * จากรูป เรียงลำดับตาม id ตามลำดับ
rs.open sql,conn,1,3
datanum=rs.recordcount
สำหรับ i= 1 ถึง datanum
'เริ่มสร้างไฟล์สำนวน
ตั้งค่า fso=createobject(scripting.filesystemobject)
ตั้ง fr=fso.opentextfile(server.mappath(chengyu_m.htm))
wstr=fr.readall
fr.ปิด
rstr สลัว
wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)
wstr=replace(wstr,<{{พินอิน}}>,&rs(sg)&)
wstr=replace(wstr,<{{jieshi}}>,&rs(js)&)
wstr=แทนที่(wstr,<{{จาก}}>,&rs(เนื้อหา)&)
wstr=แทนที่(wstr,<{{ตัวอย่าง}}>,&rs(jilu)&)
ตั้งค่า fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)
fw.writeline wstr
fw.ปิด
ตั้งค่า fso=nothing
'รุ่นเสร็จสมบูรณ์
rs.movenext
ต่อไป
response.write เอาน่า คอลัมน์สำนวนทั้งหมดของฟอรัมได้ถูกสร้างขึ้นแล้ว!
-
MakeHtml ถูกสร้างขึ้นโดยเริ่มจากรหัสที่ระบุ
คัดลอกรหัสรหัสดังต่อไปนี้:
'เริ่มโหมดการสร้าง HTML'
ตั้งค่า Rs=Server.Createobject(Adodb.Recordset)
Sql=เลือก KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_บันทึกจาก KQIQI_CY สั่งซื้อโดย KQIQI_ID Desc
Rs.Open Sql,Conn,1,3
สำหรับ i=id1 ถึง id2
Title=แทนที่(แทนที่(Rs(1),Chr(13),),Chr(10),)
'เริ่มสร้างไฟล์สำนวน
ตั้งค่า Fso=สร้างวัตถุ(Scripting.FilesyStemobject)
ตั้งค่า KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))
KQIQI_Ce=KQIQI_MB.อ่านทั้งหมด
KQIQI_MB.ปิด
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:Title},&หัวข้อ&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:พินอิน},&Rs(2)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:อธิบาย},&Rs(3)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:เนื้อหา},&Rs(4)&)
KQIQI_Ce=แทนที่(KQIQI_Ce,{$KQIQI:บันทึก},&Rs(5)&)
ตั้งค่า KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)
KQIQI_We.writeline KQIQI_Ce
KQIQI_เราปิด
ตั้งค่า Fso=ไม่มีอะไร
'รุ่นเสร็จสมบูรณ์
฿มูฟเน็กซ์
ต่อไป
KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 align=center border=0 class=td table> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>สร้าง</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center>พจนานุกรมสำนวน Ke Qiqi ถูกสร้างขึ้นแล้ว! <ประเภทอินพุต=ชื่อปุ่ม=button1value=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>ออก</TD></TR> & vbCrLf
KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>ออก</a>& vbCrLf
KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf