asp 函数 执行 超时

来源:百度知道 编辑:UC知道 时间:2024/06/28 03:21:35
Function Downxfj(dqxf,ab,bh) ' , bh是本人编号
dim sql,rs
sql="select * from user where bh='"&bh&"'" ' and ab='"&ab&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,dbconn,3,3

if dqxf>=500 then '如果消费奖金大于等于500元
rs("dqxf")=rs("dqxf")-500
rs.update
dim sql1,rs1
tier2=0
flag2=true
while tire2<=14 and flag2=true '0--14 是下面15个人,,flag判断下面有没有人
tier2= tier2+1
set rs1=server.CreateObject("adodb.recordset")
sql1="select * from user where tjrbh='"&bh&"' and ab='"&ab&"'"
' response.write sql1
' response.End()
rs1.open sql1,dbconn,3,3
' if not rs1.eof then
if rs1("bh") <> ""

set rs1=server.CreateObject("adodb.recordset")
不要放到循环里
你的程序只要一个adodb.recordset对象就可以了干吗用两个
还有对于在一个过程里多次打开数据库最好用Connectiond对象
set cn = server.CreateObject("adodb.Connection")
set rs = server.CreateObject("adodb.recordset")
cn.open dbconn
while …
rs.open sql1,cn,3,3

rst.close
wend

cn.close

Set rs = Nothing
Set cn= Nothing

while (tire2<=14) and (flag2=true)

你掉了一句RS1.moveNext处理完一条记录后要将指针下移一下,这一句应加在RS1.update后面