自己快忘的ASP批量生成寫法,需要自己寫asp生成靜態頁面的朋友可以參考下。複製代碼代碼如下:
<!-- #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>生成百度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%>開始ID:</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>結束ID:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(最大ID:<%=ResNum%>)</td>
<td width=23%><input type=submit value=提交name=B1></td>
</tr>
</form>
<%
if request(action)=html then
Response.Write <tr><td colspan=5> & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write 正在產生<font color='red'><b> & eid & .xml</b></font> 檔案… & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write </td></tr><tr><td colspan=5> & vbNewLine
Response.Flush
If (eid-500) > ResNum Then
Response.Write 恭喜您操作成功!
Response.Flush
else
creat(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
Function creat(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>