当前位置:首页 > 网站维护 > 列表

asp批量生成静态页面的方法

来源:浦一科技点击:时间:2018/8/31 关键词:上海网页设计 上海网站建设
当网站数据巨大时,一次生成许多静态页,会导致生成页面超过20分钟后报错,以至于后面的静态页不能生成。即使使用了Server.ScriptTimeout=9999,程序运行后,也会出现假死现象。注意:这里使用的是模块替换生成静态页面的方法。代码如下:<!-

当网站数据巨大时,一次生成许多静态页,会导致生成页面超过20分钟后报错,以至于后面的静态页不能生成。

即使使用了Server.ScriptTimeout = 9999,程序运行后,也会出现假死现象。

注意:这里使用的是模块替换生成静态页面的方法。

代码如下:

<!-- #include file="conn.asp" -->

<%

Dim cnt:cnt = 1 '本轮循环计数器初始化

start  = request("start") '获取本轮指针的开始位置

If IsNumeric(start) Then start = CLng(start) Else start=1

If start=0 Then start = 1 '如果start为空,从第一条开始

num = 100 '每次生成的数量

content = "fso获取的模板页面代码,这里就省略了"

sql = "select * from 表名"

rs.Open sql,conn,1,1

rs.AbsolutePosition = start '这是此程序最关键的一步,将指针指向start,start通过参数动态获得

Do While Not rs.eof And cnt < num

   content = Replace(content,"{要替换的内容1}",rs("字段名1")) '用字段值替换模板内容,下同

   content = Replace(content,"{要替换的内容2}",rs("字段名2"))

   ……

   cnt = cnt+1

   start = start + 1

rs.movenext

Loop

If Not rs.eof Then '通过刷新的方式进行下一轮请求,并将指针变量start传递到下一轮

   response.write "<meta http-equiv='refresh' content='0;URL=?start="&start&"'>"

Else

    response.write "生成HTML文件完毕!"

End if

rs.Close()

Set rs = Nothing

%>

服务项目

网站建设

网站建设

通过SEO优化技术,提供更多的展示机会,带来大量精准流量和询盘,每月意向客户增长20%。

手机网站建设

手机网站建设

手机网站的时代强势来袭,赢在全网营销时代,手机+电脑双剑合璧,把握商机滴水不漏。

网站维护

网站维护

一个好的网站需要定期或不定期地更新内容,才能不断地吸引更多的浏览者,增加访问量。

整合网络营销

整合营销

为了建立、维护和传播品牌,以及加强客户关系,而对品牌进行计划、实施和监督的一系列营销

预约建站
免费提供网站优化
领取关键词