<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%titlename="会员中心"%>
<!--#include file="top.asp" -->
<!--#include file="../include/config.asp" -->
<head>
<meta http-equiv=Content-Type content='text/html; charset=gb2312'>
<link href="/include/css.css" rel="stylesheet" type="text/css">
<title><%=my_name%>-----会员中心</title></head>
<%If shopnet("abc")="info" then%>
<style type="text/css">
<!--
.STYLEd1 {
	color: #FF0000;
	font-weight: bold;
}
.STYLE2 {color: #FFFFFF}
-->
</style>
<body onLoad="show(e31),show(e32)"><%ElseIf shopnet("abc")="pass" then%><body onLoad="show(e41),show(e42)"><%else%><body><%End if%>

<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
 <!--#include file="../include/page.asp"-->
<!--#include file="../include/jmail.asp"-->
  <tr> 
    <td height="15" colspan="2">您的位置： <A href="../index.asp">首页</A> &gt;&gt; <a href="index.asp">会员中心</a>
      <%if shopnet("abc")="info" then%> &gt;&gt; 会员资料修改<%end if%> <%if shopnet("abc")="pass" then%>
      &gt;&gt; 密码修改<%end if%><%if shopnet("abc")="face" then%>
    &gt;&gt; 选择头像<%end if%></td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
    <td width="582" height="280" valign="top">
    <%hy "login.asp"
	 usernamm()
function judges(a,b)
  dim ress 
  if (a=b) then
   ress ="selected"
  end if
  judges = ress
end function

Select case request("abc")
case "face"
stats="社区头像列表"
h=6 '每行显示个数
s=50 '每页显示个数
M=40 '头象个数
call main()

sub main()%>
      <table width="100%" border="0" align=center cellpadding=0 cellspacing=1 bgcolor="#efefef" class=tableborder1 style="table-layout:fixed;word-break:break-all;">
        <tr>
          <td height="21" background="../image/bk.gif" id=tabletitlelink>&nbsp;</td>
        </tr>
        <tr> 
          <td align="center" bgcolor="#FFFFFF" id=tabletitlelink> <% if m>s then
for Y=1 to (m+s-1)\s %>
            [<a href=?abc=face&show=<%=Y%>><%if request("show")=cstr(Y) then Response.Write "<font color=red>第"&Y&"页</font>" else Response.Write "第"&Y&"页"%></a>] 
            <% next 
end if%> </td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" class=tablebody1> <table width="100%">
            <tr> 
              <% 	dim p
	i=0
	p= trim(request("show"))
	if p="" then
	p=1
	end if
	z=s*p

	if z/m>1 then
		z=m
	else
		z=s*p
	end if

	for n=s*p+1-s to z
	i=i+1
%>
              <td align="center" height=50><a href="?abc=info&img=face/<%=n%>.gif"><IMG SRC=../bbs/face/<%=n%>.gif border="0"></a><br> 
                <%=n%>.gif</td>
                  <%
	if i=h then
	response.write "</tr><tr>"
	i=0
	end if 
	next
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
%>
              </table></td>
        </tr>
        <tr>
          <td height="21" background="../image/bk1.gif" class=tablebody1>&nbsp;</td>
        </tr>
      </table>
  <%end sub
case "pass"
if Request("pass")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"' and password='"&md5(shopnet("password"))&"'"
rs.open sql,conn,1,3
if rs.eof then
Response.Write("<script>alert(""会员密码错误，不能修改。请确认您的会员原密码"");location.href=""?abc=pass"";</script>")
else
rs("password")=md5(shopnet("pass"))
Response.Cookies(Rikee)("hypwd")=md5(shopnet("pass"))

rs.update



email=rs("mail")
bt=""&my_name&"会员密码修改"
html="<html><head><title>感谢您的注册</title><meta http-equiv=Content-Type content=text/html;charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&Request.Cookies(Rikee)("huiyuan")&",您好！<br><br>　 您的密码已经修改，请用新密码<a href=http://"&my_url&"/user/login.asp target=_blank>登录"&my_name&"<a>！<br><br>"
html=html&"您的新密码为："&shopnet("pass")&"<br>"
html=html&"马上<a href=http://"&my_url&"/user/login.asp target=_blank>登录</a><br>"
html=html&"<a href=http://"&my_url&" target=_blank>"&my_name&"</a><br>"
nr=html&"<br><br>"&email_bd&"</body></html>"

if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
End if



rs.close
set rs=nothing



Response.Write("<script>alert(""会员密码修改成功，请以后用您的新密码登陆!"");location.href=""?abc=pass"";</script>")
end if
end if%> 
      <script language="javascript">
	</script>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><table border="0" align="left" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE2">密码修改<font span class="C"></font></span></td>
                <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
              </tr>
            </table>
              <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><span class="C"><a href="index.asp?abc=info">会员资料修改</a></span></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
              </table>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="4" bgcolor="1E88C1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      <script language="javascript">function checksignup() {
		if ( document.ff.password.value == '' ) {
			window.alert('请输入您的原密码!!');
			document.ff.password.focus();
			return false;
		}
		if ( document.ff.pass.value == '' ) {
			window.alert('请输入您的新密码!!');
			document.ff.pass.focus();
			return false;
		}
		if ( document.ff.pass2.value == '' ) {
			window.alert('请确认新密码!!');
			document.ff.pass2.focus();
			return false;
		}
		if ( document.ff.pass.value!=document.ff.pass2.value) {
			window.alert('新密码与确认码不一致!!');
			document.ff.pass.focus();
			return false;
		}
			return true;
			}
      </script> 
      <br>
      <table width="300" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <form name="ff" method="post" action=?abc=pass&x=yes>
          
          <tr bgcolor="#FFFFFF">
            <td height="21" colspan="2" align="center" background="../image/bk.gif" class="d13">&nbsp;</td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" class="d13" align="center">会员帐号</td>
              <td width="70%" class="d13"><font color="#FF3333"><%=Request.Cookies(Rikee)("huiyuan")%></font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" class="d13" align="center">原密码</td>
            <td width="70%" height="22" class="d13"> <input name="password" type="password" class="wenbenkuang" id="password" maxlength=16>            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" class="d13" align="center">新密码</td>
            <td width="70%" height="22" class="d13"> <input name="pass" type="password" class="wenbenkuang" id="pass" maxlength="16">            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="30%" class="d13" align="center">新密码确认</td>
            <td width="70%" height="22" class="d13"> <input name="pass2" type="password" class="wenbenkuang" id="pass2" maxlength="16">            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td colspan="2" align="center" class="d13">  <input name="Submit22" type="submit" class="go-wenbenkuang" value="修改" onClick="javascript:return checksignup()"> 
            <input name="Submit22" type="reset" class="go-wenbenkuang" value="重写">            </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="21" colspan="2" align="center" background="../image/bk1.gif" class="d13">&nbsp;</td>
          </tr>
        </form>
      </table>

  <%case "info"
