ฉันเกือบลืมวิธีเขียน ASP ไปแล้ว เพื่อนๆ ที่ต้องเขียน ASP เพื่อสร้างสแตติกเพจด้วยตัวเองก็สามารถอ้างอิงถึงมันได้ คัดลอกรหัสรหัสดังต่อไปนี้:
<!-- #include file=../conn.asp -->
<!-- #include file=../cls_main.asp -->
<html>
<หัว>
<meta http-equiv=เนื้อหาภาษาเนื้อหา=zh-cn>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html;
<title>สร้าง Baidu XML</title>
</หัว>
<ร่างกาย>
-
ซิดสลัว, วันอีด
sid=abs(คำขอ(sid))
ถ้า sid=0 แล้ว
ซิด=0
อื่น
sid=cint(คำขอ(sid))
สิ้นสุดถ้า
eid=cint(คำขอ(eid))
ถ้า eid=0 แล้ว
วันอีด=500
อื่น
eid=cint(คำขอ(eid))
สิ้นสุดถ้า
Dim tt,ResNum
ตั้งค่า tt = Cls_Main ใหม่
ResNum = CLng(tt.Execute(เลือกสูงสุด(id) จากตาราง)(0))
ตั้ง Mesky = ไม่มีเลย
-
<เส้นขอบตาราง=0 ความกว้าง=100% id=table1 ระยะห่างระหว่างเซลล์=0 ช่องว่างภายใน=0>
<รูปแบบวิธีการ=การกระทำของ POST=?การกระทำ=html>
<tr>
<td width=9%>รหัสเริ่มต้น:</td>
<td width=35%><ประเภทอินพุต=ชื่อข้อความ=ขนาด sid=20 ค่า=<%=sid%>></td>
<td width=8%>รหัสสิ้นสุด:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(ID สูงสุด:<%=ResNum%>)</td>
<td width=23%><ประเภทอินพุต=ค่าส่ง=ชื่อส่ง=B1></td>
</tr>
</แบบฟอร์ม>
-
ถ้า request(action)=html แล้ว
การตอบสนองเขียน <tr><td colspan=5> & vbNewLine
การตอบสนองเขียน <br><br> & vbNewLine
Response.Write กำลังสร้างไฟล์ <font color='red'><b> & eid & .xml</b></font>... & vbNewLine
การตอบสนองเขียน <br><br> & vbNewLine
การตอบกลับเขียน </td></tr><tr><td colspan=5> & vbNewLine
การตอบสนองฟลัช
ถ้า (eid-500) > ResNum แล้ว
ตอบกลับเขียน ขอแสดงความยินดีกับความสำเร็จในการดำเนินงานของคุณ!
การตอบสนองฟลัช
อื่น
สร้าง (ด้าน)
ซิด=ซิด+500
อี๊ด=อี๊ด+500
Response.Write <meta http-equiv=refresh content=10;url=?action=html&sid=&sid&&eid=&eid&>
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่นสร้าง(id)
การตอบสนองเขียน <IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid=&sid&&endid=&eid&></IFrame>
ฟังก์ชันสิ้นสุด
-
</td></tr>
</ตาราง>
</ร่างกาย>
</html>