<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
If session("userid")="" Then 
	Call backurl("/Index.asp#login")
End If
'未读信件
Dim oRsmail
Set oRsmail = oConn.Execute("SELECT COUNT(ID) as ID FROM [Lstmail] where UserState = 0 and UserId = "&Uid("Id")&" ")
%>
<!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/usr.js" type="text/javascript"></script>
<script src="/css/mm.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="scontuu">
	<ul>
	<li><a href="/UserCenter.asp?gaozhen=myinfo">钱包:<b><%=GZMONRY(Uid("UsrMoney"))%></b>元</a></li>
	<li><a href="###">等级:<%=UULEV(Uid("UserFen"))%></a></li>
	<li><a href="###">折扣:<b><%=Mzhe%></b>折</a></li>
	<li><a href="###">积分:<b><%=Uid("UserFen")%></b>分</a></li>
	<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=tousu">我要投诉</a></li>
	<li><a href="/UserCenter.asp?gaozhen=myfav">收藏夹子</a></li>
	<li><a href="/UserCenter.asp?gaozhen=mymail">系统信件</a><%If CLng(oRsmail("Id"))>0 Then%>(<%=oRsmail("Id")%>)<%End If%></li>
	</ul>
</div>
<div class="stitle"><h1>财务中心</h1></div>
<div class="scontuu">
	<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>
<%
select case gaozhen
case "myinfo" call myinfo()
case "myorder" call myorder()
case "myreply" call myreply()
case "mymoney" call mymoney()
case "mymoneychong" call mymoneychong()
case "mychong" call mychong()
case "myfav" call myfav()
case "fukuanla" call fukuanla()
case "backmoney" call backmoney()
case "backmoneyinfo" call backmoneyinfo()
case "mymail" call mymail()
case "backmoneyyzm" call backmoneyyzm()
case "tousu" call tousu()
case "dingdaninfo" call dingdaninfo()
End select
%>
<%sub dingdaninfo()%>
<%
Set oRs = server.CreateObject ("adodb.recordset")
sSql="select * from LstOrder where OUserId = "&session("userid")&" and Id="& Id
oRs.open sSql,oConn,1,1
If oRs.bof And oRs.eof Then
	Call alert("对不起.","-1")
End If
dim ARRPRO,ARRPNUM,ARRPCCC,ARRPYYY,ARRPROmm
ARRPNUM = split(oRs("ONum"),",") 
ARRPRO = split(oRs("OProName"),",")
ARRPROmm = split(oRs("OPro"),",")
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 订单详情</div>
	<div class="stitle"><h1>订单详情</h1></div>
	<div class="scont">
<table  border="1" width="100%" id="table1" cellpadding="1" style="border-collapse: collapse" bordercolor="#C0C0C0">
	<tr>
		<td height="30" style="padding:5px;"colspan="2" align="center"><b>订单号：<%=oRs("ONo")%></b></td>
	</tr>
	<tr>
		<td height="30" style="padding:5px;"width="39">订购</td>
		<td height="30" style="padding:5px;"><%=oRs("OAddtime")%></td>
	</tr>
	<tr>
		<td height="30" style="padding:5px;" width="39">电话</td>
		<td height="30" style="padding:5px;" ><%=oRs("OTel")%></td>
	</tr>
	<tr>
		<td height="30" style="padding:5px;" width="39">地址</td>
		<td height="30" style="padding:5px;" ><%=oRs("OAddress")%></td>
	</tr>
	<tr>
		<td height="30" style="padding:5px;" width="39">备注</td>
		<td height="30" style="padding:5px;" ><%=oRs("OContent")%></td>
	</tr>
	<tr>
		<td height="30" colspan="2" bgcolor="#C0C0C0">

		<table border="1" width="100%" id="table2" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0">
			<tr>
				<td height="30" align="center" bgcolor="#FFFFFF"><b>产品</b></td>
				<td height="30" align="center" bgcolor="#FFFFFF"><b>数量</b></td>
				<td height="30" align="center" bgcolor="#FFFFFF"><b>金额</b></td>
			</tr>
			<%if Isarray(ARRPRO) Then%>
			<%for j=0 to UBound(ARRPRO)%>
			<tr>
				<td height="30" align="center" bgcolor="#FFFFFF"><%=ARRPRO(j)%></td>
				<td height="30" align="center" bgcolor="#FFFFFF"><b><%=ARRPNUM(j)%></b></td>
				<td height="30" align="center" bgcolor="#FFFFFF">￥<%=PPPPNNNN(ARRPROmm(j))%>元</td>
			</tr>
			<%Next 
			End if%>

		</table>

