Question

ASP程序提醒：Active Server Pages 错误 'ASP 0113' 脚本超时

超时文件为 /admin/HtmlSave.asp，代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns="../"%>
<!--#include file="chk.asp"-->
<!--#include file="../AppCode/fun/function.asp"-->
<!--#include file="../AppCode/fun/CreateHtml.asp"-->
<%
Cmd = Application("Html_Cmd")
sTime = Application("Html_sTime")

RsCount = Cdbl(Application("Html_RsCount"))
xCount = Cdbl(Application("Html_xCount"))

Tmp_xCount = Cdbl(Application("Tmp_xCount"))
Tmp_RsCount = Cdbl(Application("Tmp_RsCount"))

Select Case Cmd
Case "Index_Html"
Call Index_Html()
Response.Write("首页生成完毕")

Case "Article_Page_Html"
ID = Application("Html_ArrData")(0,xCount)
Call Article_Page_Html(ID)
Response.Write("内容页ID=" & ID & "生成完毕")
If xCount + 1 <= RsCount Then
Application("Html_xCount") = xCount + 1
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl("")
End If

Case "Article_List_Html"
PageNo = Request.QueryString("PageNo")
If PageNo = "" Then PageNo = "1"
PageNo = Cdbl(PageNo)

ClassID = Application("Html_ArrData")(0,xCount)
pLen = Application("Html_ArrData")(1,xCount)

Call Article_List_Html(PageNo,ClassID)
Response.Write("列表页ClassID=" & ClassID & "，PageNo=" & PageNo & "生成完毕")

If PageNo + 1 <= pLen Then
If PageNo = 1 Then
Application("Tmp_RsCount") = Tmp_RsCount + Cdbl(pLen) - 1
End If
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl(PageNo + 1)
Else
If xCount + 1 <= RsCount Then
Application("Html_xCount") = xCount + 1
Application("Tmp_xCount") = Tmp_xCount + 1
Call NextUrl(1)
End If
End If
End Select

Private Sub NextUrl(PageNo)
Response.Write("<meta http-equiv=""refresh"" content=""" & sTime & ";URL=?PageNo=" & PageNo & "&rnd=" & Now() & """ />")
End Sub
%>

<style type="text/css">
body{margin:0px; padding:0px; font-size:12px; color:#333;}
div{ color:#FF0000;}
</style>

<div style="border:1px solid #CCCCCC; width:454px; margin:20px; height:30px; position:relative; padding:1px;">
<div style="background-color:#0000FF; height:26px; width:<%=Int(Tmp_xCount/Tmp_RsCount*450)%>px; position:absolute; z-index:99;">
</div>
<div style="position:absolute; z-index:999; color:#FF0000; line-height:26px; width:450px; text-align:center;"><%=Tmp_xCount%>/<%=Tmp_RsCount%>（<%=Int(Tmp_xCount/Tmp_RsCount*100)%>%）
</div>
</div>
<%
Call CloseConn()
Set Rs = Nothing
Set Admin = Nothing
%>
帮忙看下怎么改一下啊

Answer 1

有可能是 AppCode/fun/CreateHtml.asp 中的Article_List_Html模块的问题，你可能产生了太多的静态页，导致系统忙，可以改下代码，每次生成少量页面后，等几秒再生成其他页面，不然一次就生成全部页面对服务器产生压力

追问

网站才10几个文章，所有页面加起来不超过40个