user.asp

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

<!--#include file="wapls_up.asp"-->
<%
'==================================
'=文 件 名：User.asp
'=适用版本：蓝色世纪WAP网站管理系统(CMS)V1.1
'=官方版权：http://www.wapls.com
'=文件功能：网站会员前台
'=文件作者：蓝色阳光
'=发行时间：2007-02-01
'==================================
IF  Request.QueryString("Action")="reg" Then
	call reg
elseIF  Request.QueryString("Action")="login" Then
	call login
elseIF  Request.QueryString("Action")="add" Then
	call add
elseIF  Request.QueryString("Action")="logout" Then
	call logout
elseIF  Request.QueryString("Action")="main" Then
	call main
elseIF  Request.QueryString("Action")="lostpass" Then
	call lostpass
elseIF  Request.QueryString("Action")="editdata" Then
	call editdata
elseIF  Request.QueryString("Action")="editPass" Then
	call editPass
else
	call index
End IF
'========会员系统主页=======
Function index
Response.write "<card id='index' title='会员登陆'>"
Response.write "<p align='"&const1&"'>"
if user_system=0 then
response.write "对不起,会员系统暂不开放!<br/>"
else
if session("name")<>"" then
response.redirect  "?Action=main"
else
if len(mb_user)>1 then
response.write ""&outHTM(mb_user)&"<br/>"
end if
%>
会员名称:<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 name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="8"/>  <%=s%><br/>
<anchor>[会员登陆]<go href="?Action=login" method='post'>
<postfield name="username" value="$(name<%=minute(now)%><%=second(now)%>)"/>
<postfield name="password" value="$(pass<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz1" value="<%=s%>"/>
</go></anchor><br/>
<a href="?Action=lostpass">[忘记密码]</a><br/>
<%
if user_system=3 then
response.write "[会员注册]"
else
response.write "<a href='?Action=add'>[会员注册]</a>"
end if
end if
end if
end Function
'========会员系统登陆=======
Function login
Response.write "<card id='index' title='会员登陆'>"
Response.write "<p align='"&const1&"'>"
if user_system=0 then
	response.write "对不起,会员系统暂不开放!<br/>"
end if
dim UserName,userpwd,yz,yz1,userpass
UserName=request.form("username")
userpwd=md5(request.form("password"))
yz=request("yz")
yz1=Request("yz1")
if yz<>yz1 then
response.redirect "wapls_404.asp?id=9"
end if
sql="select * from wapls_user where name='"&UserName&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
	response.redirect "wapls_404.asp?id=4"
elseif rs("password")<>userpwd then
	response.redirect "wapls_404.asp?id=5"
elseif rs("passed")=0 then
	response.redirect "wapls_404.asp?id=6"
elseif rs("lock")=1 then
	response.redirect "wapls_404.asp?id=7"
else
	dim old_time,old_ip
	rs("last_time")=now()
	rs("last_ip")=Request.ServerVariables("REMOTE_ADDR")
	rs("login_num")=rs("login_num")+1
	rs("user_exper")=rs("user_exper")+user_addexper
	rs.update
	session("name")=username
	session("userlogin")=user_session
	rs.close:set rs=nothing
	Response.Write "欢迎"&session("name")&"您的再次到来!<br/><br/>"
	Response.Write "<a href='?Action=main'>[控制面板]</a>"
end if
end Function
'========会员系统控制=======
Function main
if session("name")="" then
response.redirect  "index.asp"
end if
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
if rs("user_type")=1 then
	usertype="普通会员"
elseif  rs("user_type")=2 then
	usertype="VIP会员"
else
	usertype="游客"
end if
if rs("sex")=1 then
	sex="男"
else
	sex="女"
