ASP批量生成静态页面的写法(批量生成技巧iframe)
2018-09-06 10:54
复制代码 代码如下:
<!-- #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=
End Function
%>
</td></tr>
</table>
</body>
</html>
上一篇：列出指定目录下的所有文件和目录
下一篇：asp存储过程使用大全