ASP用iframe批量生成静态页面的写法

ASP #iframe #生成静态2012-05-11 13:18

<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://yieg.org/cls_create.asp?startid="&sid;&"&endid;="&eid;&"></IFrame>"
End Function
%>
</td></tr>
</table>
</body>
</html>

ASP读取远程文件并保存到本地的代码 2012/05/11
出现msxml3.dll 错误 '800c0005'解决方法 2012/05/11
ASP中获取当前页面的地址与参数的函数 2012/05/11
ASP获取一个数字的个位、十位、百位的函数 2012/05/11
ASP的Fix、Int、Round、CInt函数用法 2012/05/11
ASP备份SQL Server数据库 2012/05/11
ASP下ajax抓取中国天气网天气的代码 2012/05/11
ASP仿PHP的一些常用函数 2012/05/11
ASP获取远程网页的指定内容的函数 2012/05/11
ASP生成SQL命令字符串类 2012/05/11

ASP 教程

ASP 对象

ASP 组件

ASP 总结

ASP用iframe批量生成静态页面的写法

相关文章