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.5.2 64位django 1.10.3apache 2.4 64位windows 10重点在apache上。pyt- 发一个数字拼图游戏，有点小疑问前几天写得，其中一段代码还要感谢“簡簡單單愛妳”的提示，不过我还是不太明白， ，有点笨。 $(&qu
- 安装并导入模块打开命令行窗口，输入：pip install -i https://mirrors.aliyun.com/pypi/simpl
- 在日常的编程中，我经常需要标识存在于文本文档中的部件和结构，这些文档包括：日志文件、配置文件、定界的数据以及格式更自由的（但还是
- jQuery源码里自己也有很多用到each方法。其实jQuery里的each方法是通过js里的call方法来实现的。下面简单介绍一下call
- 打开网页，然后将javascript:document.body.contentEditable='true';
- 格式化字符串由占位符和普通字符组合而成。占位符由'％'打头，动词结尾。占位符由五类元素组成： 标志位（flag），宽度，精度
- array_unique() 定义和用法 array_unique() 函数移除数组中的重复的值，并返回结果数组。 当几个数组元素的值相等时
- 代码如下:declare @cmd nvarchar(4000) set @cmd = N'exec [?].sys.sp_chan
- format是字符串内嵌的一个方法，用于格式化字符串。以大括号{}来标明被替换的字符串。1、基本用法1. 按照{}的顺序依次匹配括号中的值s
- 一、递归递归调用：一个函数，调用的自身，称为递归调用递归函数：一个可以调用自身的函数称为递归函数凡是循环能干的事，递归都能干方法：1、写出临
- 这个就没什么好说的了。。直接上代码啊！！ 首先是HTML的代码。其中包含了登录点击按钮以及一个简陋的登录框。 <body> &l
- RSS 是一种基于 XML的文件标准，通过符合 RSS 规范的 XML文件可以简单实现网站之间的内容共享。Ajax 是Asynchronou
- 在mysql数据库中，当我们需要模糊查询的时候 ，我们会使用到通配符。首先我们来了解一下2个概念，一个是操作符，一个是通配符。操作符like
- 图形由json格式加载，可以灵活配置。下一步是完善用户的操作，做这个感觉还是蛮有意思的。呵呵。截图：部分源码：<script type
- 压缩复制删除文件基于python语言怎么操作呢，压缩文件有四种格式：zip、rar、tar、tar.gz，在压缩过程中也容易出现很多问题，今
- 作为一名数据库管理员，在进行代码迁移之前，我总是尽力给提交于开发环境的代码一个完整的面貌。但是，不得不承认，我不能保证不发生任何可能破坏开发
- 问题：之前在学习list和dict相关的知识时，遇到了一个常见的问题：如何在遍历list或dict的时候正常删除？例如我们在遍历dict的时
- 前言OpenCV是图像处理常用的库，作为初学者，往往从图片的读取、保存、查询图片的信息开始，下面将分享Python下OpenCV的一些基本使
- 一般常规的我们保存数据为dict类型时，系统会自动帮我们排序；但有时我们想按照输入顺序的key:value保存到dict中，而不想要改变顺序
