自己快忘的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 cellspacing="0" cellpadding="0" >
< form method="POST" action="?action=html" >
< tr >
< td >开始ID:< /td >
< td >< input type="text" size="20" value="< %=sid% >" >< /td >
< td >结束ID:< /td >
< td >< input type="text" size="20" value="< %=eid% >" >(最大ID:< %=ResNum% >)< /td >
< td >< input type="submit" value="提交" >< /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 >