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 cellspacing="0" cellpadding="0">
<form method="POST" action="?action=html">
<tr>
<td>Start ID:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>End ID:</td>
<td><input type="text" size="20" value="<%=eid%>">(Maximum ID:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</form>
<%
if request("action")="html" then
Response.Write " <tr><td colspan=5>" & vbNewLine
Response.Write "<br><br>" & vbNewLine
Response.Write "Generating <font color='red'><b>" & eid & ".xml</b></font> file... " & 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>