usereditzlchk.asp

二手程序,可是实现会员的等级功能管理,会员可以有上船图片,给信息标题加颜色功能!

<!--#include file=conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=err.asp-->
<!--#include file=ipt.asp-->
<%
dim email,name,idcard,Sex,dianhua,youbian,dizhi
dim rs,sql,username
username=request.cookies("ijob")("username")
name=trim(request("name"))
email=trim(request("email"))
idcard=trim(request("idcard"))
Sex=trim(request("Sex"))
dianhua=trim(request("dianhua"))
youbian=trim(request("youbian"))
dizhi=trim(request("dizhi"))
if dizhi="" or name="" or idcard="" or dianhua="" or youbian="" then
call errijob(4)
response.end
end if
chkijob(name)
if not isnumeric(youbian) or len(youbian)<>6 then
call errijob(5)
response.end
end if
if not isnumeric(idcard) or len(idcard)<15 or len(idcard)>18 then
call errijob(6)
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select name,email,idcard,Sex,dianhua,youbian,dizhi,zcdata from [user] where username='"&username&"'"
rs.open sql,conn,1,3
rs("name")=name
rs("email")=email
rs("idcard")=idcard
rs("Sex")=Sex
rs("dianhua")=dianhua
rs("youbian")=youbian
rs("dizhi")=dizhi
rs("zcdata")=now()
rs.update
rs.close
set rs=nothing
closedb
response.write "修改成功！！"
response.write "<meta http-equiv=refresh content=""1;URL=usereditzl.asp"">"
response.end
%>