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(demande(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(sélectionnez max(id) dans la table)(0))
Définir Mesky = Rien
%>
<table border=0 width=100% id=table1 cellpacing=0 cellpadding=0>
<form method=POST action=?action=html>
<tr>
<td width=9%>ID de démarrage :</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>ID de fin :</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(ID maximum :<%=ResNum%>)</td>
<td width=23%><input type=submit value=submit name=B1></td>
</tr>
</form>
<%
si requête(action)=html alors
Réponse.Write <tr><td colspan=5> & vbNewLine
Réponse.Write <br><br> & vbNewLine
Response.Write génère des fichiers <font color='red'><b> & eid & .xml</b></font>... & vbNewLine
Réponse.Write <br><br> & vbNewLine
Réponse.Write </td></tr><tr><td colspan=5> & vbNewLine
Réponse.Flush
Si (eid-500) > ResNum Alors
Response.Write Félicitations pour votre opération réussie !
Réponse.Flush
autre
créer(côté)
côté=côté+500
eid=eid+500
Response.Write <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>