if request("x")="yes" and len(request("nr"))<=200 then

if shopnet("myimg")<>"" then img=shopnet("myimg") else img=shopnet("img")
if shopnet("g")>130 or shopnet("g")<20 then g=100 else g=shopnet("g")
if shopnet("k")>130 or shopnet("k")<20 then k=100 else k=shopnet("k")
'更新资料开始
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select mail from huiyuan where mail='"&shopnet("email")&"' and id<>"&Request.Cookies(Rikee)("id")
rs.open sql,conn,1,1

If Not rs.eof Then
response.Write("<Script>alert('该邮箱已经存在，请重新输入！');window.history.go(-1);</script>")
response.End 
rs.close
Set rs=nothing
End if
conn.execute("Update huiyuan set name='"&shopnet("name")&"',xb='"&shopnet("xb")&"',dizhi1='"&shopnet("dizhi1")&"',dz='"&shopnet("dz2")&"',yb='"&shopnet("yb")&"',tel='"&shopnet("tel")&"',shouji='"&shopnet("shouji")&"',oicq='"&shopnet("oicq")&"',idcard='"&shopnet("idcard")&"',mail='"&shopnet("email")&"',img='"&img&"',g="&g&",k="&k&",sj3='"&sqlnow&"' where  huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")
'connbbs.execute("Update BBSXP_Users set name='"&shopnet("name")&"',xb='"&shopnet("xb")&"',dizhi1='"&shopnet("dizhi1")&"',dz='"&shopnet("dz2")&"',yb='"&shopnet("yb")&"',tel='"&shopnet("tel")&"',shouji='"&shopnet("shouji")&"',oicq='"&shopnet("oicq")&"',idcard='"&shopnet("idcard")&"',mail='"&shopnet("email")&"',img='"&img&"',g="&g&",k="&k&",sj3='"&sqlnow&"' where  huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")


