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>
猜你喜欢
- 经常用FLASH嵌入到网页里面,那咋能躲过W3C那个家伙呢?看下面!<object type="applicati
- W3C终于发布了第一个HTML5草案,大家还沉溺在HTML2XHTML转换的快乐和痛苦中时,却又突然发现,HTML5和XHTML2,到底谁是
- 汉字转为拼音的asp函数,原理:利用多维数组 1.添加索引 2.遍历数组Author: Unknowasp之家测试截图,呵呵不错:<%
- 代码如下:'其中注释中有 ###的需要用户设置 '其中注释中有 参数传递 ** 的 说明要通过参数 传递。'定义变量
- 两个文章,放在一块了。第二个比较强。====================================================
- 在ASP.NET2.0通过SMTP的验证发送EMAIL ,代码如下:’Create a new MailMes
- 一般情况下,网站的图片代码是这样的。<img src="./images/test.jpg"
- 为了安全我们经常给access数据库加上密码,这样就算让本人下载了数据库,那么想看到数据库中的数据也不是那么简单的,起码多了一层障碍!我们平
- 是的,我在这里要说:注册表单将死(好拗口啊,但是不知道怎么翻译更恰当)。回想一下,当你想享受一个网站服务的时候,碰到的第一件事是什么?一个表
- XML是一项热门的技术。它之所以能够引起人们的兴趣,一个主要的原因在于它十分的简单,人们可以很容易地理解和使用它。每一个程序员都能轻易地看懂
- 在一个update和insert操作频繁的表中,少量数据测试的时候运行良好,在实际运营中,因数据量比较大(21万条记录),会出现死锁现象,用
- 在注册或购物车结帐的时候,需要用户填入个人资料,这个环节可以简练一下,我们只需客人填入邮政编码,然后就根据这个邮政编码,自动从数据库中取出相
- 当前,utf8_unicode_ci校对规则仅部分支持Unicode校对规则算法。一些字符还是不能支持。并且,不能完全支持组合的记号。这主要
- 今天一个项目上需要,修改了一些属性,测试成功。<!--#include file="conn.asp"-
- 在使用AJAX开发网站时,经常有朋友遇到乱码的问题,而且一下子难以找到解决方法。其实解决AJAX中文乱码问题很简单。1、服务端程序:<
- 没有多大变动,主要是返回错误信息,以便调用函数部分可以alert出来。据说可以用正则表达式校验,下次再研究下。//-------------
- 本文使用css结合js技术给网页背景background 插入flash播放器播放音乐,想法很大胆,呵呵!刚刚乱试一翻搞出这个,有意思吗?请
- 本文介绍如何建立基于Web的日历,同时为不熟悉Active Server Pages(ASP)、SQL和ADO的开发者提供建立Web站点的过
- SQL Server数据库备份有两种方式,一种是使用BACKUP DATABASE将数据库文件备份出去,另外一种就是直接拷贝数据库文件mdf
- Rs.GetRows(N):N代表获取记录数量 Rs.GetRows(1):1表示只返回一行记录 Rs.GetRows(-1):-1表示默认