ASP批量生成静态页面的写法(批量生成技巧iframe)

复制代码 代码如下:

<%
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
%>











<%
if request("action")="html" then
Response.Write "

开始ID:		结束ID:	(最大ID:<%=ResNum%>)
" & vbNewLine Response.Write " " & vbNewLine Response.Write "正在生成 " & eid & ".xml 文件…… " & vbNewLine Response.Write " " & vbNewLine Response.Write "
" & vbNewLine Response.Flush If (eid-500) > ResNum Then Response.Write "恭喜您操作成功!" Response.Flush else creat(sid) sid=sid+500 eid=eid+500 Response.Write "" End If end if Function creat(id) Response.Write "" End Function %>