email=shopnet("email")
bt=""&my_name&"会员资料修改"
html="<html><head><title>感谢您的注册</title><meta http-equiv=Content-Type content=text/html;charset=gb2312></head><body bgcolor=#FFFFFF text=#000000>"
html=html&"亲爱的"&Request.Cookies(Rikee)("huiyuan")&",您好！<br><br>　 您的个人资料已经修改，您的相关资料如下：<br><br>"
html=html&"真实姓名："&shopnet("name")&"<br>"
html=html&"身份证号码："&shopnet("idcard")&"<br>"
html=html&"所 在 地："&shopnet("dz2")&"<br>"
html=html&"联系地址："&shopnet("dizhi1")&"<br>"
html=html&"邮    编："&shopnet("yb")&"<br>"
html=html&"联系电话："&shopnet("tel")&"<br>"
html=html&"手机号码："&shopnet("shouji")&"<br>"
html=html&"电子邮箱："&shopnet("email")&"<br>"
html=html&"马上<a href=http://"&my_url&"/user/login.asp target=_blank>登录</a><br>"
html=html&"<a href=http://"&my_url&" target=_blank>"&my_name&"</a><br>"
nr=html&"<br><br>"&email_bd&"</body></html>"

if mailserver="0" then
smtp email,bt,nr
elseif mailserver="1" then
Call jmail1(email,bt,nr)
End if






response.Write("<Script>alert('修改资料成功！并把相关个人资料发到了您的邮箱("&shopnet("email")&")！');window.location='?abc=info';</script>")
response.End 
end if
set rs = conn.execute("select * from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")
if left(rs("img"),5)<>"face/" then myimg=rs("img") else myimg=""%>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE2">会员资料修改</span></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
          <table border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
              <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="index.asp?abc=pass">密码修改</a></span></font></td>
              <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
            </tr>
          </table>
        </td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="4" bgcolor="1E88C1"></td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="5"></td>
    </tr>
  </table><br>
  <script language="javascript">
