错误信息为;多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="articleconn.asp"-->
<!--#include file="../MD5/md5.asp" -->
<!--#include file="../../check.asp"-->
<%if session("flag")>1 then
response.write "<script>alert('您的操作权限不够!');history.back();</script>"
response.end
end if
%>
<%
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
sql="select * from User where UserID="&Cint(request("userid"))
rs.open sql,conn,1,3
if request("change")<>"" then
rs("UserID")=request("userid") --------报错的是这句
if Replace(request("password"), "'", "''")<>"" then
rs("Password")=md5(Replace(request("password"), "'", "''"))
end if
rs("Username")=request("myname")
rs("email")=request("email")
rs("oklook")=request("oklook")
rs("nos")=request("nos")
rs("send")=request("send")
rs("money")=request("money")
rs("Answer")=request("Answer")
rs("starlook")=request("starlook")
rs("nlook")=request("nlook")
rs("sex")=request("sex")
'rs("province")=request("province")
rs("Question")=request("Question")
rs("phone")=request("phone")
rs("pay")=request("pay")
rs("baoyue")=request("baoyue")
rs("getmoney")=request("getmoney")
rs("usercount")=request("usercount")
rs.update
else
rs("getmoney")="0"
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect Request.ServerVariables("HTTP_REFERER")
%>
</body>
</html>