以后地位:首页 > 建站常识 > 列表

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 = WordStr(content,"{要替代的内容1}",rs("字段名1")) '用字段值替代模板内容,下同

   content = WordStr(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

%>

预定建站
收费供给网站优化
支付关头词