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

来源:asp之家 时间:2011-02-24 11:01:00 

代码如下:


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

标签:批量,生成静态
0
投稿

猜你喜欢

  • Python3 Post登录并且保存cookie登录其他页面的方法

    2023-08-18 22:45:52
  • Python3 JSON编码解码方法详解

    2023-10-12 15:46:43
  • js 实现拖拽排序详情

    2024-06-07 15:24:23
  • pandas || df.dropna() 缺失值删除操作

    2023-07-10 06:51:06
  • python 包实现JSON 轻量数据操作

    2022-11-13 05:40:32
  • vue+element树组件 实现树懒加载的过程详解

    2024-05-25 15:19:36
  • vue跳转后不记录历史记录的问题

    2023-07-02 17:03:38
  • SQL写法--行行比较

    2024-01-12 18:53:34
  • python入门之语句(if语句、while语句、for语句)

    2022-01-25 20:01:07
  • php实现mysql同步的实现方法

    2023-11-24 13:58:56
  • Python调用百度AI实现颜值评分功能

    2023-07-30 22:53:40
  • Python 分析Nginx访问日志并保存到MySQL数据库实例

    2024-01-22 08:43:23
  • javascript 文章截取部分无损html显示实现代码

    2024-04-19 09:57:11
  • Python使用三种方法实现PCA算法

    2022-06-26 13:32:49
  • python处理圆角图片、圆形图片的例子

    2021-06-08 15:20:15
  • MySQL中or语句用法示例

    2024-01-17 17:21:46
  • vue中自定义指令(directive)的基本使用方法

    2024-05-28 15:46:32
  • 如何利用Matplotlib库绘制动画及保存GIF图片

    2021-06-08 17:15:40
  • 使用 JavaScript 获取本地盘符

    2010-01-12 13:49:00
  • SQLServer设置客户端使用IP地址登录的图文详解

    2024-01-21 10:45:07
  • asp之家 网络编程 m.aspxhome.com