user.asp

蓝色WAP建站系统,WAP源码,更多请登陆http://xywap.cn

if len(Password)<6 then
	response.redirect "wapls_404.asp?id=21"
end if
if Password<>PwdConfirm then
	response.redirect "wapls_404.asp?id=22"
end if
if BPCheckEMail(Email)=false then
	response.redirect "wapls_404.asp?id=23"
end if
if request.form("bbsReg")="" then
	bbsReg=0
else
	bbsReg=1
end if
dim sqlReg,rsReg
sqlReg="select * from wapls_user where name='"&UserName&"'"
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if not(rsReg.bof and rsReg.eof) then
	rsReg.close
	set rsReg=nothing
	response.redirect "wapls_404.asp?id=24"
else
	rsReg.addnew
	rsReg("name")=UserName
	rsReg("password")=md5(Password)
	rsReg("question")=Question
	rsReg("answer")=Answer
	rsReg("sex")=Sex
	rsReg("email")=Email
	rsReg("author")=Author
	rsReg("tel")=Tel
	rsReg("qq")=qq
	rsReg("user_type")=1
	rsReg("login_num")=0
	if user_system=1 then '会员系统设置为用户注册需要通过审核
		rsReg("passed")=0
	else
		rsReg("passed")=1
	end if
	rsReg("last_ip")=request_ip
	rsReg("last_time")=now()
	rsReg("user_money")=user_startmoney
	rsReg("user_exper")=user_startexper
	rsReg("content")=""
	rsReg.update
	rsReg.close
	set rsReg=nothing
	response.write "注册成功!<br/>"
	session("name")=UserName
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
response.write "----------<br/>"
end if
Response.Write "<a href='?Action=main'>[控制面板]</a>"
end if
else
Response.write "<card id='index' title='会员注册'>"
Response.write "<p align='"&const1&"'>"
%>
会员名称:*<br/><input name="name<%=minute(now)%><%=second(now)%>" type="text" maxlength="10"/><br/>
会员密码:*<br/><input type="password" name="pass<%=minute(now)%><%=second(now)%>" maxlength="8"/><br/>
确认密码:*<br/><input type="password" name="Pwd<%=minute(now)%><%=second(now)%>" maxlength="8"/><br/>
安全提问:*<br/><select name="Question<%=minute(now)%><%=second(now)%>">
<option>请选择提示问题</option>
<option value="母亲的名字">母亲的名字</option>
<option value="父亲的名字">父亲的名字</option>
<option value="出生的城市">出生的城市</option>
<option value="您的手机颜色">您的手机颜色</option>
<option value="您个人手机型号">您个人手机型号</option>
<option value="您最喜欢的人名称">您最喜欢的人名称</option>
<option value="身份证最后四位数字">身份证最后四位数字</option>
</select><br/>
安全回答:*<br/><input type="text" name="Answer<%=minute(now)%><%=second(now)%>" maxlength="10"/><br/>
真实姓名:<br/><input type="text" name="author<%=minute(now)%><%=second(now)%>" maxlength="8"/><br/>
手机号码:*<br/><input type="text" format="*N" name="tel<%=minute(now)%><%=second(now)%>" maxlength="11"/><br/>
电子邮箱:*<br/><input type="text" name="email<%=minute(now)%><%=second(now)%>" maxlength="100"/><br/>
QQ号码:<br/><input type="text" format="*N" name="qq<%=minute(now)%><%=second(now)%>" maxlength="11"/><br/>
会员性别:*<br/>
<select name="sex<%=minute(now)%><%=second(now)%>" value="1">
<option value="1">男士</option>
<option value="0">女士</option>
</select><br/>
验证号码:*<br/><input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="8"/>  <%=s%><br/>
<anchor>[提交注册]<go href="?Action=reg" method='post'>
<postfield name="username" value="$(name<%=minute(now)%><%=second(now)%>)"/>
<postfield name="password" value="$(pass<%=minute(now)%><%=second(now)%>)"/>
<postfield name="PwdConfirm" value="$(Pwd<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Question" value="$(Question<%=minute(now)%><%=second(now)%>)"/>
<postfield name="Answer" value="$(Answer<%=minute(now)%><%=second(now)%>)"/>
<postfield name="author" value="$(author<%=minute(now)%><%=second(now)%>)"/>
<postfield name="tel" value="$(tel<%=minute(now)%><%=second(now)%>)"/>
<postfield name="qq" value="$(qq<%=minute(now)%><%=second(now)%>)"/>
<postfield name="email" value="$(email<%=minute(now)%><%=second(now)%>)"/>
<postfield name="sex" value="$(sex<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz1" value="<%=s%>"/>
<postfield name="adduser" value="true"/>
</go></anchor>
<%
end if
end Function
'========会员资料修改=======
Function editdata
if request.form("editdata")="true" then
Response.write "<card id='index' title='资料修改'>"
Response.write "<p align='"&const1&"'>"
if user_system=0 then 
	response.write "对不起,会员系统暂不开放!<br/>"
end if
yz=request("yz")
yz1=Request("yz1")
if yz<>yz1 then
response.redirect "wapls_404.asp?id=9"
end if
dim Sex,Email,Author,qq,id
id=request.form("id")
Sex=Request.form("Sex")
qq=Request.form("qq")
Email=request.form("Email")
Author=request("Author")
if BPCheckEMail(Email)=false then
	response.redirect "wapls_404.asp?id=23"
