Ich habe fast vergessen, wie man ASP-Batch-Generierung schreibt. Freunde, die ASP schreiben müssen, um selbst statische Seiten zu generieren, können darauf zurückgreifen.
Kopieren Sie den Codecode wie folgt:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<Kopf>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Baidu-XML generieren</title>
</head>
<Körper>
<%
dim sid, eid
sid=abs(request("sid"))
wenn sid=0 dann
sid=0
anders
sid=cint(request("sid"))
Ende wenn
eid=cint(request("eid"))
wenn eid=0 dann
eid=500
anders
eid=cint(request("eid"))
Ende wenn
Dim tt,ResNum
Setze tt = New Cls_Main
ResNum = CLng(tt.Execute("select max(id) from table")(0))
Setze Mesky = Nichts
%>
<table cellpacing="0" cellpadding="0">
<form method="POST" action="?action=html">
<tr>
<td>Start-ID:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>End-ID:</td>
<td><input type="text" size="20" value="<%=eid%>">(Maximale ID:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</form>
<%
if request("action")="html" then
Response.Write „ <tr><td colspan=5>“ & vbNewLine
Response.Write „<br><br>“ & vbNewLine
Response.Write „Generating <font color='red'><b>“ & eid & „.xml</b></font> file...“ & vbNewLine
Response.Write „<br><br>“ & vbNewLine
Response.Write „ </td></tr><tr><td colspan=5>“ & vbNewLine
Response.Flush
Wenn (eid-500) > ResNum Dann
Antwort.Schreiben Sie „Herzlichen Glückwunsch zu Ihrer erfolgreichen Operation!“
Response.Flush
anders
erstellen(sid)
sid=sid+500
eid=eid+500
Response.Write „<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
Ende wenn
Ende wenn
Functioncreat(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&">< /IFrame>"
Funktion beenden
%>
</td></tr>
</table>
</body>
</html>