</td>
	</tr>
	<tr>
		<td height="30" width="39" style="padding:5px;">合计</td>
		<td height="30" style="padding:5px;">￥<%=oRs("Ozongjia")%> 元 (+ 运费：<%=oRs("OYun")%> 元)</td>
	</tr>
	</table>

	</div>
	</div>
	</div>
<%end sub%>
<%sub tousu()%>
<%Dim infos
infos =Trim(request("infos"))%>
<%
If action="addtousu" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 投诉中心</div>
	<div class="stitle"><h1>投诉中心</h1></div>
	<div class="scont">
<form action="/UserCenter.asp?action=addtousu&gaozhen=tousu" name="thfrom" method="post">
<table border="0" width="100%" id="table1" cellpadding="2">
	<tr>
		<td colspan="3" height="30" bgcolor="#F3F0D6">&nbsp;&nbsp;&nbsp; 你要投诉：</td>
	</tr>
</table>
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">订单号：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="TSno" size="20" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"> * 要投诉的订单号</td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">客服人员：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="TSuser" size="20" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"> * 对方的姓名</td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">描述情况：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><textarea name="TScont" rows="7" cols="56"></textarea></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2"></td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input class="anlockgreen" type="submit" value="提交投诉"></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
</table>
</form>
<%If infos = "infos" Then%>
<div style="padding:10px;border:1px #DCE2EF solid;color:#936B00;background-color:#FFF7E1;">
<%
'本页
Dim wv
Set wv= oConn.Execute("SELECT top 1 Id,TSno,TSHcont FROM [LstTou] where Id ="&Id)
If wv.bof And wv.eof Then
	Call alert("参数不对","-1")
