<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html>
<head>
<title><%=webname%>--我的专区</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<div align="center">
<TABLE id=table1 style="MARGIN: 0px auto; BORDER-BOTTOM: #ffffff 0px solid" 
height="100%" cellSpacing=0 borderColorDark=#FFFFFF cellPadding=0 width=976 
borderColorLight=#CECECE border=1>
  <TBODY>
  <TR><!--sart left-->
    <TD vAlign=top width=234 bgcolor="#F1F1F1">
      <p align="center"><!--#include file="left.asp"--></TD><!---end left--><!--start right-->
    <TD vAlign=top align=middle width=700>
      　<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="30" align="center"><a href="user.asp"><strong><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  会员首页</a> <a href="user.asp?action=myinfo"><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  我的信息</a>/<a href="user.asp?action=shoucang">收藏</a>/<a href="user.asp?action=jifen">积分</a>/<a href="user.asp?action=dindan">订单</a> 
                  <a href="user.asp?action=userziliao"><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  个人资料</a> <a href="user.asp?action=savepass"><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  修改密码</a><a href="user.asp?action=viphd"><strong><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  VIP活动</a><strong> <a href="user.asp?action=sqvip"><strong><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  </strong></a></strong><a href="user.asp?action=sqvip">申请VIP</a><strong> 
                  <strong><a href=logout.asp><strong><img src="images/dot_03.gif" width="9" height="9" border="0"> 
                  </strong></a></strong><a href=logout.asp>退出登录</a></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
              <%xAction=lcase(request("action"))
						select case xAction
						case "myinfo"
					  %>
              <tr> 
                <td height="30" colspan="4"><strong></strong> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>我的信息</strong></td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
						case "userziliao"
					  %>
              <tr> 
                <td height="30" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>个人资料</strong> </td>
                    </tr>
                    <tr> 
                      <td height="2" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "savepass"
					  %>
              <tr> 
                <td height="30" colspan="4"><strong></strong> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>修改密码</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "dindan"
					  %>
              <tr> 
                <td height="30" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>我的订单</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "shoucang"
					  %>
              <tr> 
                <td height="30" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>我的收藏</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "jifen"
					  %>
              <tr> 
                <td height="30" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>我的积分</strong></td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "sqvip"
					  %>
              <tr> 
                <td height="15" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>申请VIP会员</strong></td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>    <%
					  	case "vipsq"
					  %>
              <tr>
                <td height="15" colspan="4"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>申请VIP会员</strong></td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case "viphd"
					  %>
              <tr> 
                <td height="30" colspan="4"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>VIP 活动</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%
					  	case else
					  %>
              <tr> 
                <td height="30" colspan="4" class="table-xia"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="1">
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                    <tr> 
                      <td height="25" bgcolor="efefef"><strong>&nbsp;<B><img src="images/o.gif" width="15" height="15"> 
                        </B>推荐精品</strong> </td>
                    </tr>
                    <tr> 
                      <td height="1" bgcolor="cccccc"><img src="images/dot_03.gif" width="9" height="1" border="0"></td>
                    </tr>
                  </table></td>
              </tr>
              <%end select%>
            </table>
            <br> 
            <!--#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 else
%>
            <%set rs=server.createobject("adodb.recordset")
		rs.open "select  * from shop_snsn where bestshop=1 order by shopid desc",conn,1,1
		if rs.recordcount=0 then 
		%>
            <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
              <tr> 
                <td align=center>暂无推荐精品</td>
              </tr>
            </table>
            <%
		else
	  		rs.PageSize =flsl '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			For i=1 To x
		%>
            <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
              <tr> 
                <td rowspan="4" valign="top" class="table-xia"> 
                  <%if rs("shoppic")="" then %>
                  <table width="100" height="100" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
                    <tr> 
                      <td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src=images/emptyshop1.gif width=85 border=0 alt=<%=trim(rs("shopname"))%>></a></div></td>
                    </tr>
                  </table>
                  <%else%>
                  <div align="center"> 
                    <table width="110" height="110" border="1" align="center" cellpadding="0" cellspacing="5" bordercolor="#FFFFFF">
                      <tr> 
                        <td bordercolor="<%=flshpbj%>"> <div align="center"><a href=list.asp?id=<%=rs("shopid")%> <%if rs("sftc")="" then%><%else%> target=<%=rs("sftc")%><%end if%>><img src="<%=trim(rs("shoppic"))%>"  width=85 border=0 alt=<%=trim(rs("shopname"))%>></a></div></td>
                      </tr>
                    </table>
                    <%end if%>
                  </div></td>
                <td><a href=list.asp?id=<%=rs("shopid")%>><%=trim(rs("shopname"))%></a></td>
              </tr>
              <tr> 
                <td>市场价：<s><%=trim(rs("shichangjia"))%>元</s> 会员价：<%=trim(rs("huiyuanjia"))%>元 
				VIP价：<%=trim(rs("vipjia"))%>元 </td>
              </tr>
              <tr> 
                <td><a href="gouwu.asp?id=<%=rs("shopid")%>&action=add"><img src="images//gm.gif" border="0"></a><a href="shoucang.asp?id=<%=rs("shopid")%>&action=add"><img src="images//shc.gif" border="0"></a></td>
              </tr>
              <tr> 
                <td class="table-xia">
                  <%if len(trim(rs("shopcontent")))>3 then
	response.write left(trim(rs("shopcontent")),3)&"...."
	else
	response.write trim(rs("shopcontent"))
	end if%>
                  </td>
              </tr>
            </table> 
            <%rs.movenext
		next
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "种商品" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
end select%>
          </td>
        </tr>
      </table></TD><!--end right--></TR></TBODY></TABLE></div>
<!--#include file="copyright.asp"-->
</body>
</html>
