<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="webtop.asp"-->
<%if session("username") = "" then
response.write "<script language=javascript>alert('Pleas login!');window.history.go(-1);</script>"
response.End
end if%>
<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="20">&nbsp;</td>
    <td width="481" valign="bottom"><img src="<%=weburl%>images/arrow01.gif" width="11" height="11" /> Your present position: <a href="<%=weburl%>"><%=webname%></a> -> <span class="table-shangxia"><span class="b14">Member Center </span></span> -> <%xAction=lcase(request("action"))
select case xAction
case "myinfo"
	response.write "Check My Information"
case "userziliao"
	response.write "Change My Information"
case "savepass"
	response.write "Change Password"
case "dindan"
	response.write "My Orders"
case "shoucang"
	response.write "Collection"
case "jifen"
	response.write "My Score"
case "viphd"
	response.write "Offers For VIP"
case "sqvip"
	response.write "How to be VIP Member"
case "vipsq"
	response.write "Winner of VIPS"
case "myshhr"
	response.write "My Shipping information"
case "syh"
	response.write "商友会"
case else
	response.write "Member Settings"
end select
%></td>
    <td width="499" valign="bottom"><MARQUEE onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=3 scrollDelay=80 width=500>
       <font color="#ff0000"><span class="bulletin_td"><%=gonggao%></span></font></MARQUEE></td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="205" valign="top"><table width="210" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
            <tr>
              <td width="206" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">Member Centre</span></div></td>
                  </tr>
                  <tr>
        <td valign="middle" ><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
		<form name="userlogin" method="post" action="<%=weburl%>checkuserlogin.asp">
          <tr>
            <td height="25"><%
						set rslg=server.createobject("adodb.recordset")
						sql = "select jifen,yucun,reglx,vipdate from [shop_user] where username='"&nosql(session("username"))&"'"
                        rslg.open sql,conn,1,3
                        if rslg("vipdate")<>"" then 
                          '检查VIP是否过期
                          if rslg("vipdate") < date and rslg("reglx") = 2 then
                          rslg("reglx") = 1
                          rslg.update
                          end if
                        end if
                        session("yucun") = rslg("yucun")
                        session("jifen") = rslg("jifen")
                        session("reglx") = rslg("reglx")
                        rslg.close
                        set rslg = nothing%>Username：<%=session("username")%>						</td>
          </tr>
          <tr>
            <td height="25">Usertype:<%if session("reglx") = 2 then
				response.write " <font color=red>VIP</font>"
								elseif session("reglx")=3 then
				response.write "<font color=red>Wholesale</font>"
				else
				response.write "<font color=red>Member</font>"
				end if%></td>
          </tr>
          
          
          <tr>
            <td height="30"><div align="center"><a href="<%=weburl%>logout.asp"><img src="images/login04.gif" width="140" height="28" border="0" /></a></div></td>
            </tr>
	      </form>
        </table>		</td>
      </tr>
      <tr>
        <td height="117" valign="middle" ><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="25" colspan="2" background="<%=weburl%>images/skin<%=cssid%>/hyzx.gif"><div align="center" style="color: #000000">Account Settings</div></td>
          </tr>
          <tr>
            <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=myinfo">Check My Information</a></td>
          </tr>
          <tr>
            <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=userziliao">Change My Information</a></td>
          </tr>
          <tr>
            <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=savepass">Change Password</a></td>
          </tr>
          <tr>
            <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=jifen">My Score</a></td>
          </tr>
          
          <tr>
            <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="bbs/mysms.asp?menu=write">Message to Me</a></td>
          </tr>
        </table>
          <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td height="25" background="<%=weburl%>images/skin<%=cssid%>/hyzx.gif"><div align="center" style="color: #000000">Shopping Settings</div></td>
          </tr>
          <tr>
            <td height="25">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=dindan">My Orders</a></td>
          </tr>
          <tr>
            <td height="25">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="gouwu.asp?action=show&lx=1">My Shopping Cart</a> </td>
          </tr>
          <tr>
            <td height="25">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="shoucang.asp?action=show">Collection</a></td>
          </tr>
          <tr>
            <td height="25">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="to.asp?action=show">Comparison</a></td>
          </tr>
          <tr>
            <td height="25">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=myshhr">My Shipping information</a></td>
          </tr>
        </table>
          <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="25" colspan="2" background="<%=weburl%>images/skin<%=cssid%>/hyzx.gif"><div align="center" style="color: #000000">VIP Settings</div></td>
            </tr>
            <tr>
              <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=sqvip">How to be VIP Member</a></td>
            </tr>
            <tr>
              <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="user.asp?action=viphd">Offers For VIP</a></td>
            </tr>
            
            <tr>
              <td height="25" colspan="2"><a href="to.asp?action=show"></a> &nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="vipdyj.asp?action=vipsq">Winner of VIPS</a></td>
            </tr>
          </table>
          <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="25" colspan="2" background="<%=weburl%>images/skin<%=cssid%>/hyzx.gif"><div align="center" style="color: #000000">Other Settings</div></td>
            </tr>
            
            <tr>
              <td height="25" colspan="2">&nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="<%=weburl%>fk.asp">Feedback</a></td>
            </tr>
            <tr>
              <td height="25" colspan="2"><a href="to.asp?action=show"></a> &nbsp;<img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="<%=weburl%>qhdj.asp">Order it of "out of stock"</a></td>
            </tr>
          </table></td>
      </tr>
               </table></td>
            </tr>
          </table>
