changeuser.asp

实现让客户上网就可以挑选自己所想要的装饰物

<!--#include file="cn.asp"-->
<!--#include file="func.asp"-->
<%
if  session("user")="" then
response.Write "<script language=javascript>alert('非法途径！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
end if
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from users where id="&id
rs.open sql,cn,1,3

'rs("uname")=trim(request.Form("uname"))
'rs("mm")=md5(trim(request.Form("mm")))
rs("tname")=trim(request.Form("tname"))
'rs("sex")=trim(request.Form("sex"))
'rs("age")=trim(request.Form("age"))
'rs("question")=trim(request.Form("question"))
'rs("answer")=trim(request.Form("answer"))
'rs("card")=trim(request.Form("card"))
rs("qq")=trim(request.Form("qq"))
rs("msn")=trim(request.Form("msn"))
rs("email")=trim(request.Form("email"))
rs("tel")=trim(request.Form("tel"))
rs("fax")=trim(request.Form("fax"))
rs("address")=trim(request.Form("address"))
rs("post")=trim(request.Form("post"))
rs("inf")=trim(request.Form("inf"))
rs.update
response.Write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End()
rs.close
set rs=nothing
cn.close
set cn=nothing
%>