<!--#include file="../conn.asp"-->
<!--#include file="../md5.asp"-->
<!--#include file="../fangsql.asp"-->
<%
if jiemi("cczhuce",request("yanzheng")) = True then dim zhucezhanghao,zhucemima,querenmima,zengsongshijian,quhuimima,yzm,jiqima
zhucezhanghao=request("u")
zhucemima=request("p")
querenmima=request("ps")
quhuimima=request("quhui")
yzm=request("yzm")
jiqima=request("m") if len(zhucezhanghao)=0 then
response.write("用户帐号不能为空")
response.end
end if
if instr(1,zhucezhanghao," ")<>0 then
response.write("用户帐号里面不能有空格")
response.end
end if
if instr(1,zhucezhanghao,"'")<>0 or instr(1,zhucezhanghao,"|")<>0 then
response.write("用户帐号里面含有非法字符")
response.end
end if
if len(zhucemima)=0 then
response.write("密码不能为空")
response.end
end if
if instr(1,zhucemima," ")<>0 then
response.write("用户密码里面不能有空格")
response.end
end if
if instr(1,zhucemima,"'")<>0 or instr(1,zhucemima,"|")<>0 then
response.write("用户密码里面含有非法字符")
response.end
end if
if len(quhuimima)=0 then
response.write("安全信息不能为空")
response.end
end if
if instr(1,quhuimima," ")<>0 then
response.write("安全信息里面不能有空格")
response.end
end if
if instr(1,quhuimima,"'")<>0 or instr(1,quhuimima,"|")<>0 then
response.write("安全信息里面含有非法字符")
response.end
end if
if len(jiqima)=-1 then
response.write("出现异常错误,请关闭本程序再启动.")
response.end
end if
if zhucemima=querenmima then rs.open "select * from xtszbiao",con,1,1
zengsongshijian = rs("zengsongtime")
if rs("xtszbeifen1")="禁止注册" then
rsguanbi()
conguanbi()
response.write "管理员已禁止注册用会员用户."
response.end
end if
rs.Close response.cookies("ccaspxzzc").expires = date+7
if request.cookies("ccaspxzzc") ="" then
rs.open "select * from yonghubiao where uesr='" & zhucezhanghao & "'",con,1,3
if rs.bof and rs.eof then
rs.AddNew
rs("uesr")=zhucezhanghao
rs("pass")=md5(zhucemima)
rs("zhuceitem")=Now()
rs("daoqiitem")=Now() + zengsongshijian / 24
rs("anquanxinxi")=quhuimima
rs("sotp")="正常"
rs("zhuangtai")="离线"
rs("jiqima")=jiqima
rs.Update
rsguanbi()
conguanbi()
session("ccyzmh")=""
response.cookies("ccaspxzzc")=now() + 1 / 24 / 60
response.write("成功注册会员用户.")
response.end
else
rsguanbi()
conguanbi()
response.write("该用户已存在,请换过另一个名字注册哦!")
response.end
end if
else
if CDate(request.cookies("ccaspxzzc")) > now then
rsguanbi()
conguanbi()
response.write "注册繁忙,由于您才刚申请完用户不久,就请您休息下再进行注册."
else
rs.open "select * from yonghubiao where uesr='" & zhucezhanghao & "'",con,1,3
if rs.bof and rs.eof then
rs.AddNew
rs("uesr")=zhucezhanghao
rs("pass")=md5(zhucemima)
rs("zhuceitem")=Now()
rs("daoqiitem")=Now() + zengsongshijian / 24
rs("anquanxinxi")=quhuimima
rs("sotp")="正常"
rs("zhuangtai")="离线"
rs("jiqima")=jiqima
rs.Update
rsguanbi()
conguanbi()
session("ccyzmh")=""
response.cookies("ccaspxzzc")=now() + 1 / 24 / 60
response.write("成功注册会员用户.")
response.end
else
rsguanbi()
conguanbi()
response.write("该用户已存在,请换过另一个名字注册哦!")
response.end
end if
end if
end if
else
response.write("注册失败,输入密码不一致,请从新输入过密码!")
response.end
end if
end if
%>