end if
response.write "ID编号:"&rs("user_id")
response.write "<br/>会员名称:"&session("name")
response.write "<br/>会员性别:"&sex
response.write "<br/>真实名称:"&rs("author")
response.write "<br/>会员权限:"&usertype
response.write "<br/>登陆次数:"&rs("login_num")
response.write "<br/>QQ号码:"&rs("qq")
response.write "<br/>手机号码:"&rs("tel")
response.write "<br/>电子邮箱:"&rs("email")
response.write "<br/>经验:"&rs("user_exper")
response.write "|金币:"&rs("user_money")
response.write "<br/>会员注册时间:"&rs("reg_date")
response.write "<br/>最后登录时间:"&rs("last_time")
response.write "<br/>最后登录IP:"&rs("last_ip")
if len(mb_logo)>1 then
response.write "<br/><img src='"&mb_logo&"/fgx.gif' alt='.'/>"
else
response.write "<br/>----------"
end if
response.write "<br/><a href='?Action=editdata'>[资料修改]</a>"
Response.Write "<br/><a href='?Action=editPass'>[密码修改]</a>"
response.write "<br/><a href='?Action=logout'>[安全退出]</a>"
rs.close
set rs=nothing
end if
end Function
'========会员系统退出=======
Function logout
session("name")=""
session("userlogin")=""
Response.write "<card id='index' title='安全退出' ontimer='index.asp'><timer value='10'/>"
Response.write "<p align='"&const1&"'>"
Response.Write "安全退出成功...<br/>"
end Function
'========会员密码找回=======
Function lostpass
Response.write "<card id='index' title='密码找回'>"
Response.write "<p align='"&const1&"'>"
if request("lostpass")="true" then
yz=request("yz")
yz1=Request("yz1")
if yz<>yz1 then
response.redirect "wapls_404.asp?id=9"
end if
dim UserName,Answer
	userid=request.form("userid")
	Answer=md5(request.form("answer"))
	sql="select * from wapls_user where user_id="&userid
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,3
if rs("Answer")<>Answer then
	response.redirect "wapls_404.asp?id=19"
else
	rs("password")=md5("wapls")
	rs.update
Response.Write "密码找回成功!<br/>会员名称:"&rs("name")&"<br/>会员密码:wapls(已做初始化修改)<br/>请及时登录并修改密码!<br/>"
	session("name")=rs("name")
	session("userlogin")=user_session
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=editPass'>[密码修改]</a>"
		rs.close
		set rs=nothing
	end if
else
if request("telok")="true" then
tel=request.form("tel")
sqltel="select * from wapls_user where tel='"&tel&"'"
	set rstel=server.createobject("adodb.recordset")
	rstel.open sqltel,conn,1,1
if rstel.eof and rstel.bof then
	response.redirect "wapls_404.asp?id=18"
elseif rstel("passed")=0 then
	response.redirect "wapls_404.asp?id=6"
elseif rstel("lock")=1 then
	response.redirect "wapls_404.asp?id=7"
else
%>
密码问题:<br/><%=rstel("Question")%><br/>
密码答案:<br/><input type="text" name="answer<%=minute(now)%><%=second(now)%>" maxlength="30"/><br/>
验证号码:<br/><input name="yz<%=minute(now)%><%=second(now)%>" format="*N" maxlength="4" size="8"/>  <%=s%><br/>
<anchor>[下一步]<go href="?Action=lostpass" method='post'>
<postfield name="answer" value="$(answer<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz" value="$(yz<%=minute(now)%><%=second(now)%>)"/>
<postfield name="yz1" value="<%=s%>"/>
<postfield name="userid" value="<%=rstel("user_id")%>"/>
<postfield name="lostpass" value="true"/>
</go></anchor><br/>
<%
end if
else
%>
手机号码:<br/><input type="text" format="*N" name="tel<%=minute(now)%><%=second(now)%>" maxlength="11"/><br/>
<anchor>[下一步]<go href="?Action=lostpass" method='post'>
<postfield name="tel" value="$(tel<%=minute(now)%><%=second(now)%>)"/>
<postfield name="telok" value="true"/>
</go></anchor><br/>
<%
rstel.close
set rstel=nothing
end if
end if
end Function
'========会员注册提交=======
Function reg
if request.form("adduser")="true" then
Response.write "<card id='index' title='会员注册'>"
Response.write "<p align='"&const1&"'>"
if user_system=0 then 
	response.write "对不起,会员系统暂不开放!<br/>"
elseif user_system=3 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 UserName,Password,PwdConfirm,Question,Answer,Sex,Email,Author,Tel,qq
UserName=request.form("UserName")
Password=request.form("Password")
PwdConfirm=request.form("PwdConfirm")
Question=request.form("Question")
Answer=md5(request.form("Answer"))
Sex=Request.form("Sex")
qq=Request.form("qq")
Email=request.form("Email")
Tel=request.form("Tel")
if conn.Execute("select count(*) from wapls_user where email='"&Email&"'")(0)<>0 then
	response.redirect "wapls_404.asp?id=25"
end if
if conn.Execute("select count(*) from wapls_user where tel='"&tel&"'")(0)<>0 then
	response.redirect "wapls_404.asp?id=26"
end if

if request("Author")="" then
	Author=""
else
	Author=request("Author")
end if

if strLength(UserName)<4 then
	response.redirect "wapls_404.asp?id=20"
end if