</td>
          <td valign="top"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
            
            <tr>
              <td height="25">&nbsp;<span class="STYLE2">Welcome <%=session("username")%></span>，</td>
            </tr>
            <tr>
              <td height="25">&nbsp;Account：<span class="STYLE2"><%=session("yucun")%></span> &nbsp; Score：<span class="STYLE2"><%=session("jifen")%></span></td>
            </tr>
            <tr>
              <td height="25">&nbsp;<%
			if session("username")<>"" then 
					  set rscar=server.CreateObject("adodb.recordset")
					  rscar.open "select count(*) as rec_count from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
					  rec_count=rscar("rec_count")
					  rscar.close
					  rscar.open "select sum(zonger) as zongji from shop_action where username='"&nosql(session("username"))&"' and zhuangtai=7",conn,1,1
					  else
					  set rscar=server.CreateObject("adodb.recordset")
					  rscar.open "select count(*) as rec_count from shop_action where username='"&nosql(session("tmp_usersessionid"))&"' and zhuangtai=7",conn,1,1
					  rec_count=rscar("rec_count")
					  rscar.close
					  rscar.open "select sum(zonger) as zongji from shop_action where username='"&nosql(session("tmp_usersessionid"))&"' and zhuangtai=7",conn,1,1
					  end if
					  %>Shopping Cart(<span class="STYLE2"><%=rec_count%></span>)  Total：<span class="STYLE2"><%if (rscar("zongji")="") or isNull(rscar("zongji")) then
            response.write "0"
           else 
	        response.write formatnumber(cdbl(rscar("zongji")),2)
           end if
		   rscar.close
          set rscar = nothing%>
              </span>  | You can click <a href="gouwu.asp?action=show&lx=1">"My Shopping Cart"</a> to pay for goods.</td>
            </tr>
            <tr>
              <td height="26" bgcolor="#CCCCCC"><div align="center">Settings</div></td>
            </tr>
          </table>
           
            <!--#include file=user_inc.asp-->
            <%xAction=lcase(request("action"))
select case xAction
case "myinfo"
	call myinfo()
case "userziliao"
	call userziliao()
case "savepass"
	call savepass()
case "dindan"
	call dindan()
case "shoucang"
	call shoucang()
case "jifen"
	call jifen()
case "viphd"
	call viphd()
case "sqvip"
	call sqvip()
case "vipsq"
	call vipsq()
case "myshhr"
	call myshhr()
case "syh"
	call syh()
case else
	call myinfo()
end select%></td>
          <td width="205" valign="top">
<table width="200" border="0" align="center" cellpadding="1" cellspacing="1" background="<%=weburl%>images/skin<%=cssid%>/z02.jpg">
            <tr>
              <td width="200" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td height="30" background="<%=weburl%>images/skin<%=cssid%>/z01.jpg"><div align="center"><span style="font-weight: bold; color: #000000">Guest Notices</span></div></td>
                  </tr>
      <tr>
        <td height="153" valign="top">
		<%if session("username")="" then
				 set rsg=server.createobject("adodb.recordset")
				 		rsg.open "select top 8 * from shop_usergg where lx=0 order by id desc",conn,1,1
				 else
				set rsg=server.createobject("adodb.recordset")
				rsg.open "select top 8 * from shop_usergg where  lx="&nosql(session("reglx"))&" or lx=0 order by id desc",conn,1,1
				end if
		if rsg.recordcount=0 then 
		%>
		<table width="90%" height="222" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="67%"><div align="center">No Data ！</div></td>
            </tr>
            

            <tr>
              <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
            </tr>
            <tr>
              <td height="20"><div align="right"><img src="<%=weburl%>images/more.gif" width="36" height="9" /></div></td>
            </tr>
        </table>
		<%else%>
		<table width="90%" height="222" border="0" align="center" cellpadding="0" cellspacing="0">
           <%
			while not rsg.eof
			%>
		    <tr>
              <td width="67%" height="25"><img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> <a href="<%=weburl%>gg_list.asp?id=<%=rsg("id")%>" title=<%=rsg("zt")%>（<%=year(rsg("adddate"))%>年<%=month(rsg("adddate"))%>月<%=day(rsg("adddate"))%>日发布）>
                      <%if len(trim(rsg("zt")))>12 then
	response.write left(trim(rsg("zt")),29)&""
	else
	response.write trim(rsg("zt"))
	end if%>
                </a></td>
            </tr>
            
            <tr>
              <td><img src="<%=weburl%>images/xuxian.gif" width="163" height="1" /></td>
            </tr>
			<%
			rsg.movenext
		    wend
			
			%>
            
            <tr>
              <td height="20"><div align="right"><a href="<%=weburl%>gg_show.asp"><img src="<%=weburl%>images/more.gif" width="36" height="9" border="0" /></a></div></td>
            </tr>
        </table>
		<%end if
		rsg.close
		set rsg=nothing%>		</td>
      </tr>
              </table></td>
            </tr>
          </table><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table></td>
        </tr>
    </table></td>
  </tr>
</table>

<!--#include file="copyright.asp"-->
</body>
</html>
