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

时间:2022-12-06 16:21:05

代码如下:


<!-- #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>