<!--#include file="conn.asp"-->
<!--#include file="inc/md5.asp"-->
<%
userid=request.QueryString("userid")
word=trim(request("word"))
tid = int(Request("tid"))

select case action
case "save"
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from com_user where userid="&userid,conn,1,3

if trim(request("userpassword"))<>"" then rs("userpassword")=md5(trim(request("userpassword")))
rs("username")=trim(request("username"))
rs("reglx")=trim(request("reglx"))
if trim(request("vipdate"))<>"" then
rs("vipdate")=trim(request("vipdate"))
end if
rs("UserQuesion")=trim(request("UserQuesion"))
if trim(request("UserAnswer"))<>"" then rs("UserAnswer")=md5(trim(request("UserAnswer")))

rs("user_01")=trim(request("user_01"))
rs("useremail")=trim(request("useremail"))
rs("Usersex")=request("Usersex")
rs("user_03")=trim(request("user_03"))
rs("user_04")=trim(request("user_04"))
rs("user_05")=trim(request("user_05"))
rs("jifen")=int(request("jifen"))
rs.Update
rs.Close
set rs=nothing
response.Write "<script language=javascript>alert('操作成功!');history.go(-1);</script>"

end select
%>
