ฉันเกือบลืมวิธีเขียน ASP ไปแล้ว เพื่อนๆ ที่ต้องเขียน ASP เพื่อสร้างสแตติกเพจด้วยตัวเองก็สามารถอ้างอิงถึงมันได้
คัดลอกรหัสรหัสดังต่อไปนี้:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<หัว>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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("select max(id) from table")(0))
ตั้ง Mesky = ไม่มีเลย
-
<ตาราง cellspacing="0" cellpadding="0">
<รูปแบบวิธีการ = "POST" action = "? action = html">
<tr>
<td>รหัสเริ่มต้น:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>รหัสสิ้นสุด:</td>
<td><input type="text" size="20" value="<%=eid%>">(รหัสสูงสุด:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</แบบฟอร์ม>
-
ถ้า request("action")="html" แล้ว
Response.Write " <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
การตอบสนองเขียน "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่นสร้าง(id)
Response.Write "<IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&">< /ไอเฟรม>"
สิ้นสุดฟังก์ชัน
-
</td></tr>
</ตาราง>
</ร่างกาย>
</html>