<%
set rs=nothing
end sub
sub save()
'保存资料
ACCID=trim(request("ACCID"))
if ACCID="" then
response.Write "<Script>alert('非法链接,您的IP已记录!');javascript:history.go(-1)</Script>"
Response.end
end if
sql = "select * from USER where ACCID='"&ACCID&"'"
set rs=Server.Createobject("ADODB.RecordSet")
rs.Open sql,conn2,1,3
if rs.bof and rs.eof then
response.Write "<Script>alert('操作失败!');javascript:history.go(-1)</Script>"
response.end
else
rs("COUNTRY")=(trim(request("COUNTRY")))
rs("TYPE")=(trim(request("TYPE")))
rs("LEVEL")=(trim(request("LEVEL")))
rs("MEN")=(trim(request("MEN")))
rs("DEX")=(trim(request("DEX")))
rs("POINTS") = trim(request("POINTS"))
rs("INT")=trim(request("INT"))
rs("STR")=trim(request("STR"))
rs("CON")=trim(request("CON")) 这颜色部分是的报错语句,我把这几条都删除,同样还报错.
rs("yzm")=now()
rs.update 这里是报错行.
rs.close
set rs = nothing
response.write "<script language='javascript'>"
response.write "alert('操作成功，资料已更新！');"
response.write "location.href='user.asp';"
response.write "</script>"
response.end
end if
end sub

sub userdel()
delnum=request("num")
if delnum="" or isnull(delnum) then
response.write "<script language='javascript'>"
response.write "alert('出错了，您什么也没有选择！');"
response.write "location.href='user.asp';"
response.write "</script>"
response.end
end if

conn2.execute("delete from CHARBASE where ACCID in ("&delnum&")")
response.write "<script language='javascript'>"
response.write "alert('操作成功，选定的已被删除！操作前请先备份!');"
response.write "location.href='user.asp';"
response.write "</script>"
response.end
conn.close
set conn=nothing
end sub
%>