edituser.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,3)

Dim UID
uid=CheckStr(Trim(Rst("UserID")))
if not isNum(UID) then Call AlertInfo("没有找到此用户的信息！","",0)

Dim RsUser
set rsuser=server.createobject("adodb.recordset")
sql="select * from users where regid="&uid
rsuser.open sql,conn,1,3
if rsuser.eof then Call AlertInfo("没有找到此用户的信息！","",0)
rsuser("regusername")=rst("username")
IF rst("password")<>rsuser("regpassword") then rsuser("regpassword")=md5(rst("password"),cBBRMd5Byte)
rsuser("regname")=rst("name")
rsuser("regsex")=rst("sex")
rsuser("idcard")=rst("idcard")
rsuser("regstate")=rst("TPL_prov")
rsuser("regcity")=rst("TPL_city")
rsuser("regaddress2")=rst("address2")
if rst("tel")<>"" then
rsuser("regtel")=rst("tel")
end if
if rst("userqq")<>"" then
rsuser("userqq")=rst("userqq")
end if
rsuser("regemail")=rst("email")
rsuser("regaddress1")=rst("address1")
rsuser("regzip")=rst("zip")
rsuser("credit")=rst("credit")
rsuser("degrade")=rst("degrade")
rsuser("bbrmoney")=rst("bbrmoney")

rsuser("regvalidated")=Ucase(rst("validated"))
rsuser("regadmin")=Ucase(rst("regadmin"))
rsuser("regtime")=rst("regtime")
rsuser.update
response.write"<script language=javascript>alert('用户信息更新成功！');this.location.href='"&Cnbbr_ComeUrl&"';</script>"
response.end
rsuser.close
set rsuser=nothing
%>