function checksignup() {
if ( document.form.name.value == '' ) {
			window.alert('请输入您的名称!!');
			document.form.name.focus();
			return false;
		}
		if ( document.form.idcard.value == '' ) {
			window.alert('请输入身份证号码!!');
			document.form.idcard.focus();
			return false;
		}
            if(isNaN(document.form.idcard.value)||( document.form.idcard.value.length<15)) {
			window.alert('身份证号码必须为15位数字以上！');
			document.form.idcard.focus();
			return false;
		}
		if ( document.form.dz2.value == '' ) {
			window.alert('请输入所在地!!');
			document.form.dz2.focus();
			return false;
		}
		
		if ( document.form.dizhi1.value == '' ) {
			window.alert('请输入联系地址!!');
			document.form.dizhi1.focus();
			return false;
		}
		
		if ( document.form.yb.value == '' ) {
			window.alert('请输入联系人邮政编码!!');
			document.form.yb.focus();
			return false;
		}
            if(isNaN(document.form.yb.value)||( document.form.yb.value.length!=6)) {
			window.alert('邮政编码必须为6位数字！');
			document.form.yb.focus();
			return false;
		}
		if ( document.form.tel.value == '' ) {
			window.alert('请输入联系人电话!!');
			document.form.tel.focus();
			return false;
		}
		if(isNaN(document.form.tel.value)||(document.form.tel.value.length<7)) {
		window.alert("请输入您的有效电话号码,只能是7位以上的数字!!");
		document.form.tel.focus();
		return false;
	}
		if ( document.form.shouji.value == '' ) {
			window.alert('请输入手机号码!!');
			document.form.shouji.focus();
			return false;
		}
		if(isNaN(document.form.shouji.value)||(document.form.shouji.value.length!=11)) {
		window.alert("请输入您的有效手机号码,只能是11位的数字!!");
		document.form.shouji.focus();
		return false;
	}
           if ( document.form.email.value.length> 0 &&!document.form.email.value.indexOf("@")==-1|document.form.email.value.indexOf(".")==-1 ) {
			window.alert('请输入您正确的Email地址!!');
			document.form.email.focus();
			return false;
		}
		if ( document.form.nr.value.length>200) {
			window.alert('个性签名不能超过200字!!');
			document.form.nr.focus();
			return false;
		}
		return true;
	}
function onlyNum(){
if(!((event.keyCode>=48&&event.keyCode<=57)||(event.keyCode>=96&&event.keyCode<=105)))
event.returnValue=false;}
</script> <form action=?abc=info&x=yes method=post name=form id="form">
  <br><table width="90%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
    
    <tr valign="middle" bgcolor="#FFFFFF">
      <td height=21 colspan="2" align="right" background="../image/bk.gif" class=main1>&nbsp;</td>
      </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>真实姓名：</td>
              <td width="355" height=22 class=main1> <input                  name=name class="wenbenkuang" id="name"  onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("name")%>" size=13 maxlength=10> 
                <font color="#ff3333">*</font></td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF">
      <td height=22 align="right" class=main1>身份证号：</td>
              <td height=22 class=main1><font color="#FF6600">
                <input                  name="idcard" class="wenbenkuang" id="idcard"  onmouseover = "this.style.backgroundColor = '#E5F0FF'" onmouseout = "this.style.backgroundColor = ''" value="<%=rs("idcard")%>" size="20" maxlength="18" />
                </font><font color="#ff3333">*</font></td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>男女性别：</td>
              <td height=22 class=main1><input name="xb" type="radio" value="男" checked <%if rs("xb")="男" then Response.Write("checked")%>>
                男 
                <input name="xb" type="radio" value="女" <%if rs("xb")="女" then Response.Write("checked")%>>
                女</td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF">
      <td height=22 align="right" class=main1>OICQ:&nbsp; </td>
              <td height=22 class=main1><input                  name="oicq" class="wenbenkuang" id="oicq"  onmouseover = "this.style.backgroundColor = '#E5F0FF'" onmouseout = "this.style.backgroundColor = ''" value="<%=rs("oicq")%>" size="13" maxlength="10" /></td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF">
      <td height=22 align="right" class=main1>所在地：</td>
      <td height=22 class=main1><input                  name=dz2 class="wenbenkuang" id="dz2"  onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("dz")%>" size=45 maxlength=200><font color="#ff3333">*</font></td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>联系地址：</td>
              <td height=22 class=main1> <input                  name=dizhi1 class="wenbenkuang" id="dizhi1"  onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("dizhi1")%>" size=45 maxlength=200> 
                <font color="#ff3333">*</font> </td>
          </tr>
    
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>邮政编码：</td>
              <td height=22 class=main1> <input                  name=yb class="wenbenkuang" id="yb" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("yb")%>" size=13 maxlength=6> 
                <font color="#ff3333">*</font> </td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>联系电话：</td>
              <td height=22 class=main1> <input                  name=tel class="wenbenkuang" id="tel" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("tel")%>" size=23 maxlength=40> 
                <font color="#ff3333">*</font> </td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>手机：</td>
              <td height=22 class=main1> <input                  name=shouji class="wenbenkuang" id="shouji" onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("shouji")%>" size=23 maxlength=40> 
                <font color="#ff3333"></font><font color="#ff3333">*</font> </td>
          </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height=22 align="right" class=main1>电子信箱：</td>
              <td height=22 class=main1> <input                  name=email class="wenbenkuang" id="email"  onMouseOver = "this.style.backgroundColor = '#E5F0FF'" onMouseOut = "this.style.backgroundColor = ''" value="<%=rs("mail")%>" size=35 maxlength=49>            <font color="#ff3333">*</font></td>
          </tr>
    <%If rs("vip")<>0 then%>
  <%else
