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 arquivo=../conn.asp -->
<!-- #include arquivo=../cls_main.asp -->
<html>
<cabeça>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Tipo de conteúdo 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(solicitação(eid))
se eid = 0 então
eid=500
outro
eid=cint(solicitação(eid))
terminar se
Dim tt,ResNum
Definir tt = Novo Cls_Main
ResNum = CLng(tt.Execute(selecione max(id) da tabela)(0))
Definir Mesky = Nada
%>
<borda da tabela=0 largura=100% id=tabela1 cellpacing=0 cellpadding=0>
<método de formulário=POST action=?action=html>
<tr>
<td width=9%>ID inicial:</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>ID final:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(ID máximo:<%=ResNum%>)</td>
<td width=23%><input type=submit value=submit name=B1></td>
</tr>
</form>
<%
se solicitação(ação)=html então
Response.Write <tr><td colspan=5> & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write está gerando arquivos <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>