Active Server Pages 错误 'ASP 0113' 问题
在一个系统中导入数据是，又以下提示，请各位看下是什么问题！
Active Server Pages 错误 'ASP 0113'
脚本超时
/daogzdsjqts.asp
超过了脚本运行的最长时间。可以为 Server.ScriptTimeOut 属性指定新值或更改 IIS 管理工具中的相应值来更改此限制。
在网上查的更改相应时间没有用，时间不到一直停在导数据时的界面
以前导入的时候是没有问题的！
以下是源代码
daogzdsjqts.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!-- #include file="BGMConn.asp" --><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>导其他工资单</title> </head> <body> <% Set excconn=Server.CreateObject("ADODB.Connection") excStrConn= "Driver={Microsoft Excel Driver (*.xls)};DBQ="&request("file") excconn.Open excStrConn '查询excel语句 Set excrs = Server.CreateObject("ADODB.Recordset") excSql="select * from [qtgzsj$]" excrs.Open excSql,excconn,2,2 do while Not excrs.EOF sql="select * from namesfz where name='"&excrs(0)&"'" 'response.write excrs(0) set rs=server.createObject("ADODB.Recordset") rs.open sql,conn,1,1 if Not rs.EOF then '此用户存在 'response.write rs("id") flat=0 'if not rs.eof then 'j=0 sql1="select * from jhgz where name='"&excrs(0)&"'" set rs1=server.CreateObject("adodb.recordset") rs1.open sql1,conn,1,3 do while Not rs1.EOF if year(date())= year(rs1("time")) and month(rs1("time"))=month( year(date())&"-"&request("month_gz")&"-"&day(date())) then flat=1 for t_i=1 to 4 rs1(t_i+21) = excrs(t_i) next rs1.update 'response.write rs1(2) ' response.write "<script>alert('更新成功！');location.href='gzmanage.asp';<'/script>" end if rs1.movenext loop set rs1=nothing if flat <> 1 then sql2="select * from qit" set rs2=server.CreateObject("adodb.recordset") rs2.open sql2,conn,1,3 rs2.addnew rs2("name")=excrs(0) rs2("qx")=excrs(1) rs2("sfgz")=excrs(2) rs2("zlkh")=excrs(3) rs2("shjl")=excrs(4) rs2.update rs2.close set rs2=nothing end if else '此用户不存在 'response.write excrs(0) sql="select * from cunzainame " set jhgz_rs=server.createObject("ADODB.Recordset") jhgz_rs.open sql,conn,1,3 jhgz_rs.addnew jhgz_rs("name")=excrs(0) jhgz_rs.update ' response.write jhgz_rs("name") jhgz_rs.close set jhgz_rs=nothing end if ' rs.close set rs=nothing excrs.MoveNext Loop excrs.close set excrs=nothing excConn.close set excConn=nothing flatt=0 set cunzai_rs=server.createObject("ADODB.Recordset") cunsql="select * from cunzainame " cunzai_rs.open cunsql,conn,1,1 if Not cunzai_rs.EOF then flatt=flatt+1 %> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td align="center"> 以下用户没有注册！数据没有存入数据库！</td> </tr> <% do while Not cunzai_rs.EOF %> <tr> <td><%= cunzai_rs(1)%></td> </tr> <% cunzai_rs.MoveNext loop ' response.write "以下用户没有注册！数据没有存入数据库！" %> </table> <% 'else 'response.write "数据全部存入数据库！" end if cunzai_rs.close set qit_rs=server.createObject("ADODB.Recordset") qitsql="select * from qit " qit_rs.open qitsql,conn,1,1 if Not qit_rs.EOF then flatt=flatt+1 %> <table width="100%" border="1" cellspacing="0" cellpadding="0"> <tr> <td colspan="3" align="center"> 以下用户 <%=request("month_gz")%> 月的主工资单还没有存入数据库，请先存主工资单，再添加其他工资单,其他用户数据已经存入数据库！</td> </tr> <% do while Not qit_rs.EOF %> <tr> <td><%= qit_rs(1)%></td> <td><%= qit_rs(2)%></td> <td><%= qit_rs(3)%></td> <td><%= qit_rs(4)%></td> </tr> <% qit_rs.MoveNext loop ' response.write "以下用户没有注册！数据没有存入数据库！" %> </table> <% 'else 'response.write "数据全部存入数据库！" end if qit_rs.close set qit_rs= nothing if flatt = 0 then response.write "<script>alert('全部用户数据都存入数据库！');location.href='gzmanage.asp';</script>" end if set rss=server.createobject("adodb.recordset") sql="delete from cunzainame "rss.open sql,conn,1,1set rss=nothingset rss=server.createobject("adodb.recordset") sql="delete from qit "rss.open sql,conn,1,1set rss=nothing conn.close set conn=nothing %> </body></html>