shoplist.asp

设计考虑校园电子商务模式

<%
'****************************************************
' 多多校园                      Power by ddtaobao.com
' Email:[e-mail]               OICQ:136465584 
' Web: http://www.ddtaobao.com              作者:多多
' 校园、企业、医院、公司程序定做，系统开发，网站制作!
' Copyright (C) 2007 ddtaobao.com All Rights Reserved
'****************************************************
%><!--#include file="top.asp"-->

<TABLE width=778 border=0 cellpadding="0" cellspacing="0" align=center>
<TR ><TD vAlign=top width=61>
<TABLE cellSpacing=0 cellPadding=0 width="182" border=0>
          <TBODY>
            <TR> 
              <TD class=right_title_bs06 align=center>会　员　登　陆</TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD >

  <% call ShowUserLogin() %>
</TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
             <TR> 
              <TD class=right_title_bs06 align=center>店　铺　分　类</TD>
            </TR>
            <TR> 
              <TD>
						<% call showshoptype %>
			
                </TD>
            </TR>
            
            
 <TR> 
              <TD class=right_title_bs06 align=center>搜　索　宝　贝</TD>
            </TR>
            <TR> 
              <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD > <TABLE width="100%" align=center border=0>
                          <TBODY>
                            <TR> 
                              <TD> <form action="search.asp" method="post" name="form" id="form">
                                  <table width="100%" border="0" cellpadding="2">
                                    <tr> 
                                      <td>
									商品名称:<INPUT  size=15 name=keyword></td>
                                    </tr>
	 


                                    <tr>
                                      <td align="center">
<input type="submit" name="Submit" value="搜索看看" class=input2></td>
                                    </tr>
                                  </table>
                                </form>
                                
                              </TD>
                            </TR>
                        </TABLE><TABLE width="100%" align=center border=0>
                          <TBODY>
                            <TR> 
                              <TD> <form action="shopsearch.asp" method="post" name="form1" id="form1">
                                  <table width="100%" border="0" cellpadding="2">
                                    <tr> 
                                      <td>
										店铺名称:<INPUT  size=15 name=keyword></td>
                                    </tr>
	 


                                    <tr>
                                      <td align="center">
<input type="submit" name="Submit" value="搜索看看" class=input2></td>
                                    </tr>
                                  </table>
                                </form>
                              </TD>
                            </TR>
                        </TABLE></TD>
                    </TR>
                </TABLE></TD>
            </TR>
         

            
            </TABLE>
</td><td class=line></td><TD vAlign=top><SCRIPT LANGUAGE="JavaScript">

<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>
<%
Dim zu
zu=SafeRequest(Request.QueryString("zu"))
IF zu=empty Then
  zu="1"
End IF
Dim StrSql,Rs
StrSql="select * from dd_user Where zu='"& zu &"' and font in ('1') order by user_date desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open StrSql,conn,1,1
%>
 <TABLE cellpadding="3" cellspacing="1" class="tableborder1" width="100%">
<TR> 
              <TD  class=main_title_bsf colspan="7"> 
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15"> 
						最新店铺</TD>
                  
            </TR>
            
						<tr>
							<td align="center" class="tablebody1">序号</td>
							<td align="center" class="tablebody1">店铺标志</td>
							<td align="center" class="tablebody1">店铺名称</td>
							<td align="center" class="tablebody1">店铺掌柜</td>
							<td align="center" class="tablebody1">店铺OICQ</td>
							<td align="center" class="tablebody1">开店时间</td>
							<td align="center" class="tablebody1">人气</td>
						</tr>						<%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=10
	  if request.QueryString("page_no")="" then
	  page_no=1
	  else
	  page_no=cint(request.QueryString("page_no"))
	  end if
	  rs.pagesize=page_size
	  page_total=rs.pagecount
	  rs.absolutepage=page_no
	  dim I,J
	  I=0
	  J=page_size
	  do while not rs.eof and J>0
	  J=J-1
	  I=I+1
      %>

						<tr>
							<td align="center" class="tablebody1"><%=rs("user_id")%></td>
							<td align="center" class="tablebody1"><a href="shop_info.asp?user_id=<%=rs("user_id")%>" target="_blank">
							<img src="<%=rs("shop_img")%>" height=60 width=60 border=0 style="border: 1px solid #C0C0C0; "></a></td>
							<td align="center" class="tablebody1"><%=rs("shop_name")%><br><%=top1(rs("star"))%></td>
							<td align="center" class="tablebody1"><%=rs("user_name")%></td>
							<td align="center" class="tablebody1"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("user_qq")%>&Site=<%=homepage%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("user_qq")%>:16 alt="点击这里给我发消息"></a></td>
							<td align="center" class="tablebody1"><%=rs("user_date")%></td>
							<td align="center" class="tablebody1"><%=rs("shop_hits")%></td>
						</tr><%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>

					</table>
					
			</div>
					
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="page" >
              <tr>
                <td><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
              <%if int(page_no)>1 then%>
              [<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
              <%elseif int(page_no)<=1 then%>
              [<a href="?page_no=1">前一页</a>]
              <%end if%>
              <%if int(page_no)<int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
              <%elseif int(page_no)>=int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
              <%end if%>
              [<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
              <input name="page" type="text" value="<%=page_no%>" size="5">页
			<input type="button" class=input name="Submit" value="转到" onclick="GoPage()"></div></td>
              </tr>
</table>

　</td></tr></TABLE> 
 
<!--#include file="bottom.asp"-->