info.asp

仿百度搜索程序修正版

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

 <%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(16)="其他分类"%>
<div align="center">
  <center>
  </center> 
</div> 
 
<div align="center"> <center> 
  <table width="764" border="0" cellspacing="2" cellpadding="2">
    <tr> 
      <td width="540" valign="top" bgcolor="#F4FBF8">
<table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td>&nbsp;</td>
          </tr>
          <tr> 
            <td class=f14><strong><font color="#FF6600">·全部 → </font><a href="gong.asp"><font color="#0000FF">供</font></a><font color="#FF6600"> 
              → </font><a href="qiu.asp"><font color="#0000FF">求</font></a></strong></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table> 
        <table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
        
          <tr> 
            <td height="23" class=f14>
<div align="center"> 
                <center>
                  <table width="520" height="23" border="0" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
                    <tr bgcolor="#CDE7D1"> 
                      <td width="336" height="18"  class=f14><strong><font color="#477C43">信息主题</font></strong></td>
                      <td width="130" class=f14><strong><font color="#477C43">发布时间</font></strong></td>
                      <td width="38" class=f14> <div align="center"><strong><font color="#477C43">浏览</font></strong></div></td>
                    </tr>
                  </table>
                  <table width="520" height="23" border="0" cellpadding="0" cellspacing="0">
                     <%set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("data.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
if request("ok")="ok" then response.write "hello"   
set rs=com.execute("select*from msg where  edt>=#" & date & "# ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*30-30 
newpage=newpage+1      
rs.movenext      
loop  
do while not rs.eof    
i=i+1%><tr>
                      <td height="23" valign="top" bgcolor="#C0E0C6"> <table width="520" height="28" border="0" cellpadding="4" cellspacing="1" bgcolor="#F4FBF8">
                          <tr> 
                            <td width="5" height="26" valign="middle"> <div align="center"><img src="DOT.gif" width="5" height="5"></div></td>
                            <td width="319" class=f14> <font color="#478B47"> 
                              <%response.write  "[" & (rs(10)) & "]"%>
                              </font><a href="show.asp?n=<%response.write rs(0)%>" target="_blank"> 
                              <%response.write rs(1)%>
                              </a> </td>
                            <td width="124" > 
                              <%response.write rs(4)%>
                            </td>
                            <td width="35"> <div align="center"> 
                                <%response.write rs(9)%>
                              </div></td>
                          </tr>
                        </table>
                        <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="520" id="AutoNumber3" cellpadding="0" height="1" bgcolor="#C0E0C6">
    <tr>
      <td width="100%"></td>
    </tr>
  </table></td>
     </tr>                <%if i=30 then exit do           
rs.movenext             
loop%>  
                  </table>
                  </center>
                <p align="right"> 
                  <%if page=1 then %>
                  上一页 
                  <%else%>
                  <a href="info.asp?page=<%=page-1%>"><font color="#0000FF">上一页</font></a> 
                  <%end if%>
                  &nbsp; 
                  <%if i=30 and not rs.eof then %>
                  <a href="info.asp?page=<%=page+1%>"><font color="#0000FF">下一页</font></a> 
                  <%else%>
                  下一页 
                  <%end if%>
                  &nbsp;&nbsp;</div>               
      </td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
          </tr>
        </table>
      </td>
      <td width="209" valign="top" bgcolor="#DCEBE1"> <!--#include file="lift.htm"--></td>
    </tr>
  </table>
  <!--#include file="bottom.htm"-->
</div>               
               
<div align="center"></div>                   
                   
</body>                   
                   
</html>