Quase esqueci como escrever geração de lote ASP. Amigos que precisam escrever ASP para gerar páginas estáticas por conta própria podem consultá-lo.
Copie o código do código da seguinte forma:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<cabeça>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Gerar XML do Baidu</title>
</head>
<corpo>
<%
dim sid, eid
sid=abs(solicitação("sid"))
se sid=0 então
sid=0
outro
sid=cint(solicitação("sid"))
terminar se
eid=cint(request("eid"))
se eid = 0 então
eid=500
outro
eid=cint(request("eid"))
terminar se
Dim tt,ResNum
Definir tt = Novo Cls_Main
ResNum = CLng(tt.Execute("selecione max(id) da tabela")(0))
Definir Mesky = Nada
%>
<table cellpacing="0" cellpadding="0">
<form método="POST" action="?action=html">
<tr>
<td>ID inicial:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>ID final:</td>
<td><input type="text" size="20" value="<%=eid%>">(ID máximo:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</form>
<%
if request("ação")="html" então
Response.Write "<tr><td colspan=5>" & vbNewLine
Response.Write "<br><br>" & vbNewLine
Response.Write "Gerando arquivo <font color='red'><b>" & eid & ".xml</b></font>... " & vbNewLine
Response.Write "<br><br>" & vbNewLine
Response.Write " </td></tr><tr><td colspan=5>" & vbNewLine
Resposta.Flush
Se (eid-500) > ResNum Então
Response.Write "Parabéns pela operação bem-sucedida!"
Resposta.Flush
outro
criar (sid)
sid=sid+500
eid=eid+500
Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
Terminar se
terminar se
Funçãocriada(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>"
Função final
%>
</td></tr>
</tabela>
</body>
</html>