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

📄 index.asp

📁 一套asp编写的供求信息发布网站 一套asp编写的供求信息发布网站
💻 ASP
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>武义热线——信息专栏</title>
<style>
<!--
td           { font-size: 9pt }
     A:link {text-decoration: none; color:#000000}
     A:visited {text-decoration: none; color: #000000}
     A:active {text-decoration: none; color: #FF0000}
     A:hover {text-decoration: underline; color: FF0000}
-->
</style>
</head>

<body topmargin="10" leftmargin="0" bgcolor="#FFFFFF">

<div align="center">
  <center>
  <table border="0" width="779" cellspacing="1" cellpadding="0">
    <tr>
      <td width="773" valign="middle">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="206"><a href="http://www.wy169.net" target="_blank"><img border="0" src="wyrx.gif"></a></td>
    <td width="544" valign="middle"> 
      <div align="center"><img border="0" src="ggt.gif"></div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" height="4"></td>
  </tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" align="center" height="32" vspace="0">
  <tr> 
    <td width="9" height="18" align="left" valign="top" bgcolor="#FEAC37"><img src="../index/dh1.gif" width="8" height="17"></td>
    <td bgcolor="#FEAC37" height="20" valign="middle" align="center" width="747"> 
      <div align="left"><a href="wh.asp?n=1">求租</a> 
        <a href="wh.asp?n=2"> 求购</a> <a href="wh.asp?n=3"> 招租</a> <a href="wh.asp?n=4">       
        招聘</a> <a href="wh.asp?n=5"> 转让</a> <a href="wh.asp?n=6"> 印刷</a>       
        <a href="wh.asp?n=7"> 运输</a> <a href="wh.asp?n=8"> 搬迁</a> <a href="wh.asp?n=9"> 维修</a>       
        <a href="wh.asp?n=10"> 装修</a> <a href="wh.asp?n=11"> 咨询</a> <a href="wh.asp?n=12"> 礼仪</a>       
        <a href="wh.asp?n=13"> 翻译</a> <a href="wh.asp?n=14">       
        家政</a> <a href="wh.asp?n=15"> 求职</a>        
        <a href="wh.asp?n=17"> 招生</a> <a href="wh.asp?n=18"> 声明</a> <a href="wh.asp?n=19"> 启事</a>       
        <a href="wh.asp?n=20"> 征婚</a> <a href="wh.asp?n=21"> 培训</a> <a href="wh.asp?n=22"> 旅游景点</a>       
        <a href="wh.asp?n=23">       
        生日</a> <a href="wh.asp?n=24"> 娱乐</a> <a href="wh.asp?n=16"> 其它</a></div>          
    </td>          
    <td width="8" height="18" align="right" valign="top" bgcolor="#FEAC37"><img src="../index/dh2.gif" width="8" height="17"></td>          
  </tr>          
  <tr>           
    <td colspan="3" height="2" width="756"></td>          
  </tr>          
  <tr bgcolor="#FEAC37">           
    <td colspan="3" height="1" width="756"></td>          
  </tr>          
  <tr>           
    <td colspan="3" height="2" width="756"></td>          
  </tr>          
  <tr bgcolor="#FEAC37">           
    <td colspan="3" height="1" width="756"></td>          
  </tr>          
</table>          
      </td>   
    </tr>   
    <tr>   
      <td width="773" bgcolor="#FFFFFF" height="7"> </td>   
    </tr>   
  </table>    
  </center>    
</div>    
    
<div align="center">    
  <center>    
  <table border="0" width="760" cellspacing="0" cellpadding="0">    
    <tr>    
      <td width="157" valign="top">    
        <div align="center">    
          <center>    
            
        <table border="0" width="90%" cellspacing="0">    
          <tr>    
            <td width="100%" bgcolor="#FEAC37" height="1" valign="top"></td>    
          </tr>    
          <tr>    
            <td width="100%"><form method="POST" action="addmesg.asp">    
          <table border="0" width="100%" cellspacing="0" cellpadding="2">    
            <tr>    
              <td width="100%" background="bk1.gif">    
          信息添加</td>    
            </tr>    
            <tr>    
              <td width="100%" align="center">    
          <select size="1" name="adwh" style="background-color: #FFFFE6">    
            <option>求租信息</option>    
            <option>求购信息</option>    
            <option>招租信息</option>    
            <option>招聘信息</option>    
            <option>转让信息</option>    
            <option>印刷信息</option>    
            <option>运输信息</option>    
            <option>搬迁信息</option>    
            <option>维修信息</option>    
            <option>装修信息</option>    
            <option>咨询信息</option>    
            <option>礼仪信息</option>    
            <option>翻译信息</option>    
            <option>家政信息</option>    
            <option>求职信息</option>    
            <option>招生信息</option>    
            <option>声明信息</option>    
            <option>启事信息</option>    
            <option>征婚信息</option>    
            <option>培训信息</option>    
            <option>旅游景点</option>    
            <option>生日信息</option>    
            <option>娱乐信息</option>    
            <option>其它信息</option>    
          </select><input type="submit" value="添加" name="B1" style="background-color: #FFFFE6; font-size: 9pt; border-style: solid; border-color: #000000"></td>    
            </tr>    
          </table>    
        </form></td>    
          </tr>    
          <tr>    
            <td width="100%" bgcolor="#FEAC37" height="1"></td>    
          </tr>    
          <tr>    
            <td width="100%"> <form method="POST" action="search.asp">    
          <table border="0" width="100%" cellspacing="0" cellpadding="2">    
            <tr>    
              <td width="100%" background="bk1.gif">    
          信息搜索</td>    
            </tr>    
            <tr>    
              <td width="100%" align="center">    
          <input type="text" name="search" size="15"></td>    
            </tr>    
          </table>    
        </form></td>    
          </tr>    
          <tr>    
            <td width="100%" bgcolor="#FEAC37" height="1"></td>    
          </tr>    
          <tr>    
            <td width="100%">    
              <table border="0" width="100%" cellspacing="0" cellpadding="2">    
                <tr>    
                  <td width="100%" background="bk1.gif">    
              友情链接</td>    
                </tr>    
                <tr>    
                  <td width="100%" align="center" height="5"></td>    
                </tr>    
                <%set com=server.createobject("adodb.connection")    
com.open "DBQ="& Server.MapPath("joh20msg.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"    
set rs=com.execute("select*from link")    
do while not rs.eof%>    
                <tr>    
                  <td width="100%" align="center"><a href="http://<%response.write rs(1)%>" target="_blank"><%response.write rs(0)%></a></td>    
                </tr>    
<%rs.movenext    
loop%>    
                <tr>    
                  <td width="100%">&nbsp;</td>    
                </tr>    
              </table>    
            </td>    
          </tr>    
          <tr>    
            <td width="100%" bgcolor="#FEAC37" height="1"></td>    
          </tr>    
        </table>    
           
          </center>    
        </div>    
  </center>             
      <p align="center"> <a href="../index.htm">返回首页</a></td> 
  <center>   
      <td width="599" valign="top">  
        <div align="center"> 
          <center> 
          <table border="0" width="90%"> 
            <tr> 
              <td width="100%" colspan="3"><span style="background-color: #FFCC99"><font color="#FFFFE6">||                 
                </font>本站公告 </span><font color="#FFFFE6"><span style="background-color: #FFCC99">||</span></font></td>                
            </tr>                
            <tr>                
              <td width="100%" height="5" colspan="3"></td>                
            </tr>                
<%set rs=com.execute("select*from news ORDER BY id DESC")           
do while not rs.eof%>           
            <tr>                
              <td width="100%" colspan="3">&nbsp; <%if rs(2)="" then            
              response.write rs(1)           
              else      
              response.write "<a href='javascript:open("& rs(1) &")'>"& rs(1) &"</a>"           
              end if%></td>                
            </tr>           
<%rs.movenext           
loop%>                
            <tr>                
              <td width="100%" colspan="3"></td>                
            </tr>                
            <tr>                
              <td width="100%" colspan="3"><span style="background-color: #FFCC99"><font color="#FFFFE6">||</font><font color="#FFFFE6">                 
                </font>最新信息 </span><font color="#FFFFE6"><span style="background-color: #FFCC99">||</span></font></td>                
            </tr>                
<%dim w(25)      
w(1)="求租"      
w(2)="求购"      
w(3)="招租"      
w(4)="招聘"      
w(5)="转让"      
w(6)="印刷"      
w(7)="运输"      
w(8)="搬迁"      
w(9)="维修"      
w(10)="装修"      
w(11)="咨询"      
w(12)="礼仪"      
w(13)="翻译"      
w(14)="家政"      
w(15)="求职"      
w(17)="招生"      
w(18)="声明"      
w(19)="启事"      
w(20)="征婚"      
w(21)="培训"      
w(22)="旅游"      
w(23)="生日"      
w(24)="娱乐"      
w(16)="其它"%>      
      
<%set rs=com.execute("select*from msg where edt>=#" & date & "# ORDER BY id DESC")           
do while not rs.eof         
i=i+1%>           
            <tr>                   
              <td width="65%">&nbsp; <a href="show.asp?n=<%response.write rs(0)%>"><%response.write rs(1)%></a> <%response.write  "[" & w(rs(3)) & "]"%></td>                
<td width="25%"><%response.write rs(4)%></td>                
              <td width="10%">                  
                <%response.write rs(7)%></td>                
            </tr>              
<%if i=15 then exit do         
rs.movenext           
loop%>                
          </table>             
          </center>             
        </div>             
      </td>             
    </tr>             
    <tr>             
      <td width="758" colspan="2"></td>             
    </tr>             
  </table>             
  </center>             
</div>             
             
<div align="center">             
  <center>             
  <table border="0" width="760" cellspacing="1" cellpadding="0">             
    <tr>             
      <td width="754" bgcolor="#FEAC37" height="1"></td>             
    </tr>             
    <tr>             
      <td bgcolor="#FFCC99" align="center"><a href="wh.asp?n=1">求租</a> <a href="wh.asp?n=2"> 求购</a>              
        <a href="wh.asp?n=3"> 招租</a> <a href="wh.asp?n=4">              
        招聘</a> <a href="wh.asp?n=5"> 转让</a> <a href="wh.asp?n=6"> 印刷</a>              
        <a href="wh.asp?n=7"> 运输</a> <a href="wh.asp?n=8"> 搬迁</a> <a href="wh.asp?n=9"> 维修</a>              
        <a href="wh.asp?n=10"> 装修</a> <a href="wh.asp?n=11"> 咨询</a> <a href="wh.asp?n=12"> 礼仪</a>              
        <a href="wh.asp?n=13"> 翻译</a> <a href="wh.asp?n=14">              
        家政</a> <a href="wh.asp?n=15"> 求职</a>               
        <a href="wh.asp?n=17"> 招生</a> <a href="wh.asp?n=18"> 声明</a> <a href="wh.asp?n=19"> 启事</a>              
        <a href="wh.asp?n=20"> 征婚</a> <a href="wh.asp?n=21"> 培训</a> <a href="wh.asp?n=22"> 旅游景点</a>              
        <a href="wh.asp?n=23">              
        生日</a> <a href="wh.asp?n=24"> 娱乐</a> <a href="wh.asp?n=16"> 其它</a></td>              
    </tr>              
    <tr>              
      <td width="754" bgcolor="#FEAC37" height="1"></td>              
    </tr>              
    <tr>              
      <td height="21" align="center"><%rs.close      
com.close    
if request("ok")="ok" then response.write "hello"%>武义热线版权所有</td>               
    </tr>               
    <tr>            
      <td height="21" align="center">|<%response.write application("online")%>人在线|访问量:<%   
count=server.mappath("count.txt")   
set cou = server.createobject("scripting.filesystemobject")   
set out=cou.opentextfile(count,1,false,false)   
counter=out.readline   
out.close   
if session("in")<>"in" then    
session("in")="in"   
set out = cou.createtextfile(count,true,false)   
application.lock   
counter=counter+1   
out.writeline(counter)   
application.unlock   
out.close   
end if   
response.write counter   
%>|关于本站|<a href="mailto:wyzz@mail.jhptt.zj.cn">联系方式</a>|</td>               
    </tr>               
  </table>               
  </center>               
</div>               
               
</body>               
               
</html>               

⌨️ 快捷键说明

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