Response.Write "<input name=g type=hidden id=g value=100><input name=k type=hidden id=k value=100>"
end if%>
    <%If rs("vip")<>0 Then Response.Write("<tr bgcolor=#FFFFFF><td height=22 colspan=2 align=center valign=middle><iframe name=ad frameborder=0 width=100% height=20 scrolling=no src=../bbs/shangchuan.asp></iframe></td></tr>")%>
    
    <tr align="center" valign="middle" bgcolor="#FFFFFF"> 
      <td height=25 colspan="2" class=main1> <input name="Submit2" type="submit" onClick="javascript:return checksignup()" class="go-wenbenkuang" value="OK_修改我的资料" onFocus="this.blur()"> 
        <input name="Submit" type="reset" class="go-wenbenkuang" value="重 置" onFocus="this.blur()"></td>
          </tr>
    <tr align="center" valign="middle" bgcolor="#FFFFFF">
      <td height=21 colspan="2" background="../image/bk1.gif" class=main1>&nbsp;</td>
    </tr>
    </table>
        </form>
  <%rs.close
set rs=nothing
case else
set rs = conn.execute("select * from huiyuan where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")%>
    <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr> 
              <td> 
                <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr> 
                    <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF">会员中心</a></span></font></td>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
                </table>
               
              </td>
            </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
	      <tr>
	        <td height="4" bgcolor="1E88C1"></td>
	      </tr>
      </table>				  
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="5"></td>
          </tr>
      </table> 
      <span class="STYLE1"> 欢迎您，<%=Request.Cookies(Rikee)("huiyuan")%>，小二在此恭候多时了！</span> <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#efefef">
        <tr bgcolor="#f7f7f7">
          <td height="21" background="../image/bk.gif">&nbsp;</td>
        </tr>
        <tr bgcolor="#f7f7f7"> 
          <td bgcolor="#FFFFFF"></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您的站内信件共有
              <%dx=conn.execute("select count(id) from duanxin where name1='"&Request.Cookies(Rikee)("huiyuan")&"' and zt=0")(0)
		  if dx=0 then Response.Write("0 条") else Response.Write("<bgsound src=../zhanneixin/image/sy.wav border=0><a href=duanxin.asp><b>"&dx&"条</b></a>")%>
          未读站内信</div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td width="150" height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您拥有<%=my_je%><%=rs("je2")%>元</div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您注册的时间是：<%=rs("sj")%></div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您目前总计有<%=rs("xinyong")%>信用点</div></td>
        </tr>
        <%
		xinyong=rs("xinyong")
	  If xinyong<cint(xing1) Then
		xing="noxing.gif"
		End If     
		If xinyong>cint(xing1) Then
		xing="xing1.gif"
		alt=""&cint(xing1)&"-"&cint(xing11)&"为一星级"
		End if
		If xinyong>cint(xing2) Then
		xing="xing2.gif"
		alt=""&cint(xing2)&"-"&cint(xing21)&"为二星级"
		End If
		If xinyong>cint(xing3) Then
		xing="xing3.gif"
		alt=""&cint(xing3)&"-"&cint(xing31)&"为三星级"
		End if
		If xinyong>cint(xing4) Then
		xing="xing4.gif"
		alt=""&cint(xing4)&"-"&cint(xing41)&"为四星级"
		End If
		
		If xinyong>cint(xing5) Then
		xing="xing5.gif"
		alt=""&cint(xing5)&"-"&cint(xing51)&"为五星级"
		End If
		
		If xinyong>cint(xing6) Then
		xing="xing6.gif"
		alt=""&cint(xing6)&"-"&cint(xing61)&"为六星级"
		End If
		
		If xinyong>cint(xing7) Then
		xing="xing7.gif"
		alt=""&cint(xing7)&"-"&cint(xing71)&"为七星级"
		End If
        If  xinyong>cint(xing8) Then
		xing="xing8.gif"
		alt=""&cint(xing8)&"以上为八星级"
		End If
		%>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您的信用星级：<img src="../image/<%=xing%>" border="0" alt="<%=alt%>"></div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您已经在本商城消费<%=rs("je")%>元</div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;您已经总计登陆<%=rs("js")%>次</div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height=22 align="right" bgcolor="#FFFFFF" class=main1><div align="left">&nbsp;最后登陆时间：<%=rs("sj2")%></div></td>
        </tr>
        <tr valign="middle" bgcolor="#FFFFFF">
          <td height=21 align="right" background="../image/bk1.gif" class=main1>&nbsp;</td>
        </tr>
      </table> 