End If
%>
您投诉的订单：<b><%=wv(1)%></b>的处理结果：<%=wv(2)%>
</div>
<%End If%>
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">订单号</td>
		<td height="30" align="center" bgcolor="#F9F5F2">投诉谁</td>
		<td height="30" align="center" bgcolor="#F9F5F2">内容</td>
		<td height="30" align="center" bgcolor="#F9F5F2">投诉时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">回复内容</td>
		<td height="30" align="center" bgcolor="#F9F5F2">回复时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">查看</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [LstTou] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><B class="fred"><%=oRs("TSno")%></B></td>
		<td height="30" align="center"><%=oRs("TSuser")%></td>
		<td height="30" align="center" title="<%=oRs("TScont")%>"><%=left(oRs("TScont"),10)%></td>
		<td height="30" align="center"><%=oRs("TStime")%></td>
		<td height="30" align="center"><%=oRs("TSHcont")%></td>
		<td height="30" align="center"><%=oRs("TSHtime")%></td>
		<td height="30" align="center"><a href=?gaozhen=tousu&infos=infos&Id=<%=oRs("Id")%>>查看</a></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="10" height="30" align="center"><%Call Showpage("?gaozhen=tousu",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>
<%sub mymail()%>
<%oConn.Execute("UPDATE [Lstmail] SET UserState =1 where UserId = "&Uid("Id")&" ")%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 系统信件</div>
	<div class="stitle"><h1>系统信件</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
<td height="30" align="center" bgcolor="#F6F6F6"><b>内容</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>发送时间</b></td>
<td height="30" align="center" bgcolor="#F6F6F6"><b>管理者</b></td>
<td height="30" align="center" bgcolor="#F6F6F6">操作</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [Lstmail] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
<td align="left" style="padding:10px;font-size:12px;line-height:22px;" bgcolor="#FFFFFF"><%=oRs("UserCont")%></td>
<td align="center" bgcolor="#FFFFFF"><%=FormatTime(oRs("UserTime"),9)%></td>
<td align="center" bgcolor="#FFFFFF"><%=oRs("UserAdmin")%></td>
		<td height="30" align="center"><a href="?action=delmail&Id=<%=oRs("Id")%>">删除</a></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=mymail",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>
<%sub backmoney()%>
<%
If action="addtuihai" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If


If action="fayzm" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 申请退还</div>
	<div class="stitle"><h1>申请退还</h1></div>
	<div class="scont">
<form action="/UserCenter.asp?action=addtuihai&gaozhen=backmoney" name="thfrom" method="post">
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr><input type=hidden name="ipip" value="<%=GetIP()%>">
		<td height="30" align="right" bgcolor="#F9F5F2">申请退还金额：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="aaaa" size="10" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"> 余额：￥<%=Uid("UsrMoney")%>.00</td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">真实姓名：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="bbbb" size="10" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">身份证号码：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="cccc" size="25" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">开户行：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="dddd" size="30" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">银行账户：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="eeee" size="30" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">户名：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="ffff" size="10" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"> * 必须和您的真实姓名一样。</td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">支付宝帐号：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="gggg" size="20" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2"></td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2">联系手机：</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input name="hhhh" size="20" value=""></td>
		<td height="30" align="left" bgcolor="#F9F5F2">* 这个很重要。</td>
	</tr>
	<tr>
		<td height="30" align="right" bgcolor="#F9F5F2"></td>
		<td height="30" align="left" bgcolor="#F9F5F2">* 优先会支付到您的支付宝。</td>
		<td height="30" align="left" bgcolor="#F9F5F2"><input class="anlockgreen" type="button" onClick="return mmcheck()" value="申请退还"></td>
	</tr>
</table>
</form>
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">退还金额</td>
		<td height="30" align="center" bgcolor="#F9F5F2">申请时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">处理结果</td>
		<td height="30" align="center" bgcolor="#F9F5F2">处理时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">详情</td>
		<td height="30" align="center" bgcolor="#F9F5F2">验证</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [LstBackMoney] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><B class="fred">￥<%=oRs("UserMoney")%>.00</B></td>
		<td height="30" align="center"><%=FormatTime(oRs("UserTime"),9)%></td>
		<td height="30" align="center"><%If oRs("UserState")=0 Then%>未处理<%ElseIf oRs("UserState")=1 Then%>已退回银行<%ElseIf oRs("UserState")=2 Then%>已返还钱包<%End If%></td>
		<td height="30" align="center"><%=FormatTime(oRs("UserAtime"),3)%></td>
		<td height="30" align="center"><img src="/admin/images/look2.gif" class="input hand " onclick="{location.href='/UserCenter.asp?gaozhen=backmoneyinfo&Id=<%=oRs("Id")%>';}"></td>
		<td height="30" align="center"><%If oRs("UserYZMok")=0 Then%><del><a href='/UserCenter.asp?gaozhen=backmoneyyzm&Id=<%=oRs("Id")%>'>未验证</a></del>,<a href='/UserCenter.asp?gaozhen=backmoney&action=fayzm&Id=<%=oRs("Id")%>'>重发</a><%Else%><b>已验证</b><%End If%></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=backmoney",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>
<%sub backmoneyyzm()%>

<%
'''''''''''''''
If Id="" Then 
	Call alert("参数错误.","-1")
End If
Set oRs = server.CreateObject ("adodb.recordset")
sSql="select * from LstBackMoney where UserId="&session("userid")&" and Id="& Id
oRs.open sSql,oConn,1,1
If oRs.bof And oRs.eof Then
	Call alert("对不起.","-1")
End If

If action="yzmmmmm" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 验证码</div>
	<div class="stitle"><h1>验证退款</h1></div>
	<div class="scont">
<form action="/UserCenter.asp?action=yzmmmmm&gaozhen=backmoneyyzm&Id=<%=Id%>" method="post">
<table border="1" width="100%" id="table3" cellspacing="3" cellpadding="3" style="border-collapse: collapse" bordercolor="#F6F6F6">
<tr>
<td height="30" align="right" width="286">申请退还金额：</td>
<td height="30" width="78%">￥<%=oRs("UserMoney")%>.00</td>

</tr>
<tr>
<td height="30" align="right" width="286">申请退还时间：</td>
<td height="30" width="78%"><%=oRs("UserTime")%></td>
</tr>

<tr>
<td height="30" align="right" width="286">验证码：</td>
<td height="30" width="78%"><input name="myzm" value="" size=20></td>
</tr>

<tr>
<td height="30" align="right" width="286">处理结果：</td>
<td height="30" width="78%"><input class="anlockred" type="submit" value="开始验证..."></td>

</tr>

</table>
	</div>
	</div>
	</div>
<%end sub%>
<%sub backmoneyinfo()%>
<%
Set oRs = server.CreateObject ("adodb.recordset")
sSql="select * from LstBackMoney where UserId="&session("userid")&" and Id="& Id
oRs.open sSql,oConn,1,1
If oRs.bof And oRs.eof Then
	Call alert("对不起.","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 退还详情</div>
	<div class="stitle"><h1>退还详情</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table3" cellspacing="3" cellpadding="3" style="border-collapse: collapse" bordercolor="#F6F6F6">
<tr>
<td height="30" align="right" width="286">申请退还金额：</td>
<td height="30" width="78%">￥<%=oRs("UserMoney")%>.00</td>

</tr>
<tr>
<td height="30" align="right" width="286">申请退还时间：</td>
<td height="30" width="78%"><%=oRs("UserTime")%></td>

</tr>

<tr>
<td height="30" align="right" width="286">真实姓名：</td>
<td height="30" width="78%"><%=oRs("UserName")%></td>

</tr>

<tr>
<td height="30" align="right" width="286">身份证：</td>
<td height="30" width="78%"><%=oRs("Usersfz")%></td>

</tr>

<tr>
<td height="30" align="right" width="286">开户行：</td>
<td height="30" width="78%"><%=oRs("Userkhh")%></td>

</tr>

<tr>
<td height="30" align="right" width="286">银行卡号：</td>
<td height="30" width="78%"><%=oRs("UserBankCode")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">户名：</td>
<td height="30" width="78%"><%=oRs("UserBankName")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">支付宝帐号：</td>
<td height="30" width="78%"><%=oRs("Userzfb")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">联系电话：</td>
<td height="30" width="78%"><%=oRs("UserTel")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">申请时的IP：</td>
<td height="30" width="78%"><%=oRs("UserIp")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">处理状态：</td>
<td height="30" width="78%"><%If oRs("UserState")=0 Then%>未处理<%Else%>已处理<%End If%></td>

</tr>


<tr>
<td height="30" align="right" width="286">处理时间：</td>
<td height="30" width="78%"><%=oRs("UserAtime")%></td>

</tr>


<tr>
<td height="30" align="right" width="286">处理人：</td>
<td height="30" width="78%"><%=oRs("UserAdmin")%></td>

</tr>
<%If oRs("UserImg") <>"" Then%>
<tr>
<td height="30" align="right" width="286">票据：</td>
<td height="30" width="78%"><a target=_blank href=<%=oRs("UserImg")%>><img src="<%=oRs("UserImg")%>" width=200></a></td>

</tr>
<%End If%>
<tr>
<td height="30" align="right" width="286">处理结果：</td>
<td height="30" width="78%"><%=oRs("UserCont")%></td>

</tr>

</table>
	</div>
	</div>
	</div>
<%end sub%>
<%sub fukuanla()%>
<%
If action="addfukuan" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If
%>
<%
If orderid="" Then
	Call alert("参数错误,返回.","-1")
End If
'本页
Set v= oConn.Execute("SELECT top 1 Id,ONo,OPro,OProName,ONum,Occc,Oyyy,OName,OAddress,OTel,Ozongjia,Omoney,Oyun from [LstOrder] where Id ="&orderid)
If v.bof And v.eof Then
	Call alert("对不起，不存在此订单,返回.","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 付款页面</div>
	<div class="stitle"><h1>付款页面 - 为订单 <%=v("ONo")%> 付款</h1></div>
	<div class="scont">
<table width="744" border="0" cellpadding="0" cellspacing="1">
	<tr>
		<td height="25" width="148" id="s1" align="center" bgcolor="#E27C16" class="anlockred hand"><a onclick="show1()"><span class="fwrite f14">金币付款</span></a></td>
		<%If sZfb(1)=1 Then%><td height="25" width="149" id="s2" align="center" bgcolor="#E27C16" class="anlockgreen hand"><a onclick="show2()"><span class="fwrite f14">支付宝担保</span></a></td>
		<%Else%><%End If%>
		<%If sYee(1)=1 Then%><td height="25" width="149" id="s3" align="center" bgcolor="#E27C16" class="anlockgreen hand"><a onclick="show3()"><span class="fwrite f14">易宝付款</span></a></td>
		<%Else%><%End If%>
		<td height="25" width="149" align="center">　</td>
		<td height="25" width="149" align="center">　</td>
		<td height="25" width="149" align="center">　</td>
	</tr>
</table>


<div id="Show1">
<form action="/UserCenter.asp?action=addfukuan&gaozhen=fukuanla&orderid=<%=orderid%>" name="order" method="post">
<table width="744" border="0" cellpadding="0" cellspacing="0">
<tr>
	<td colspan="5" bgcolor="#F3F0D6" height="34" align="left">&nbsp;&nbsp;&nbsp; 您目前的余额：<b class="fblue">￥<%=Uid("UsrMoney")%> 元</td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 收货人：</td>
<td height="30" align="left">
<input name="aaaa" type="text" size="10" value="<%=v("OName")%>" /></td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 送货地址：</td>
<td height="30" align="left">
<input name="bbbb" type="text" size="50" value="<%=v("OAddress")%>" /></td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 联系电话：</td>
<td height="30" align="left">
<input name="cccc" type="text" size="20" value="<%=v("OTel")%>" /></td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 总价：</td>
<input name="fkzongjia" type="hidden" value="<%=v("Ozongjia")+v("OYun")%>">
<input name="ddbianhao" type="hidden" value="<%=v("ONo")%>">
<td height="30" align="left"><b class="fred">￥<%=v("Ozongjia")+v("OYun")%>元</b></td>
</tr>
<tr bgcolor="#F3F3F5">
<td align="right"></td>
<td align="left">
<%If v("Omoney") = 0 Then%>
<input class="anlockblue" name="s" type="submit" value="使用金币余额购买">
<%Else%>
<input disabled class="anlockblue" name="s" type="submit" value="该订单已经付款">
<%End If%></td>
</tr>
</table>
</form>
</div>

<div id="Show3" style="display:none;">
<form action="BankYeePay/req.asp" target="_blank" method="get">
<table width="744" border="0" cellpadding="0" cellspacing="0">
<tr>
	<td colspan="5" bgcolor="#F3F0D6" height="34" align="left">&nbsp;&nbsp;&nbsp; 您目前的余额：<b class="fblue">￥<%=Uid("UsrMoney")%> 元</td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 订单编号：</td>
<td height="30" align="left">
<input size="50" type="text" value="<%=v("ONo")%>" disabled /></td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 支付金额：</td>
<input size="50" type="hidden" name="p5_Pid" id="p5_Pid" value="<%=v("ONo")%>"/>
<input name="p3_Amt" id="p3_Amt" type="hidden" value="<%=v("Ozongjia")+v("OYun")%>">
<input name="p2_Order" id="p2_Order" type="hidden" value="<%=v("ONo")%>">
<input type="hidden" name="p8_Url" id="p8_Url" value="http://<%=sWeb(2)%>/BankYeePay/callback.asp" />
<td height="30" align="left"><b class="fred">￥<%=v("Ozongjia")+v("OYun")%>元</b></td>
</tr>
<tr bgcolor="#F3F3F5">
<td align="right"></td>
<td align="left">
<%If v("Omoney") = 0 Then%>
<input class="anlockblue" name="s" type="submit" value="进入易宝付款">
<%Else%>
<input disabled class="anlockblue" name="s" type="submit" value="该订单已经付款">
<%End If%></td>
</tr>
</table>
</form>
</div>

<div id="Show2" style="display:none;">
<FORM target=_blank name=alipayment onSubmit="return CheckForm();" action=BankAlipay/alipayapi.asp method=post>
<input type=hidden name="WIDprice" value="<%=v("Ozongjia")%>">
<input type=hidden name="logistics_fee" value="<%=v("OYun")%>">
<input type=hidden name="WIDout_trade_no" value="<%=v("ONo")%>">
<input type=hidden name="WIDsubject" value="<%=sWeb("WebTitle")%>_<%=v("ONo")%>">
<input type=hidden name="WIDshow_url" value="http://<%=sWeb("WebUrl")%>/UserCenter.asp?gaozhen=dingdaninfo&Id=<%=v("Id")%>">
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
	<tr>
		<td height="30" width="125" align="right">收货人姓名：</td>
		<td height="30"><input size="10" value="<%=v("OName")%>" name="WIDreceive_name" /></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">收货人地址：</td>
		<td height="30"><input size="40" value="<%=v("OAddress")%>" name="WIDreceive_address" /></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">收货人邮编：</td>
		<td height="30"><input size="10" value="" name="WIDreceive_zip" /></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">收货人电话号码：</td>
		<td height="30"><input size="15" value="<%=v("OTel")%>" name="WIDreceive_phone" /></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">收货人手机号码：</td>
		<td height="30"><input size="15" value="<%=v("OTel")%>" name="WIDreceive_mobile" /></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">备注说明：</td>
		<td height="30"><textarea name="WIDbody" cols="50" rows="4">订单号：<%=v("ONo")%></textarea></td>
	</tr>
	<tr>
		<td height="30" width="125" align="right">总价：</td>
		<td height="30"><b class="fred">￥<%=v("Ozongjia")+v("OYun")%>元</b></td>
	</tr>
	<tr>
		<td height="30" width="125">　</td>
		<td height="30"><input type="image" src=/BankAlipay/images/alipay_bwrx.gif></td>
	</tr>
</table>

</form>
</div>

	</div>
	</div>
	</div>
<%end sub%>
<!---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
<%sub mychong()%>
<%
If action="addchong" Then
Call Alert ("需要购买正式版.QQ：47329193","-1")
End If
%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 充值页面</div>
	<div class="stitle"><h1>充值页面</h1></div>
	<div class="scont">
<table width="744" border="0" cellpadding="0" cellspacing="1">
	<tr>
		<td height="25" width="148" id="s1" align="center" bgcolor="#E27C16" class="anlockred hand"><a onclick="show1()"><span class="fwrite f14">充值卡充值</span></a></td>
		<td height="25" width="149" align="center">　</td>
		<td height="25" width="149" align="center">　</td>
		<td height="25" width="149" align="center">　</td>
	</tr>
</table>


<div id="Show1">
<form action="/UserCenter.asp?action=addchong&gaozhen=mychong" name="order" method="post">
<table width="744" border="0" cellpadding="0" cellspacing="0">
<tr>
	<td colspan="5" bgcolor="#F3F0D6" height="34" align="left">&nbsp;&nbsp;&nbsp; 您目前的余额：<b class="fblue">￥<%=Uid("UsrMoney")%> 元</td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 卡号：</td>
<td height="30" align="left">
<input name="aaaa" type="text" size="30" value="" /></td>
</tr>
<tr bgcolor="#F3F3F5">
<td height="30" align="right"> 密码：</td>
<td height="30" align="left">
<input name="bbbb" type="text" size="30" value="" /></td>
</tr>

<tr bgcolor="#F3F3F5">
<td align="right"></td>
<td align="left">
<input class="anlockblue" name="s" type="submit" value="马上充值"></td>
</tr>
</table>
</form>
</div>



	</div>
	</div>
	</div>
<%end sub%>
<!---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------->
<%sub myfav()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 收藏夹记录</div>
	<div class="stitle"><h1>收藏夹记录</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">用户</td>
		<td height="30" align="center" bgcolor="#F9F5F2">产品</td>
		<td height="30" align="center" bgcolor="#F9F5F2">时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">操作</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [LstFav] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><B class="fred"><%=USERPIC(oRs("UserId"),2)%></B></td>
		<td height="30" align="center"><%=PROPIC(oRs("ProId"),1)%></td>
		<td height="30" align="center"><%=FormatTime(oRs("Saddtime"),9)%></td>
		<td height="30" align="center"><a href="?action=delfav&ProId=<%=oRs("ProId")%>&Id=<%=oRs("Id")%>">删除</a></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=myfav",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>

<%sub mymoney()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 消费记录</div>
	<div class="stitle"><h1>消费记录</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">消费金额</td>
		<td height="30" align="center" bgcolor="#F9F5F2">消费时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">产品订单</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [LstUserMoney] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><B class="fred">￥<%=oRs("UserMoney")%>.00</B></td>
		<td height="30" align="center"><%=FormatTime(oRs("UserTime"),9)%></td>
		<td height="30" align="center"><a href=/UserCenter.asp?gaozhen=myorder&keyword=<%=oRs("UserNUM")%>><%=oRs("UserNUM")%></a></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=mymoney",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>
<%sub mymoneychong()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 充值记录</div>
	<div class="stitle"><h1>充值记录</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">充值金额</td>
		<td height="30" align="center" bgcolor="#F9F5F2">充值时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">充值类型</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT * FROM [LstUserMoneyChong] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><B class="fred">￥<%=oRs("UserMoney")%>.00</B></td>
		<td height="30" align="center"><%=FormatTime(oRs("UserTime"),9)%></td>
		<td height="30" align="center"><%=oRs("UserCont")%></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=mymoneychong",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>

<%sub myreply()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 我的评论</div>
	<div class="stitle"><h1>我的评论</h1></div>
	<div class="scont">
<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">所评商品</td>
		<td height="30" align="center" bgcolor="#F9F5F2">评论内容</td>
		<td height="30" align="center" bgcolor="#F9F5F2">评论时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">当时IP</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
sSql = "SELECT Id,ProId,sContent,Addtime,sIP FROM [LstRel] WHERE UserId="&Uid("Id")&""
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",20)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><%=PROPIC(oRs(1),1)%></td>
		<td height="30" align="center"><%=Left(oRs(2),10)%>...</td>
		<td height="30" align="center"><%=FormatTime(oRs(3),9)%></td>
		<td height="30" align="center"><%=oRs(4)%></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="5" height="30" align="center"><%Call Showpage("?gaozhen=myreply",20)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>


<%sub myorder()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 我的订单</div>
	<div class="stitle"><h1>我的订单</h1></div>
	<div class="scont">

<table border="1" width="100%" id="table1" cellspacing="1" style="border-collapse: collapse" bordercolor="#F9F5F2">
	<tr>
		<td height="30" align="center" bgcolor="#F9F5F2">订单号</td>
		<td height="30" align="center" bgcolor="#F9F5F2">订购时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">订单状态</td>
		<td height="30" align="center" bgcolor="#F9F5F2">处理时间</td>
		<td height="30" align="center" bgcolor="#F9F5F2">产品价格</td>
		<td height="30" align="center" bgcolor="#F9F5F2">运费</td>
		<td height="30" align="center" bgcolor="#F9F5F2">总价</td>
		<td height="30" align="center" bgcolor="#F9F5F2">付款状态</td>
		<td height="30" align="center" bgcolor="#F9F5F2">发货状态</td>
	</tr>
<%
Set oRs =server.createobject("adodb.recordset")
If sKey<>"" Then 
sSql = "SELECT Id,ONo,OPro,OProName,OAddtime,OState,OChuTime,Omoney,Ozongjia,Oth,OYun,OHUO FROM [LstOrder] WHERE ONo ='"&sKey&"' and OUserId="&Uid("Id")&""
Else
sSql = "SELECT Id,ONo,OPro,OProName,OAddtime,OState,OChuTime,Omoney,Ozongjia,Oth,OYun,OHUO FROM [LstOrder] WHERE OUserId="&Uid("Id")&""
End If
sSql = sSql & " ORDER BY Id desc"
oRs.open sSql,oconn,1,1
if oRs.bof and oRs.eof then 
else
Call Showpage("1",30)
for i=1 to mypage%>
	<tr>
		<td height="30" align="center"><a href=UserCenter.asp?gaozhen=dingdaninfo&Id=<%=oRs(0)%>><B class="fred"><%=oRs(1)%></B></a></td>
		<td height="30" align="center"><%=FormatTime(oRs(4),9)%></td>
		<td height="30" align="center"><%=CHULINNN(oRs(5))%></td>
		<td height="30" align="center"><%=oRs(6)%></td>
		<td height="30" align="center">￥<%=oRs(8)%>元 <%If oRs(7)=0 Then%><a href=/UserCenter.asp?gaozhen=myorder>刷新</a><%else%>√<%End If%></td>
		<td height="30" align="center">￥<%=oRs(10)%>元</td>
		<td height="30" align="center">￥<%=oRs(10)+oRs(8)%>元</td>
		<td height="30" align="center"><%If oRs(9)=0 Then%><%If oRs(7)=0 Then%><input class="angreen" type="button" name="delete" onclick="{location.href='/UserCenter.asp?gaozhen=fukuanla&orderid=<%=oRs(0)%>';}" value="付款"><%else%>已付<%End If%><%else%>退还<%End If%></td>
		<td height="30" align="center"><%=FAHUOS(oRs(11))%></td>
	</tr>
<%
oRs.MoveNext
Next
End If
%>
	<tr>
		<td colspan="6" height="30" align="center"><%Call Showpage("?gaozhen=myorder",30)%></td>
	</tr>
</table>

	</div>
	</div>
	</div>
<%end sub%>

<%sub myinfo()%>
	<div id="lstusr">
	<div id="rrfff">
	<div class="sgohome">您现在的位置：首页 >> 会员中心 >> 基本资料</div>
	<div class="stitle"><h1>基本资料修改</h1></div>
	<div class="scont">
<form name="uufrom" id="uufrom" method="post" action="UserCenter.asp?action=useredit">
<table border="0" width="724" id="table1" cellpadding="2">
	<tr>
		<td width="126" align="right" height="30">电子信箱：</td>
		<td height="30" width="284">
		<%=Uid("UsrEmail")%></td>
		<td width="294" height="30"> * 不可更改.</td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">昵称：</td>
		<td height="30" width="284">
		<%=Uid("UsrName")%></td>
		<td width="294" height="30"> * 不可更改.</td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">旧密码：</td>
		<td height="30" width="284">
		<input name="oldpass" type="hidden" value="<%=Uid("UsrPass")%>">
		<input name="nnnnpass" size="16" type="password"></td>
		<td width="294" height="30"> * 请输入旧密码.</td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">新密码：</td>
		<td height="30" width="284">
		<input 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 name="ccccok" size="16" type="password"></td>
		<td width="294" height="30"> * 请再次输入密码.</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="704" align="right" height="1" colspan="3" bgcolor="#E0F5EA"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">密码问题：</td>
		<td height="30" width="284">
		<select name="UserAsk">
		<option value="<%=Uid("UserAsk")%>"><%=Uid("UserAsk")%></option>
		<option value="我是做什么工作的？">我是做什么工作的？</option>
		<option value="我老公/婆叫什么名字？">我老公/婆叫什么名字？</option>
		<option value="我最崇拜的人是谁？">我最崇拜的人是谁？</option>
		<option value="我的出生地？">我的出生地？</option>
		<option value="我初中的班主任是谁？">我初中的班主任是谁？</option>
		<option value="我高中的班主任叫什么？">我高中的班主任叫什么？</option>
		<option value="雨楠商城最大的优点是什么？">雨楠商城最大的优点是什么？</option>
		<option value="我情人的小名叫什么？">我情人的小名叫什么？</option>
		<option value="我的胎记在什么地方？">我的胎记在什么地方？</option>
		<option value="我的第一次给了谁？">我的第一次给了谁？</option>
		</select></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">问题答案：</td>
		<td height="30" width="284">
		<input name="UserAsw" size="20" value="<%=Uid("UserAsw")%>" type="text"></td>
		<td width="294" height="30"> * 找回密码时用</td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">联系电话：</td>
		<td height="30" width="284">
		<input name="xx1" size="11" type="text"  value="<%=Uid("UsrTel")%>"></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">联系地址：</td>
		<td height="30" width="284">
		<input name="xx2" size="30" type="text"  value="<%=Uid("UsrAddress")%>"></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">传真：</td>
		<td height="30" width="284">
		<input name="xx3" size="11" type="text"  value="<%=Uid("UsrFax")%>"></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">邮政编码：</td>
		<td height="30" width="284">
		<input name="xx4" size="8" type="text"  value="<%=Uid("UsrFax")%>"></td>
		<td width="294" height="30"></td>
	</tr>
	<tr>
		<td width="126" align="right" height="30">验证码：</td>
		<td height="30" width="284">
		<input 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="button" onClick="return uucheck()"  value="修改资料,务必输入旧密码."></td>
		<td width="294" height="30">　</td>
	</tr>

	</table>
</form>

	</div>
	</div>
	</div>
<%end sub%>

</div>
<!---版权部分--->
<div class="clear"></div>
<%Call HelpMenu()%>
<%Call ShowEnd()%>
</div>
</body>
</html>
<%
Dim ProId
ProId = Trim(request("ProId"))
'加入收藏
If action="addfav" Then
Dim oRsfav
Set oRsfav=server.createobject("adodb.recordset")
sSql="Select * from [LstFav] WHERE UserId="&session("userid")&" and ProId = "&ProId&" "
oRsfav.open sSql,oconn,1,3
If not oRsfav.eof then
	Call Alert ("编号："&ProId&" 的商品已经收藏过，请不要重复收藏。","-1")
End If
oConn.Execute("INSERT INTO [LstFav] (UserId,ProId,Saddtime) VALUES ('"&session("userid")&"',"&ProId&",now())")
	Call alert("编号："&ProId&" 的商品,已经加入收藏夹.","/UserCenter.asp?gaozhen=myfav")
End If
'删除收藏
If action="delfav" Then
oConn.Execute("delete * from [LstFav] WHERE UserId="&session("userid")&" and ProId = "&ProId&" and Id="&Id&" ")
	Call alert("编号："&ProId&" 的商品,已经被删除.","/UserCenter.asp?gaozhen=myfav")
End If
'删除收藏
If action="delmail" Then
oConn.Execute("delete * from [LstMail] WHERE UserId="&session("userid")&" and Id="&Id&" ")
	Call alert("编号："&Id&" 的信件,已经被删除.","/UserCenter.asp?gaozhen=mymail")
End If

'编辑资料
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")="useredit" Then
If Trim(request("oldpass")) <>  md5(Trim(request("nnnnpass")),32) Then
	Call alert("对不起,密码验证错误.","-1")
End If
If Trim(request("cccc")) = "" Then
	Call alert("如果不修改密码,请新密码也输入旧密码。","-1")
End If
If Trim(request("dddd")) <> Trim(request("ddddok")) Then
	Call alert("验证码错误。","-1")
End If 
	Set oRs=server.createobject("adodb.recordset")
	sSql="Select * from [LstUser] where Id="&session("userid")&""
	oRs.open sSql,oconn,1,3
		'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.update
		oRs.close
		response.redirect "/UserCenter.asp?gaozhen=myinfo"
	Set oRs = Nothing
End If
%>