fl.asp

仿百度搜索程序修正版

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

<div align="center">
  <center>
   
  </center> 
</div> 
 
<div align="center"> <center> 
  <table width="764" border="0" cellspacing="2" cellpadding="2">
    <tr> 
        <td valign="top" bgcolor="#F4FBF8"> 
          <table width="520" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr> 
            <td width="519" valign="top" class=f14>　 
              <div align="center"> 
                <center>
                    <table border="0" width="520">
                      <tr> 
                        <td width="100%" colspan="3" class=f14><strong><font color="#FF3300">·<font color="#FF9900">信息分类：</font> 
                          <%if request("n")=1 then response.write "招商投资"             
            if request("n")=2 then response.write "生活服务"             
            if request("n")=3 then response.write "家电产品"             
            if request("n")=4 then response.write "旅游出行"             
            if request("n")=5 then response.write "招聘求职"             
            if request("n")=6 then response.write "房产家居"             
            if request("n")=7 then response.write "电脑网络"             
            if request("n")=8 then response.write "美容美发"             
            if request("n")=9 then response.write "美食天地"             
            if request("n")=10 then response.write "医疗保健"             
            if request("n")=11 then response.write "招生培训"             
            if request("n")=12 then response.write "出国留学"             
            if request("n")=13 then response.write "交友征婚"
			if request("n")=14 then response.write "农业信息"              
            if request("n")=15 then response.write "商务服务"                    
            if request("n")=16 then response.write "其他分类"%>
                          </font></strong> </td>
                      </tr>
                      <tr> 
                    </table>
                    <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 kin='"& request("n") &"' and edt>=#" & date & "# ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*21-21  
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=20 then exit do           
rs.movenext             
loop%>
                    </table>
                  </center>
                  <p align="right"> 
                    <%if page=1 then %>
                    上一页 
                    <%else%>
                    <a href="fl.asp?n=<%=request("n")%>&page=<%=page-1%>"><font color="#0000FF">上一页</font></a> 
                    <%end if%>
                    &nbsp; 
                    <%if i=20 and not rs.eof then %>
                    <a href="fl.asp?n=<%=request("n")%>&page=<%=page+1%>"><font color="#0000FF">下一页</font></a> 
                    <%else%>
                    下一页 
                    <%end if%>
                    &nbsp;&nbsp;&nbsp; 
                  <p></div></td>
          </tr>
          <tr> 
            <td width="519" height="2"></td>
          </tr>
        </table>
        </td>
      <td width="210" valign="top" bgcolor="#DCEBE1"> <!--#include file="lift.htm"--></td>
    </tr>
  </table>
  </center>
  </div>               
               
<div align="center">               
  <center>
    <!--#include file="bottom.htm"-->
  </center>                   
</div>                   
                   
</body>                   
                   
</html>