Casi me he olvidado de cómo escribir la generación por lotes de ASP. Los amigos que necesiten escribir ASP para generar páginas estáticas por sí mismos pueden consultarlo. Copie el código de código de la siguiente manera:
<!-- #include file=../conn.asp -->
<!-- #include file=../cls_main.asp -->
<html>
<cabeza>
<meta http-equiv=Contenido-Idioma contenido=zh-cn>
<meta http-equiv=Tipo de contenido content=text/html charset=gb2312>
<título>Generar XML de Baidu</título>
</cabeza>
<cuerpo>
<%
sid tenue, eid
sid=abs(solicitud(sid))
si sid=0 entonces
lado=0
demás
sid=cint(solicitud(sid))
terminar si
eid=cint(solicitud(eid))
si eid = 0 entonces
eid=500
demás
eid=cint(solicitud(eid))
terminar si
Dim tt, ResNum
Establecer tt = Nuevo Cls_Main
ResNum = CLng(tt.Execute(seleccione max(id) de la tabla)(0))
Establecer Mesky = Nada
%>
<borde de la tabla = 0 ancho = 100% id = tabla1 espacio entre celdas = 0 relleno de celda = 0>
<método de formulario=POST acción=?acción=html>
<tr>
<td width=9%>ID de inicio:</td>
<td ancho=35%><tipo de entrada=nombre de texto=tamaño sid=20 valor=<%=sid%>></td>
<td width=8%>ID final:</td>
<td ancho=23%><tipo de entrada=nombre de texto=tamaño eid=20 valor=<%=eid%>>(ID máximo:<%=ResNum%>)</td>
<td ancho=23%><tipo de entrada=valor de envío=nombre de envío=B1></td>
</tr>
</formulario>
<%
si solicitud (acción) = html entonces
Respuesta.Escribir <tr><td colspan=5> & vbNewLine
Respuesta.Escribir <br><br> & vbNewLine
Response.Write está generando archivos <font color='red'><b> & eid & .xml</b></font>... & vbNewLine
Respuesta.Escribir <br><br> & vbNewLine
Respuesta.Escribir </td></tr><tr><td colspan=5> & vbNewLine
Respuesta.Flush
Si (eid-500) > ResNum Entonces
Response.Write ¡Felicitaciones por su exitosa operación!
Respuesta.Flush
demás
crear (lado)
sid=sid+500
eid=eid+500
Respuesta.Escribir <meta http-equiv=refresh content=10;url=?action=html&sid=&sid&&eid=&eid&>
Terminar si
terminar si
Funcióncreat(id)
Response.Write <IFRame nombre=tt frameborder=0 ancho=100% alto=30 desplazamiento=no src=http://www.xx.com/cls_create.asp?startid=&sid&&endid=&eid&></IFrame>
Función final
%>
</td></tr>
</tabla>
</cuerpo>
</html>