📄 comcon.asp

📁 一个功能很全面占用空间的小商城程序,适合个人网上开店使用

💻 ASP

字号:

<!--#include file="top.asp"-->

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<center>


<table border="0" width="760" cellspacing="0" cellpadding="0" height="312">
  <tr>
    <td width="190" height="312" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190" valign="top" align="left"><!--#include file="leftlistcom.asp"--></td>
      </tr>
    </table>
    </td>
</center>
    <td width="380" valign="top" align="left">
   
 <table border="0" width="380" cellspacing="0" cellpadding="0" height="5">
      <tr>
        <td width="380"  height="18">
你的位置：<a href="index.asp">E网时代超市</a>===><%=user_company%>
        </td>
      </tr>
     </table>
 <table border="0" width="100%" cellspacing="1">         
              <tr>         
<%
user_con=request("user_con")%>
<%=user_con%>所有商家<br>
<%
sql="select  * from member where user_con='"&user_con&"' order by user_company DESC "
              rs.open sql,conn,3,3
              if rs.eof then
                  response.write "暂且没有分类"
              else
                  do while not rs.eof
                  %><% if rs("yes")=true      then %>
                     <a href="listcom.asp?user_company=<%=rs("user_company")%>"><%=rs("user_company")%></a>(<font color=red><%
                     set rs1=server.createobject("adodb.recordset")
                     user_company=rs("user_company")
                     sql1="select * from hw where user_company='"&user_company&"'"
                     rs1.open sql1,conn,3,3
                     response.write rs1.recordcount
                     rs1.close
                     %></font>件)<br>
                  <%                 end if
                  rs.movenext
                  loop

              end if
              rs.close
              %>
       
                </td>         
              </tr>         
            </table>     
    </td>
    <td width="190" valign="top" align="left">
    <table border="0" width="190" cellspacing="0" cellpadding="0">
      <tr>
        <td width="190"><!--#include file="rightlistcom.asp"--></td>
      </tr>
    </table>
    </td>
  </tr>
</table>
<!--#include file="copy.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -