📄 shop_list.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用
💻 ASP
字号:
<!--#include file="top.asp"-->

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<script language="Javascript">
function checkserchinput()
{
	if(document.form.keyword.value=="")
	{
		alert("查询内容不能为空！");
		document.form.keyword.focus();
		return false;
	}
	return true;
}
</script>

<center> 
<table border="0" width="778" cellspacing="0" cellpadding="0" height="312">
  <tr>
    <td width="180" height="312" valign="top" align="left">
    <table border="0" width="180" cellspacing="0" cellpadding="0">
      <tr>
        <td width="180" valign="top" align="left"><!--#include file="left.asp"--></td>
      </tr>
    </table>
    </td>
<Td width=5></td>
<td width="580" valign="top">
<%
    if request.querystring("class")<>"" then
        nclass=request.querystring("class")
        findword="mainmanage like '%"&nclass&"%' "
    end if
%>
你的位置:<A href="index.asp">商城首页</a>--->所有商店<br>
<table width="580" border="0" cellspacing="0" cellpadding="0" align="center" class="9h">
        <tr> 
          <td background="img/dot1.gif" height="10"></td>
        </tr>
        <tr><form name="form" method="post" action="allcom.asp"  onsubmit="return checkserchinput()">
          <td bgcolor="#e9a7c4" align="center">[商店查询] 
              <input type="text" name="keyword" size="10" class="9h">
              <select name="user_city" class="9h">
                <option value="all">所有地区</option>

     <option value="北京"><font class="medium">北京</font></option>
                              <option value="上海" ><font class="medium">上海</font></option>
                              <option value="天津"><font class="medium">天津</font></option>
                              <option value="重庆"><font class="medium">重庆</font></option>
                              <option value="内蒙古"><font class="medium">内蒙古</font></option>
                              <option value="山西"><font class="medium">山西</font></option>
                              <option value="河北"><font class="medium">河北</font></option>
                              <option value="辽宁"><font class="medium">辽宁</font></option>
                              <option value="吉林"><font class="medium">吉林</font></option>
                              <option value="黑龙江"><font class="medium">黑龙江</font></option>
                              <option value="江苏"><font class="medium">江苏</font></option>
                              <option value="安徽"><font class="medium">安徽</font></option>
                              <option value="山东"><font class="medium">山东</font></option>
                              <option value="浙江"><font class="medium">浙江</font></option>
                              <option value="江西"><font class="medium">江西</font></option>
                              <option value="福建"><font class="medium">福建</font></option>
                              <option value="湖南"><font class="medium">湖南</font></option>
                              <option value="湖北"><font class="medium">湖北</font></option>
                              <option value="河南"><font class="medium">河南</font></option>
                              <option value="广东"><font class="medium">广东</font></option>
                              <option value="海南"><font class="medium">海南</font></option>
                              <option value="广西"><font class="medium">广西</font></option>
                              <option value="贵州"><font class="medium">贵州</font></option>
                              <option value="四川"><font class="medium">四川</font></option>
                              <option value="云南"><font class="medium">云南</font></option>
                              <option value="陕西"><font class="medium">陕西</font></option>
                              <option value="甘肃"><font class="medium">甘肃</font></option>
                              <option value="宁夏"><font class="medium">宁夏</font></option>
                              <option value="青海"><font class="medium">青海</font></option>
                              <option value="新疆"><font class="medium">新疆</font></option>
                              <option value="西藏"><font class="medium">西藏</font></option>
                              <option value="香港"><font class="medium">香港</font></option>
                              <option value="澳门"><font class="medium">澳门</font></option>
              </select>
<input type="image"  src="img/23.jpg" width="55" height="20">
          </td></form>
        </tr>
        <tr> 
          <td background="img/dot1.gif" height="10"></td>
        </tr>
      </table><br>
 <table width="580" cellspacing="0" cellpadding="0" border=1 bordercolor=#e9a7c4 background="img/dot2.gif">
<tr><Td width=60 align=center>商店负责人</tD>
<Td width=280 align=center>商店名称</tD>
<Td width=80 align=center>联系电话</tD>
<Td width=60 align=center>商店地区</tD>
<Td width=100 align=center>查看详细资料</tD></tr>
<%page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)
        set rs=server.createobject("adodb.recordset")
         sql="select * from member where user_yes=true  and "&findword&" "

        rs.open sql,conn,3,3
            if rs.eof then 
               response.write "该分类没有商店"
            else
    rs.pagesize=18
    totalrec=rs.recordcount
    totalpage=rs.pagecount
    if page>totalpage then page=totalpage
    rs.absolutepage=page
    rs.cachesize=rs.pagesize
            do while not rs.eof
            %>
            <tr><Td align=center width=60><%=rs("user_name")%></tD>
<Td  width=280 align=center><%=rs("user_company")%></tD>
<Td width=80  align=center><%=rs("user_tel")%></tD>
<Td width=60  align=center><%=rs("user_city")%></tD>
<Td width=100 align=center><a href="listcom.asp?user_company=<%=rs("user_company")%>&ob=1"><font color=#cc0000><img src="img/go.gif" border=0>进入该商店</font></a></tD></tr>
      <tr>
        <td width="100%" colspan="5" height=8></td>
      </tr>
            <%rs.movenext
            loop
            end if
            rs.close%>
      <tr>
        <td width="100%" colspan="5">共<font color=red><%=totalpage%></font>页 第<%=page%>页         
                      <font color=666666><%if page-1>0 then%><a href="shop_list.asp?page=<%=page-1%>&class=<%=nclass%>">上一页</a><%else%>上一页<%end if%>　<%if page+1<=totalpage then%><a href="shop_list?page=<%=page+1%>&class=<%=nclass%>">下一页</a><%else%>下一页</font><%end if%></td>
      </tr>

 </table>
</td><Td width=5></td>

  </tr>
</table>
<!--#include file="copy.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -