<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<!---通用配置--->
<title>会员中心_<%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%>_Powered by www.gaozhen.name QQ_47329193</title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="/include/favicon/favicon.ico" />
<link rel="icon" href="/include/favicon/favicon.gif" type="image/gif" >
<link type="text/css" href="/include/css/global.css" rel="stylesheet" />
<script type="text/javascript" src="/include/Js/config.js"></script>
<script src="/css/addorder.js" type="text/javascript"></script>
<script src="/css/jquery.js" type="text/javascript"></script>
<script src="/css/usr.js" type="text/javascript"></script>
<style>table td{font-size:12px;}</style>
<!---网站配置--->
<link type="text/css" href="/css/style.css" rel="stylesheet" />
</head>
<body>
<%Call TopMenu()%>
<%Call HeadMenu()%>
<div id="maindiv">
<!---主体部分--->
<div id="lstpro">
	<div id="lstleft">
<div id="llfff">
<div class="stitle"><h1>会员中心</h1></div>
<div class="scont">
	<ul>
	<li><a href="/UserCenter.asp?gaozhen=myinfo">基本资料</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myreply">我的评论</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myorder">我的订单</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myfav">收藏夹子</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mymail">系统信件</a></li>
	</ul>
</div>
<div class="stitle"><h1>财务中心</h1></div>
<div class="scont">
	<ul>
	<li><a href="/UserCenter.asp?gaozhen=mymoney">消费记录</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mychong">马上充值</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mymoneychong">充值记录</a></li>
	<li><a href="/UserCenter.asp?gaozhen=backmoney">申请退还</a></li>
	</ul>
</div>
</div>



	</div>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心</div>

<div class="xnMore">
	<ul id="alloffice">
		<li class="downli" onmouseover="office(1,'alloffice','allcont');">会员登录</li>
		<li class="upli" onmouseover="office(2,'alloffice','allcont');">会员注册</li>
	</ul>
</div>

<div id="allcont">
<%If a="login" then%><dd style="display:;"><%Else%><dd style="display:none;"><%End If%>
	<div class="scont">
		<form name="loginForm" action="/UserInfo.asp?action=loginsave" id="loginForm" method="post">
		<table border="0" width="724" id="table1" cellpadding="2">
			<tr>
				<td width="126" align="right" height="30">登陆信箱：</td>
				<td height="30" width="284">
				<input onblur="ckmaildd();" name="ddaaaa" size="31"></td>
				<td width="294" height="30"><div id="ddaaaadiv" class="fb"> * 请输入您的邮箱地址.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">密码：</td>
				<td height="30" width="284">
				<input onblur="ckpassdd();" name="ddcccc" size="16" type="password"></td>
				<td width="294" height="30"><div id="ddccccdiv" class="fb"> * 请输入密码.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">　</td>
				<td height="30" width="284"><input class="anlockblue" name="sd" type="submit" onclick="javascript:checksubdd();"  value="立即登陆"></td>
				<td width="294" height="30">　</td>
			</tr>

			</table>
		</form>
	</div>
</dd>
<%If a="reg" then%><dd style="display:;"><%Else%><dd style="display:none;"><%End If%>
	<div class="scont">
		<form name="regForm" id="regForm" action="/UserInfo.asp?action=regsave" method="post">
		<table border="0" width="724" id="table1" cellpadding="2">
			<tr>
				<td width="126" align="right" height="30">电子信箱：</td>
				<td height="30" width="284">
				<input onblur="ckmail();" name="aaaa" size="31"></td>
				<td width="294" height="30"><div id="aaaadiv" class="fb"> * 请输入您的邮箱地址.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">昵称：</td>
				<td height="30" width="284">
				<input onblur="ckname();" name="bbbb" size="16"></td>
				<td width="294" height="30"><div id="bbbbdiv" class="fb"> * 请输入您的昵称.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">密码：</td>
				<td height="30" width="284">
				<input onblur="ckpass();" name="cccc" size="16" type="password"></td>
				<td width="294" height="30"><div id="ccccdiv" class="fb"> * 请输入密码.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">确认密码：</td>
				<td height="30" width="284">
				<input onblur="ckpass();" name="ccccok" size="16" type="password"></td>
				<td width="294" height="30"><div id="ccccokdiv" class="fb"> * 请再次输入密码.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="15">选择头像：</td>
				<td height="15" width="284"><select name="UsrFace" onchange='myface.src=this.options[this.selectedIndex].value;'>
				<option value="/images/face/no.gif">默认头像</option>
				<%For i =1 To 10%>
				<option value="/images/face/<%=i%>.gif"><%=i%></option>
				<%next%>
				</select></td>
				<td width="294" height="15">
				<img id=myface width=60 height=60 src="/images/face/no.gif"></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">验证码：</td>
				<td height="30" width="284">
				<input onblur="ckmama();" name="dddd" size="9"> <B><%=yzm%></B>
				<input type="hidden" name="ddddok" value="<%=yzm%>"></td>
				<td width="294" height="30"><div id="ddddokdiv" class="fb"> * 验证码.</div></td>
			</tr>
			<tr>
				<td width="126" align="right" height="30">　</td>
				<td height="30" width="284"><input class="anlockblue" name="s" type="submit" onclick="javascript:checksub();"  value="  免费注册  "></td>
				<td width="294" height="30">　</td>
			</tr>

			</table>
		</form>

	</div>
</dd>
</div>
	</div>
	</div>
</div>
<!---版权部分--->
<div class="clear"></div>
<%Call HelpMenu()%>
<%Call ShowEnd()%>
</div>
</body>
</html>
<%
'用户注册
Dim Usrmail,Usrname,Usrpass,UsrFace,useripp
Dim UsrTel,UsrAddress,UsrFax,UsrZip
useripp = Request.ServerVariables("REMOTE_ADDR")
Dim regaaa,lname,lpass
Usrmail=trim(request("aaaa"))
Usrname=trim(request("bbbb"))
Usrpass=trim(request("cccc"))
UsrFace=trim(request("UsrFace"))
UsrTel=trim(request("xx1"))
UsrAddress=trim(request("xx2"))
UsrFax=trim(request("xx3"))
UsrZip=trim(request("xx4"))
If Request("action")="regsave" Then
If Trim(request("aaaa"))="" Then 
	Call Alert ("信箱不能为空","-1")
End If
If Trim(request("bbbb"))="" Then 
	Call Alert ("昵称不能为空","-1")
End If
If Trim(request("dddd"))="" Then 
	Call Alert ("验证不能为空","-1")
End If
If Trim(request("dddd"))<>Trim(request("ddddok")) Then 
	Call Alert ("验证输入错误","-1")
End If
If Trim(request("cccc"))="" Then 
	Call Alert ("密码不能为空","-1")
End If
If Trim(request("cccc"))<>Trim(request("ccccok")) Then 
	Call Alert ("两次密码不一样","-1")
End If

	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstUser] where UsrEmail='"&Usrmail&"' or UsrName='"&Usrname&"'"
	oRs.open sSql,oconn,1,3
	If not oRs.eof then
		Call Alert ("信箱或昵称重复.","-1")
	Else
		oRs.addnew
		oRs("UsrEmail")=Usrmail
		oRs("UsrName")=Usrname
		oRs("UsrPass")=md5(Usrpass,32)
		oRs("UsrFace")=UsrFace

		oRs("UsrTel")=UsrTel
		oRs("UsrAddress")=UsrAddress
		oRs("UsrFax")=UsrFax
		oRs("UsrZip")=UsrZip

		oRs("UsrMoney")=0
		oRs("UsrState")=1
		oRs("UsrLogintime")=now()
		oRs("UsrAddtime")=now()
		oRs("UsrIP")=useripp
		oRs("UserAsk")=trim(request("UserAsk"))
		oRs("UserAsw")=trim(request("UserAsw"))
		oRs("UserFen")=1
		oRs.update
		session("userid")=oRs("Id")
		session("username")=oRs("Usrname")
		Response.Cookies("Type") = oRs("Id")
		Response.Cookies("Type").Expires = date()+30
		Response.Cookies("Type").Domain = ".yourname.com"
		Response.Cookies("Type").Secure = False
		oRs.close
		response.redirect "/Index.asp"
	Set oRs = Nothing
	End If
End If
'用户登陆
If Request("action")="loginsave" Then

	Usrmail=trim(request("ddaaaa"))
	Usrpass=trim(request("ddcccc"))
	Set oRs=server.createobject("adodb.recordset")
	sSql="select top 1 * from [LstUser] where UsrEmail='"&Usrmail&"' or UsrName='"&Usrmail&"'"
	oRs.open sSql,oconn,1,1
	If not oRs.eof then
		If oRs("Usrpass") <> md5(Usrpass,32) then
			Call Alert ("很抱歉,您的密码错误.","-1")
		Else
			If CLng(oRs("UsrState"))= 0 Then
				Call Alert ("很抱歉,您的帐号被锁定,有问题请咨询管理员.","-1")
			Else
			oconn.execute("update [LstUser] set UsrIP = '"&useripp&"' , UsrLogintime = now() where  Id = "& oRs("Id") &"")
			session("userid")=oRs("Id")
			session("username")=oRs("Usrname")
			Response.Cookies("Type") = oRs("Id")
			Response.Cookies("Type").Expires = date()+30
			Response.Cookies("Type").Domain = ".yourname.com"
			Response.Cookies("Type").Secure = False
			response.redirect "/Index.asp"
			End If
		End If
	Else
			Call Alert ("很抱歉,不存在您输入的帐号.","-1")
	End If
End If
'用户退出
If Request("action")="lut" Then
	session("nhuser")=""
	session("nhid")=""
	Session.Abandon
	response.cookies("nhuser") = ""
	Response.Cookies("Type") = ""
	Response.Cookies("Type").Domain = ".yourname.com"
	Call Backurl ("/Index.asp")
End If

If action="ceshimail" Then
Dim semail
semail = Trim(request("semail"))
If semail = "" Then 
	Call Alert ("很抱歉,你要发给外星人呢？连个邮箱都不写.","-1")
End If
	Call JmailSend("邮件配置成功","邮件配置成功",true,"恭喜：您在"&sWeb("WebTitle")&"网站上的邮件服务器已经配置成功！<br>请您立即登录http://"&sWeb("WebUrl")&"/网站进行其他相关工作！",semail,sMtitle,sMserver,sMename,sMname,sMpass)
	Call Alert ("发送成功，请您查阅是否收到。","-1")
End If
%>