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;
<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
%>
<Tabellenrand=0 Breite=100 % id=Tabelle1 Zellenabstand=0 Zellenpadding=0>
<form method=POST action=?action=html>
<tr>
<td width=9%>Start-ID:</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>End-ID:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(Maximum ID:<%=ResNum%>)</td>
<td width=23%><input type=submit value=submit name=B1></td>
</tr>
</form>
<%
wenn request(action)=html dann
Response.Write <tr><td colspan=5> & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write generiert <font color='red'><b> & eid & .xml</b></font> Dateien... & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write </td></tr><tr><td colspan=5> & vbNewLine
Response.Flush
Wenn (eid-500) > ResNum Dann
Response.Write 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>