⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 allshow.asp

📁 用ASP写的二手市场程序
💻 ASP
字号:
<html>

<head>
<style type="text/css">
<!--
body {font-family: "宋体,MS Sans Serif"; font-size:  12px; line-height: 17px;}
td {font-family: "宋体,MS Sans Serif"; font-size:  12px; line-height: 17px;}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>闽东二手交易中心</title>


<link rel="stylesheet" type="text/css" href="new.css">
<meta name="Microsoft Border" content="tb, default">
</head><body bgcolor="#FFFFFF" text="#000000" link="#333333" vlink="#000000"
alink="#000000" background="bg.gif" ><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<div align="center">
  <center>
  <table border="0" width="700" cellspacing="0" cellpadding="0">
    <tr>
      <td width="120" valign="bottom" align="center"><img border="0" src="../images/f1.jpg" width="120" height="60"></td>
      <td width="580" valign="middle" align="center">
      <table STYLE="table-layout:fixed" border="0" width="100%" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="100%" valign="bottom">
                      <p align="center"><!--Begin Naiter Ad Copyright 2000 Naiter Information Co.,LTD. All rights reserved. Patent Pending --> 
                      <a href="http://" target="_blank">       
 <SCRIPT LANGUAGE="JAVASCRIPT">      
 <!--      
 SiteName = "fafly";      
 SiteTarget  = "_blank";      
 file://-->      
 </SCRIPT>      
 <SCRIPT SRC="http://www.adsnow.net/AdsnowUniversal/BANNER" LANGUAGE="JAVASCRIPT"></SCRIPT>      
<!--End Naiter Ad Copyright 2000 Naiter Information Co.,LTD. All rights reserved. Patent Pending --></a></td>     
                  </tr>     
                </table>      </td> <td><p align=left><img src="../images/erso.gif"></p></td>
    </tr> 
    <tr> 
      <td width="100%" valign="bottom" align="center" colspan="3"><table border="1" width="700" cellspacing="0" cellpadding="0" bordercolor="#FFFFFF" height="17"> 
    <tr> 
      <td width="100%" bordercolor="#6B7973" valign="middle" class="ourfont1"> 
        <div align="center"> 
          <table border="0" width="700" cellspacing="0" cellpadding="0"> 
            <tr> 
              <td width="89"><img border="0" src="../_borders/menubar.gif" width="89" height="17"></td> 
            <td> 
              <p class="ourfont1">&nbsp;<a href="http://www.fafly.com">首页</a>  
              | <a href="../news/index.htm">新闻</a> |     
              <a href="../music/index.htm">音乐</a> | <a href="../fad/index.htm">时尚</a>     
              | <a href="../computator/index.htm">电脑</a> | <a href="../book/index.htm">文学</a>     
              | <a href="../erso/index.asp">二手</a>   
              | <a href="../fydb/index.asp" target="_blank">碟报</a>   
              | <a href="../chat/index.asp" target="_blank">聊天</a> | <a href="../bbs/index.htm">论坛</a>&nbsp;|   
              收藏 | 关于</p>   
            </td>   
          </tr>   
          </table>   
      </div>   
      </td>   
    </tr>   
  </table></td>  
    </tr>  
  </table>  
  </center>  
</div>  
  
</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<a name="top"><p><a href=../index.html><font face="Arial Unicode MS" >To index page</font></a> <a href=editer.asp><font face="Arial Unicode MS" >To editer page</font></a> <a href=showb.asp><font face="Arial Unicode MS" >To show data2.mdb page</font></a>  <a href=copy.asp><font face="Arial Unicode MS" >Copy data.mdb</font></a></P>
<%   connstr = "DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   Set DataConn = Server.CreateObject("ADODB.Connection")
   dataconn.open connstr
   Set rs = dataconn.execute("select * from data order by id desc") %>
<table border=1 align="center" width="100%"><tr>
<% for i = 0 to rs.fields.count-1 %>
<td align="center"><b><% = rs(i).name %></b></td>
<% next %>
<% do while not rs.eof %>
<tr>
<%
     response.write "<td align='center'><a href='del.asp?id="+cstr(rs("id"))+"' target='_blank'>"+cstr(rs("id"))+"</a></td>" 
          	   response.write "<td align='center'>"+Rs("num")+"</td>"
          	   response.write "<td align='center'>"+Rs("buyorsell")+"&nbsp;</td>"
     response.write "<td><a href='item.asp?id="+cstr(rs("id"))+"' target='_blank'>"+cstr(rs("goods"))+"</a>&nbsp;</td>" 
          	   response.write "<td>"+Rs("content")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+cstr(Rs("date"))+"</td>"
          	   response.write "<td align='center'>"+Rs("time")+"</td>"
     response.write "<td align='center'><a href='type.asp?kind="+cstr(rs("kind"))+"' target='_blank'>"+cstr(rs("kind"))+"</a></td>" 
          	   response.write "<td align='center'>"+Rs("name")+"&nbsp;</td>"
     response.write "<td align='center'><a href='mailto:"+cstr(rs("email"))+"'>"+cstr(rs("email"))+"</a>&nbsp;</td>" 
          	   response.write "<td align='center'>"+Rs("amount")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("price")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("city")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("degree")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("province")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("trademode")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("telephone")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("bbcall")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("icq")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("oicq")+"&nbsp;</td>"
          	   response.write "<td align='center'>"+Rs("buydate")+"&nbsp;</td>"

%>
</tr>
<%
rs.movenext
loop
rs.close
dataconn.close
%>
</table>
<p align=left><b><font face="Arial Unicode MS" >^ </font></b><font face="tahoma" ><a href="#top">Back to top</a></font></p> 

⌨️ 快捷键说明

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