关于框架！急！left.asp页报错：错误类型：Active Server Pages, ASP 0113 (0x80004005)超过了脚本运行的最长时间。您可以通过指定 Serve

actor2222 2003-12-08 11:19:00

本页共三部分包含left.asp,top.asp,main.asp.现TOP，MAIN为静态页面可正常显示，LEFT与数据相连为动态，该部分在显示页面报错如上！单独访问LEFT页面也同样报错！！但若将LEFT的内容重写入另一独立新页面则访问成功且速度极快！何故？？何解？？急急急！高手赐教！！其他兄弟进门的帮忙力顶！！！！谢！！！

...全文

217 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

actor2222 2003-12-11

打赏
举报

当我将三框架的四个文件全保存在根目录上时均成功，但在基于根目录的文件夹则出现上述情况！盼解惑！望访问的兄弟帮忙顶一下！：）

abc110 2003-12-08

打赏
举报

上面加入一行：
server.scripttimeout=600
时间设为10分钟，看它还超时。

actor2222 2003-12-08

打赏
举报

以上方案均以试过，可惜无效！！！急！！！！！！！！顶！！！！！！！！！！！

xxsoft 2003-12-08

打赏
举报

IIS管理-属性---主目录--配置--应用程序选项---会话超时---这里设长一点。。

actor2222 2003-12-08

打赏
举报

就是一般的树型目录！独立页面单独访问正确！！！！困惑！
代码如下：<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META name=VI60_defaultClientScript content=VBScript>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
</head>
<style type="text/css">

</style>
<body bgcolor="DEE3F7">
<% Server.ScriptTimeOut=300
on error resume next
dim cn,rs,SQL ,Para,NumChild
set cn=server.CreateObject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
set rs1=server.createobject("ADODB.recordset")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("tree.mdb")
cn.Open connstr
SQL="Select * from tree order by ID"
rs.open SQL,cn,3,2
do while not rs.EOF
SQL="Select ID from tree where ID like '" & rs("ID") & "%' and ID<>'" & rs("ID") & "' order by ID"
Para=rs("ID") & "|"
NumChild=0
rs1.open SQL,cn, 3,2
NumChild=rs1.RecordCount
do while not rs1.EOF
Para =Para & rs1("ID") & "|"
rs1.MoveNext
loop
Para=cstr(trim(left(Para,len(Para)-1)))
rs1.Close
%>
<table id="T<%=rs("ID")%>"
border=1
cellpadding=0
cellspacing=0
bordercolor="#DEE3F7"
class="aa"
abbr="<%=Para%>"
summary=<%=checkid(rs("ID"))%>
style="cursor:hand"
onClick="vbs:subtree '<%=Para%>'" >

<tr>
<td width="<%=17+checkid(rs("ID"))*20%>"
height="20" align="right">
<table width="20" height="20" border="1" cellpadding="0" cellspacing="0" bordercolor="#DEE3F7">
<tr>

<td align="center" valign="middle" bordercolor="#000000" id="R<%=rs("ID")%>" ><%if NumChild=0 then Response.Write "." else Response.Write "-"%></td>
</tr>
</table>
</td>

<td height="20"
nowrap
bordercolor="#FFFFFF"
onMouseOver="vbs:me.bgcolor='#CCCCCC':me.bordercolor='#999999'"
onMouseOut="vbs:me.bgcolor='#DEE3F7':me.bordercolor='#ffffff'"
title="<%=rs("HyperLink")%>">
<%=rs("Name")%></td>
</tr>
</table>

<%
rs.MoveNext
loop
rs.Close:set rs=nothing
cn.Close:set cn=nothing
function checkid(x)
dim Tempnum
Tempnum=0
for i=1 to len(x)
if mid(x,i,1)="_" then
Tempnum=Tempnum+1
end if
next
checkid=Tempnum
end function

%>
<script language=VBS>
sub subtree(Client_para)
if instr(Client_para,"|")=0 then exit sub
Myarray=split(Client_para,"|")
Mytext=eval("R" & Myarray(0) & ".innertext")
select case Mytext
case "+"
document.all.item("R" & Myarray(0)).innertext="-"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")=1 then
document.all.item("T" & Myarray(i)).style.display="block"
end if
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>1 then
document.all.item("T" & Myarray(i)).style.display="none"
end if
next
case "-"
document.all.item("R" & Myarray(0)).innertext="+"
for i=1 to ubound(Myarray)
if eval("T" & Myarray(i) & ".summary")-eval("T" & Myarray(0) & ".summary")>=1 then
document.all.item("T" & Myarray(i)).style.display="none"
if eval("R" & Myarray(i) & ".innertext")="-" then
document.all.item("R" & Myarray(i)).innertext="+"
end if
end if
next
end select
set Myarray=nothing
end sub

Sub document_onselectstart
document.selection.clear
End Sub

if isobject(eval("T1")) then
subtree document.all("T1").abbr
subtree document.all("T1").abbr
end if
</script>

</html>
逻辑运行均无错，仅作为框架运行出错！！！

BingGroup 2003-12-08