config_list.asp

鄂尔多斯建站网全站程序(冬季修正版)

<!--#include file="config_ad.asp"-->
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>
<%
sub list
id=request("id")
if id="" then
response.redirect("index.asp")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from sort where id='"&id&"' order by sort_id" 
rs.open sql,conn,3,3
if rs.eof and rs.bof then%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="1%"></td>
    <td width="51%">
      <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#696969" style="border: 1px solid #626262">
        <tr>
          <td width="100%" bgcolor="#EEEEEE" height="25" align="center">
			[                                    
            商品信息 ]</td>                                   
        </tr>
        <tr>
          <td width="100%" bgcolor="#FFFFFF" height="170" align="center">未添加任何商品</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%else
pgsize=6
page=request.querystring("page")
rs.pagesize=pgsize
pgnm=rs.pagecount
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
count=0
do while not rs.eof and count<rs.pagesize
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="2%" valign="top"></td>
    <td width="96%" valign="top">
      <table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#626262">
        <tr>
          <td width="100%" height="25" colspan="3">
            <table border="0" cellpadding="0" cellspacing="0" width="100%" height="20">
              <tr>
                <td width="20%" align="center" height="25" bgcolor="#EEEEEE"><b>类 型</b></td> 
                <td width="52%" align="center" bgcolor="#EEEEEE" height="25"><b>
				简 介</b></td> 
                <td width="28%" align="center" bgcolor="#EEEEEE" height="25"><b>
				购 买</b></td> 
              </tr> 
            </table> 
          </td> 
        </tr> 
        <tr> 
          <td width="20%" bgcolor="#FFFFFF" rowspan="3"> 
            <p align="center"><img border="0" src="pic/pic/<%=rs("grade")%>"></td> 
          <td width="54%" bgcolor="#FFFFFF" height="22"> 
            <table border="0" cellpadding="0" cellspacing="0" width="100%"> 
              <tr> 
                <td width="35%"> 
                  <p align="right">商品编号： </td> 
                <td width="65%"><b><%=rs("sort_name")%></b></td> 
              </tr> 
            </table> 
          </td> 
          <td width="26%" bgcolor="#FFFFFF" rowspan="3"> 
            <table border="0" cellpadding="0" cellspacing="0" width="100%" height="54"> 
              <tr> 
                <td width="100%" height="27" align="center"><a href="view.asp?sort_id=<%=rs("sort_id")%>"><img border="0" src="pic/button_1.gif"></a></td>
              </tr>
              <tr>
                <td width="100%" height="27" align="center"><a href="send.asp?sort_id=<%=rs("sort_id")%>"><img border="0" src="pic/button_2.gif"></a></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="54%" bgcolor="#FFFFFF" height="22">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
              <tr>
                <td width="35%">
                  <p align="right">商品配置： </td>
                <td width="65%"><b><%=rs("smalltext")%></b></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr>
          <td width="54%" bgcolor="#FFFFFF" height="22">
            <table border="0" cellpadding="0" cellspacing="0" width="100%">
              <tr>
                <td width="35%">
                  <p align="right">商品价格： </td>
                <td width="65%"><b><font color="#FF0000"><%=rs("price")%></font></b>元/年</td>
              </tr>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
response.write"<br>"
count=count+1
rs.movenext
loop
rs.close
set rs=nothing
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="2%"></td>
    <td width="94%" style="border-style:solid; border-width:1; " height="20" bordercolor="#FFFFFF">
      <p align="center"><p align="right">
<a href=list.asp?id=<%=id%>&page=<%=page-1%>>┊ 上一页</a>&nbsp;┊&nbsp;<a href=list.asp?id=<%=id%>&page=<%=page+1%>>下一页 ┊</a></p> 
    </td>
  </tr>
</table>
<%response.write"<br>"
end if
end sub
sub list_right
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">  
  <tr>  
    <td width="100%">  
      <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#696969" style="border: 1px solid #626262">  
        <tr>  
          <td width="100%" bgcolor="#EEEEEE" height="25">  
            <p align="center">[ <b>本类商品</b> ]</td>                                         
        </tr>   
        <tr>   
          <td width="100%" bgcolor="#FFFFFF">
            <div align="center">
              <center>
              <table border="0" cellpadding="0" cellspacing="0" width="95%">
                <tr>
                  <td width="100%" height="3" align="center"></td>
                </tr>
<%
id=request("id")
dim rs,sql           
set rs=server.createobject("adodb.recordset")
sql="select * from sort where id='"&id&"' order by sort_id"
rs.open sql,conn,3,3
if rs.eof then%>
        <tr>   
          <td width="100%" bgcolor="#FFFFFF" height="20">
            <p align="center">未添加商品</td>
        </tr>
<%
end if
do while not rs.eof%>
                <tr>
                  <td width="100%" height="25" align="left"> -- <a href="view.asp?sort_id=<%=rs("sort_id")%>"><%=rs("smalltext")%></a></td>                                     
                </tr> 
<% 
rs.movenext          
loop 
rs.Close 
set rs=nothing%>                 
                <tr> 
                  <td width="100%" height="3"></td> 
                </tr> 
              </table> 
              </center> 
            </div> 
          </td> 
        </tr> 
      </table> 
    </td> 
  </tr> 
  <tr> 
    <td width="100%">　</td> 
  </tr> 
  <tr> 
    <td width="100%"> 
          <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#696969" style="border: 1px solid #626262"> 
        <tr> 
          <td width="100%" bgcolor="#EEEEEE" height="25"> 
            <p align="center">[ <b>本类客户</b> ]</td>                                         
        </tr> 
          <%
id=request("id")           
set rs=server.createobject("adodb.recordset")
sql="select * from customer where id='"&id&"' order by c_id desc"
rs.open sql,conn,3,3
if rs.eof then          
          %>
        <tr>   
          <td width="100%" bgcolor="#FFFFFF" height="20">
            <p align="center">未添加客户</td>
        </tr>
<%else%>       
        <tr>   
          <td width="100%" bgcolor="#FFFFFF" height="20">          
            <p align="center"><marquee id="scrollarea" direction="up" scrolldelay="50" scrollamount="1" width="100" height="150" onmouseover="this.stop();" onmouseout="this.start();">
<%do while not rs.eof 
response.write"<a href="&rs("c_url")&">"&rs("c_name")&"</a>" 
response.write"<br>"
response.write"<br>"
rs.movenext          
loop 
rs.Close 
set rs=nothing
end if
%>
</marquee>
</td>  
</tr>
</table>
</td>
</tr>
<tr>
  <td>　</tr>
  <table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#626262" style="border: 1px solid #626262">
    <tr>
      <td width="100%" bgcolor="#EEEEEE" height="25">
        <p align="center">[ <b>站内广告</b> ]</td>    
    </tr>
    <tr>
      <td width="100%" bgcolor="#FFFFFF">
        <table border="0" cellpadding="0" cellspacing="0" width="100%">
          <tr>
            <td width="100%">　</td>
          </tr>
          <tr>
            <td width="100%">
              <p align="center"><%call list_ad%></td>
          </tr>

        </table>
      </td>
    </tr>
  </table>
  </tr>
</table>
<%end sub%>
<%
'**********************************
'版本:Host_free 3.0               *
'官方网站:Http://www.850518.com   *
'技术论坛:Http://forum.850518.com *
'QQ:54455245 (欢迎咨询商业版)     *
'MSN: [e-mail]         *
'手机:[phone]              *
'mail:[e-mail]            *
'版权所有，请保留该信息，谢谢合作 *
'**********************************
%>