news_searchresult.asp

来自「我的小网站个人利用业余时间设计的」· ASP 代码 · 共 122 行

ASP

122 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="refresh.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<link rel=stylesheet type=text/css href=../css/style.css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>心情驿站</title>
<STYLE type=text/css>
<!--
a:hover {  font-size: 13px; color: #ff0000; text-decoration: none}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>
<script language="JavaScript" type="text/JavaScript">
<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="443" height="46" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
        
          <td width="417" valign="top"><table width="85%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                
                <td width="547">
				
				<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
					<%
key=request("key")
sql="select * from news where type='相关资料' and ((title like '%"&key&"%') or (content like '%"&key&"%')) order by newsid desc"
set rs=createobject("adodb.recordset")
rs.Open sql,conn,3,2
if rs.BOF then
%>
     
<%
else 
 page=CLng(request("txtpage"))
  rs.PageSize=3
  if page<1 then page=1
  if page>rs.PageCount then  page=rs.PageCount
   rs.AbsolutePage=page
%>    
					<form Action="news_searchresult.asp"  Method="GET" align="right" name="form1">
                    <tr height="25" class="l200"> 
                      <td> 
                        <div align="left"> 总页数:<%=rs.PageCount%>&nbsp&nbsp当前页:<font color=#FF0000><%=page%></font>/<%=rs.PageCount%>页&nbsp&nbsp
                          <%
             if  page<>1 then
			     response.write "<a href=news_searchresult.asp?txtpage=1 class=link2>首页</a>&nbsp&nbsp"
				 response.write "<a href=news_searchresult.asp?txtpage="&(page-1)&" class=link2>上一页</a>&nbsp&nbsp"
			 end if
			 if page<>rs.PageCount then
			    response.write "<a href=news_searchresult.asp?txtpage="&(page+1)&" class=link2>下一页</a>&nbsp&nbsp"
				response.write "<a href=news_searchresult.asp?txtpage="&rs.PageCount&" class=link2>尾页</a>"
			 end if 
			%>
                        </div></td>
                    </tr>
				  </form>
                    <tr> 
                      <td valign="top">
					        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <%
for ipage=1 to rs.PageSize 
    newsTitle=replace(rs("title")," ","")
	if len(newsTitle)>30 then
	    newsTitle=left(newsTitle,29)&"..."
	  end if
    newsRq=split(replace(rs("date"),"/","-"),"-")
	  newsYear=newsRq(0)
	  newsMonth=newsRq(1)
	  newsDay=newsRq(2)
	  if len(newsMonth)<2 then
	       newsMonth="0"&newsMonth
	   end if
	  if len(newsDay)<2 then
	       newsDay="0"&newsDay
		end if
	   newsRq=newsYear&"-"&newsMonth&"-"&newsDay   
%>
                    <tr onMouseOver="this.style.background='#f0f0f0'" onMouseOut="this.style.background='#ffffff'"> 
                      <td width="12" height="20" valign="middle"><font color="#006600">·</font></td>
                      <td  height="20" valign="middle" class="link2"><a href="#" onMouseDown="MM_openBrWindow('newscontent.asp?newsid=<%=rs("newsid")%>','','scrollbars=yes,width=720,height=500')" class="link2"><%=newsTitle%>
                     
                        </a></td>
                      <td width="75"  height="20" valign="middle" class="link2"><%=newsRq%></td>
                    </tr>
                    <%
	rs.movenext
	if  rs.eof  then
		Exit  for
	end if
next
%>
                  </table></td>
                    </tr>
	<%
end if
 rs.close
 set rs=nothing
 %>
                  </table></td>
              </tr>
            </table></td>
  </tr>
</table>

</body>
</html>

news_searchresult.asp - 源码说明

本页面展示了「我的小网站个人利用业余时间设计的」中的 news_searchresult.asp 源码文件，采用 ASP 编程语言编写，共 122 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与网站相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?