Question

关于ASP生成HTML时IIS超时的解决办法

我写了一个小程序。是用ASP生成HTML页面。用的不是FSO的方法。
是这样的方法

call makeindex(""&webpath&"html/news/newspage_"&rs("newssort2")&"_"&rs("newssort2")&"_"&i2&".html",""&webpath&"news.asp?id="&rs("newssort2")&"&n="&rs("newssort2")&"&page="&i2&"&time="&Now)

读于URL。
问题是，当网速过慢。或是数据过多时。IIS总是提示超时。
请大家给出一个解决办法。
把
Session.Timeout=480
Server.ScriptTimeOut=9999
改成9999 这些就不要回答了。根本不管用。
网上复制的就别回答了。请大家给出一个有效的解决办法。
我想到用页面刷新的方式
<meta http-equiv="refresh" content="1;URL=create_news.asp">
但是不知道怎么写。

先100分，如果原创并能有效的解决。我愿意在加分

Answer 1

第一：把有 On Error Resume Next 的部分去掉看看提示什么错误.
第二：newssort2 字段有可能不是数字类型，而是文本类型，要处理一下
第三：检查select语句,可能数据太多了,应该加以限制,比如: select top 100 *

Dim Url, Url1, Sort2
Sort2 = MyInt(rs("newssort2"))
i2 = MyInt(i2)
If i2 < 1 Then i2 = 1
If Sort2 > 0 Then
Url = WebPath & "html/news/newspage_" & Sort2 & "_" & Sort2 & "_" & i2 & ".html"
Url1 = WebPath & "news.asp?id=" & Sort2 & "&n=" & Sort2 & "&page=" & i2 & "&time=" & Now
Call MakeIndex(Url, Url1) 'Sub
End If

Function MyInt(ByVal str)
If IsNumeric(Trim(str)) Then MyInt = Fix(CDbl(Trim(str))) Else MyInt = 0
End Function

Adodb.Stream 方式生成:
iCon 为生成的页面内容,fn为文件名
Dim obj
Set obj = Server.CreateObject("Adodb.Stream")
obj.Open
obj.Charset = "utf-8"
obj.Position = obj.Size
obj.WriteText = iCon
obj.SaveToFile Server.MapPath(fn), 2
obj.Close
Set obj = Nothing

追问

你看明白我要做什么了吗？

追答

哦,你原来是用易达企业建站系统的啊.
随便看了下:
1、db.asp 没有语言脚本,会造成浏览UTF-8的页面再浏览你的站就是一片乱码！
2、conn.asp 第17行，On Error Resume Next这行不应该要；
第29行到50行就是多余的了，每次都要打开数据库里的配置文件，应该采用缓存或生成全部配置的ASP文件。
其他的没有时间看！
最关键的是：On Error Resume Next，很多人用，为什么呢？因为代码书写就存在很多错误，当问题越来越多时就很难排查了

Answer 2

“小偷”程序？远程获取数据并生成HTML？
用刷新不行吧，一刷新又重新读取数据了，这个没办法续存。
好像也只能通过改脚本执行时间限制了，你可以再改大一些试试看：Server.ScriptTimeOut=999999