end if
dim sqlReg,rsReg
sqlReg="select * from wapls_user where user_id="&id
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if rsReg.bof and rsReg.eof then
	rsReg.close
	set rsReg=nothing
	response.redirect "wapls_404.asp?id=2"
else
	rsReg("sex")=Sex
	rsReg("email")=Email
	rsReg("qq")=qq
	rsReg("Author")=Author
	rsReg.update
	rsReg.close
	set rsReg=nothing
	response.write "修改成功!<br/>"
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
response.write "----------<br/>"
end if
end if
else
Response.write "<card id='index' title='资料修改'>"
Response.write "<p align='"&const1&"'>"
sql="select * from wapls_user where name='"&session("name")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write"无此用户"
else
%>
会员名称:<%=rs("name")%><br/>
真实姓名:<br/><input type="text" name="author<%=minute(now)%><%=second(now)%>" maxlength="8" value="<%=rs("author")%>"/><br/>
手机:<%=rs("tel")%><br/>
电子邮箱:*<br/><input type="text" name="email<%=minute(now)%><%=second(now)%>" maxlength="100" value="<%=rs("email")%>"/><br/>
QQ号码:<br/><input type="text" format="*N" name="qq<%=minute(now)%><%=second(now)%>" maxlength="11" value="<%=rs("qq")%>"/><br/>
会员性别:*<br/>
<select name="sex<%=minute(now)%><%=second(now)%>" value="<%=rs("sex")%>">
<option value="1">男士</option>
<option value="0">女士</option>
</select><br/>
验证号码:*<br/><input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="8"/>  <%=s%><br/>
<anchor>[提交注册]<go href="?Action=editdata" method='post'>
<postfield name="author" value="$(author<%=minute(now)%><%=second(now)%>)"/>
<postfield name="qq" value="$(qq<%=minute(now)%><%=second(now)%>)"/>
<postfield name="email" value="$(email<%=minute(now)%><%=second(now)%>)"/>
<postfield name="sex" value="$(sex<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz1" value="<%=s%>"/>
<postfield name="id" value="<%=rs("user_id")%>"/>
<postfield name="editdata" value="true"/>
</go></anchor><br/>
<%
rs.close
set rs=nothing
end if
end if
Response.Write "<a href='?Action=main'>[控制面板]</a>"
end Function
'========会员密码修改=======
Function editPass
if request.form("editPass")="true" then
Response.write "<card id='index' title='密码修改'>"
Response.write "<p align='"&const1&"'>"
if user_system=0 then 
	response.write "对不起,会员系统暂不开放!<br/>"
end if
yz=request("yz")
yz1=Request("yz1")
if yz<>yz1 then
response.redirect "wapls_404.asp?id=9"
end if
dim Password,PwdConfirm,id
Password=request.form("Password")
PwdConfirm=request.form("PwdConfirm")
id=request.form("id")
dim sqlReg,rsReg
sqlReg="select * from wapls_user where user_id="&id
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,1,3
if rsReg.bof and rsReg.eof then
	rsReg.close
	set rsReg=nothing
	response.redirect "wapls_404.asp?id=2"
if len(Password)<6 then
	response.redirect "wapls_404.asp?id=21"
end if
if Password<>PwdConfirm then
	response.redirect "wapls_404.asp?id=22"
end if
else
	rsReg("password")=md5(Password)
	rsReg.update
	rsReg.close
	set rsReg=nothing
	response.write "密码成功!<br/>"
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/><br/>"
else
response.write "----------<br/>"
end if
end if
else
Response.write "<card id='index' title='密码修改'>"
Response.write "<p align='"&const1&"'>"
sql="select * from wapls_user where name='"&session("name")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write"无此用户"
else
%>
新的密码:*<br/><input type="password" name="pass<%=minute(now)%><%=second(now)%>" maxlength="8"/><br/>
确认密码:*<br/><input type="password" name="Pwd<%=minute(now)%><%=second(now)%>" maxlength="8"/><br/>
验证号码:*<br/><input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="8"/>  <%=s%><br/>
<anchor>[提交注册]<go href="?Action=editPass" method='post'>
<postfield name="password" value="$(pass<%=minute(now)%><%=second(now)%>)"/>
<postfield name="PwdConfirm" value="$(Pwd<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz1" value="<%=s%>"/>
<postfield name="id" value="<%=rs("user_id")%>"/>
<postfield name="editPass" value="true"/>
</go></anchor><br/>
<%
rs.close
set rs=nothing
end if
end if
Response.Write "<a href='?Action=main'>[控制面板]</a>"
end Function
'========会员注册声明=======
Function add
Response.write "<card id='index' title='会员注册'>"
Response.write "<p align='"&const1&"'>"
%>
继续注册前请先阅读【<%=wapname%>】网站协议<br/>
<br/><%=outHTM(user_add)%><br/><br/>
<a href="?Action=reg">我同意</a>|<anchor><prev/>不同意</anchor><br/>
<%
if len(mb_logo)>1 then
response.write "<img src='"&mb_logo&"/fgx.gif' alt='.'/>"
else
response.write "----------"
end if
end Function
%><br/><a href="index.asp">[返回首页]</a>
<!--#include file="wapls_down.asp"-->