J'ai presque oublié comment écrire la génération par lots ASP. Les amis qui ont besoin d'écrire ASP pour générer eux-mêmes des pages statiques peuvent s'y référer.
Copiez le code comme suit :
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<tête>
<méta http-equiv="Content-Language" content="zh-cn">
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Générer du XML Baidu</title>
</tête>
<corps>
<%
Dim Sid, Aïd
sid=abs(requête("sid"))
si sid=0 alors
côté=0
autre
sid=cint(requête("sid"))
finir si
eid=cint(requête("eid"))
si eid=0 alors
Aïd = 500
autre
eid=cint(requête("eid"))
finir si
Dim tt,ResNum
Définir tt = Nouveau Cls_Main
ResNum = CLng(tt.Execute("select max(id) from table") (0))
Définir Mesky = Rien
%>
<table cellpacing="0" cellpadding="0">
<form method="POST" action="?action=html">
<tr>
<td>ID de démarrage :</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>ID de fin :</td>
<td><input type="text" size="20" value="<%=eid%>">(ID maximum :<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</form>
<%
si request("action")="html" alors
Response.Write " <tr><td colspan=5>" & vbNewLine
Réponse.Écrivez "<br><br>" et vbNewLine
Response.Write "Génération de <font color='red'><b>" & eid & "fichier .xml</b></font>..." & vbNewLine
Réponse.Écrivez "<br><br>" et vbNewLine
Réponse.Write " </td></tr><tr><td colspan=5>" & vbNewLine
Réponse.Flush
Si (eid-500) > ResNum Alors
Réponse.Écrivez « Félicitations pour votre opération réussie ! »
Réponse.Flush
autre
créer(côté)
côté=côté+500
eid=eid+500
Réponse.Écrivez "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
Fin si
finir si
Création de fonction (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>"
Fonction de fin
%>
</td></tr>
</table>
</corps>
</html>