错误求助 错误 '80020009'
select * from UserList where id ='88299' 错误 '80020009'/admins3s9/admin_Code_data2.asp，行 94
代码如下，请问94行错在哪了
<%
If 1=2 Then
Set Rs22 = Server.CreateObject("ADODB.Recordset")
sql22 = "select * from UserList "
rs22.open sql22,conn,1,3
If Not rs22.eof Then
Do While Not rs22.eof
If rs22("taskjifen")="" Or IsNull(rs22("taskjifen")) Then
rs22("taskjifen")=0
rs22.update
End if
rs22.movenext
Loop
End If
'response.write "ss"
'response.End
End if
on error goto 0
if Request("begin") <> "on" then Response.End()
Response.Write "开始处理数据......" & Now() & "<br>"
sql = "select * from usercodeexcel where PStatus = 0"
Set Rs = Server.CreateObject("ADODB.Recordset")
Set RsUser = Server.CreateObject("ADODB.Recordset")
Set RsTmp = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
rs.close
response.Write "没有任何资料要处理...." & Now() & "<br>"
response.End()
else
response.Write "一共有" & conn.execute("select count(ID) from usercodeexcel where PStatus = 0")(0) & "笔数据要处理...." & Now() & "<br><br>"
end if
do while not rs.eof
sql = ""
sql = "select * from UsercodeList where 1 = 1 "
sql = sql & " and issued = '" & rs("issued") & "'"
RsUser.open sql,conn,1,3
if RsUser.eof and RsUser.bof then
Response.Write "issued(" & rs("issued") & ")在用户表里面找不到，跳过......" & Now() & "<br>"
else
sql = "select codejifen,codename from codelist where id = " & RsUser("codeid") & ""
RsTmp.open sql,conn,1,1
if RsTmp.eof and RsTmp.bof then
Response.Write "数据核对错误......" & Now() & "<br>"
RsTmp.close
RsUser.Close
else
jifen = CDbl(rs("newnum")) * CDbl(RsTmp(0))
codename= RsTmp(1)
RsTmp.close
userid = RsUser("userid")
Response.Write ""&RsUser("userid")&"数据检查OK，更新数据......" & Now() & "<br>"
RsUser("newnum") = rs("newnum")
RsUser("totalnum") = RsUser("totalnum") + rs("newnum")
RsUser("totaljifen") = RsUser("totaljifen") + jifen
RsUser("newjifen") = jifen
RsUser("etime") = Now()
RsUser.Update
Set Rs22 = Server.CreateObject("ADODB.Recordset")
sql22 = "select * from UserList where id ='"&RsUser("userid")&"' "
response.write sql22
rs22.open sql22,conn,1,1
If Not rs22.eof Then
Set Rs222 = Server.CreateObject("ADODB.Recordset")
sql222 = "select * from UserList where username ='"&rs22("formuser")&"' "
rs222.open sql222,conn,1,3
rs222("jifen")=rs222("jifen")+jifen*0.02 这是94行
rs222.update
set rsc=server.createobject("adodb.recordset")
sqlc="select * from JifenList"
rsc.open sqlc,conn,1,3
rsc.addnew
rsc("UserID") = rs222("id")
rsc("Jifen") = jifen*0.02
rsc("money") =0
rsc("Record") = "好友"&rs22("id")&"打码得到2%的提成"
rsc("time") = now()
rsc.update
End if
if Add_User_Jifen(Userid,jifen,0,"打码项目[" & codename & "]，" & rs("newnum") & "票奖励，工号：" & rs("issued") ,True) then
Response.Write "更新Jifen成功......" & Now() & ""
end if
rs("Pstatus") = True '将处理的记录修改好
rs.update
end if
end if
Response.Write "<br>"
Response.Flush()
RsUser.close
rs.movenext
loop
rs.close
set rs=nothing
Response.Write "数据处理完毕......" & Now() & "<br>"
%>
