怎么为 Server.ScriptTimeOut 属性指定新值

发布网友 发布时间：2022-04-26 07:20

我来回答

共4个回答

热心网友 时间：2022-06-25 05:08

VBScript code Mssql="select * from SendMsgTable where MsgStatus=-100" '这里是连接到彩信发送软件的MSSQL数据库 MsRs.open Mssql,MsConn,1,1if not (MsRs.eof and MsRs.bof) then Do while not MsRs.eof ' dim Tmp_Verify '此处是根据另外一个数据库MMS来判断状态的 在循环内做此动作 循环1个1个检查核对还钱 Tmp_Verify="" '循环了一次后要清空重新赋值 Tmp_Verify=Trim(MsRs("Tmp_Verify")) dim sql1,user '与彩信发送表核对-------------------------------- '这里是连接到本地的ACCESS数据库 set picrs=server.CreateObject("adodb.recordset") sql1="select * from sendpic where loginname='"&session("loginname")&"' and Tmp_Verify='"&Tmp_Verify&"'" picrs.open sql1,Conn,1,3 if not picrs.eof then '先给user表还钱，后将发送表sendpic的money价格扣回0 以免重复还钱 set user=server.CreateObject("adodb.recordset") user.open "select money from [user] where loginname='"&session("loginname")&"'",conn,1,3 if not user.eof then user.update user("money")=user("money")+picrs("money") '还钱 user.update end if set user=nothing user.close picrs.update picrs("money")=0 picrs.update response.Write("<script>alert('发送失败彩信已退款');</script>") end if set picrs=nothing picrs.close '彩信表还款结束--------------------------- MsRs.movenext Loopend if set MsRs=nothing set MsConn=nothing MsRs.close MsConn.close------------------------

热心网友 时间：2022-06-25 05:08

打开IIS本地计算机,点网站,右键-属性主目录配置选项-ASP脚本超时时间,可以改为60-90秒。

热心网友 时间：2022-06-25 05:08

在程序文件前面加：
Server.ScriptTimeout=999
如果用到数据库，有时还有设置Connection对象的超时时间
CONN.COMMANDTIMEOUT=999

热心网友 时间：2022-06-25 05:09

变形金刚