I have almost forgotten how to write ASP batch generation. Friends who need to write ASP to generate static pages by themselves can refer to it. Copy the code code as follows:
<!-- #include file=../conn.asp -->
<!-- #include file=../cls_main.asp -->
<html>
<head>
<meta http-equiv=Content-Language content=zh-cn>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title>Generate Baidu XML</title>
</head>
<body>
<%
dim sid,eid
sid=abs(request(sid))
if sid=0 then
sid=0
else
sid=cint(request(sid))
end if
eid=cint(request(eid))
if eid=0 then
eid=500
else
eid=cint(request(eid))
end if
Dim tt,ResNum
Set tt = New Cls_Main
ResNum = CLng(tt.Execute(select max(id) from table)(0))
Set Mesky = Nothing
%>
<table border=0 width=100% id=table1 cellspacing=0 cellpadding=0>
<form method=POST action=?action=html>
<tr>
<td width=9%>Start ID:</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>End ID:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(Maximum ID:<%=ResNum%>)</td>
<td width=23%><input type=submit value=submit name=B1></td>
</tr>
</form>
<%
if request(action)=html then
Response.Write <tr><td colspan=5> & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write is generating <font color='red'><b> & eid & .xml</b></font> files... & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write </td></tr><tr><td colspan=5> & vbNewLine
Response.Flush
If (eid-500) > ResNum Then
Response.Write Congratulations on your successful operation!
Response.Flush
else
create(sid)
sid=sid+500
eid=eid+500
Response.Write <meta http-equiv=refresh content=10;url=?action=html&sid=&sid&&eid=&eid&>
End If
end if
Functioncreat(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>
End Function
%>
</td></tr>
</table>
</body>
</html>