<%rs.close
set rs=nothing
%>
<br>
<strong>您在<%=my_name%>社区发表的帖子</strong>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
	      <tr>
	        <td height="4" bgcolor="1E88C1"></td>
	      </tr>
      </table>
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr bgcolor="#f1f1f1"> 
          <td width="310" height="21" valign="middle" background="../image/bk.gif"><div align="center">主&nbsp;&nbsp; 题</div></td>
          <td width="77" align="center" valign="middle" background="../image/bk.gif">最后回复者</td>
          <td width="43" height="21" align="center" valign="middle" background="../image/bk.gif">人气</td>
          <td width="120" height="21" align="center" valign="middle" background="../image/bk.gif">时&nbsp;&nbsp; 间</td>
        </tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select Topic,ForumID,id,Views,PostTime,LastName from BBSXP_Threads where UserName='"&myhuiyuan&"' order by PostTime desc"
rs.open sql,connbbs,1,1
  if rs.eof then
  response.write "<tr><td colspan=4 align=center bgcolor=white height=21 valgin=bottom >您还没有发过贴！</td></tr>"
  else	
page1("10")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr> 
          <td height="25" valign="middle" bgcolor="#FFFFFF"> ·
<%
Response.Write "<a href=../bbs/showpost.asp?ThreadID="&rs(2)&"&ForumID="&rs(1)&" target=_blank>"&rs(0)&"</a>"
%></td>
          <td width="77" align="center" valign="middle" bgcolor="#FFFFFF">
		  <%If myhuiyuan=rs(5) then%>无<%else%><%=rs(5)%><%End if%></td>
          <td width="43" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs(3)%></td>
    <td width="120" align="center" valign="middle" bgcolor="#FFFFFF"><%=rs(4)%></td>
    </tr>
        <%rs.movenext
         i=i+1
    	loop
		%>
        <tr bgcolor="#FFFFFF"> 
          <td height="21" colspan="6" align="center" background="../image/bk1.gif"> <%page2("abc="&request("abc")&"&")
		  End if
rs.close
set rs=nothing%> <%=wu%></td>
        </tr>
    </table>
<%End Select%></td>
  </tr>
</table>
<br>
<!--#include file="../manage/store/jmail.asp"-->
<!--#include file="../bottom.asp"-->
