📄 search.asp

📁 就是这样的一个源码
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/fun.asp"-->

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>[] - 搜索文章</title>
<meta name="keywords" content="电脑教程,网络安全技术,网络编程,幽默笑话">
<meta name="description" content="包含电脑知识及其他文摘">
<script language="JavaScript" src="/inc/common.js" type="text/javascript"></script>
<link href="/inc/main.css" rev="stylesheet" rel="stylesheet" type="text/css" media="all" />
</head>

<body>
<table width="760" border="0" height="60" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="180"><img src="/images/logo.jpg" width="180" height="60" border="0" alt="寻梦书库"></td>
    <td width="480" align="center">

</td><td>
       <img src="/images/search.gif" width="16" height="16"><a href="search.asp" target="blank">搜索文章</a><br>
       <img src="/images/tran.gif" width="16" height="16"><a name="StranLink">繁體中文</a><br>
      <img src="/images/home.gif" width="16" height="16"><a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://article.xmsk.net')">设为首页</a>
</td></tr></table>
 
<table width="760" border="0" bgcolor=#F0F7FF align="center" cellpadding="4" cellspacing="0"><tr><td>
　[<a href="index.asp">首页</a>][<a href="list.asp?kindid=1">新闻评论</a>][<a href="list.asp?kindid=2">电脑应用</a>][<a href="list.asp?kindid=3">黑客安全</a>][<a href="list.asp?kindid=4">网络编程</a>][<a href="list.asp?kindid=5">世界风云</a>][<a href="list.asp?kindid=6">幽默笑话</a>][<a href="list.asp?kindid=7">综合类别</a>][<a href="/toparticle.asp">点击排行</a>][<a href="http://www.xmsk.net/" target="blank">寻梦书库</a>]
</td></tr></table>

<table width="760" border="0" bgcolor=#F0F7FF align="center" cellpadding="0" cellspacing="0"><tr><td>
<script  src=http://www.4a.ads99.net/banner760x60a.php?userid=xmsk></script>
</td></tr></table>

<table width="760" border="1" bordercolor=#7BD676 align="center" cellpadding="0" cellspacing="0">
<tr><td width=160 bgcolor=#F7F2EC valign=top>

</td><td align="center" valign=top background="images/bg.jpg">

<table border=0 align="center" cellPadding=3 cellSpacing=0 style="border-collapse: collapse word-break:break-all"><br>
  <tr><td align="center"><font size=6><b>搜 索 文 章</b></font>
</td></tr></table>
<Br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td>
<form name="search" method="post" action="search.asp">
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td>
搜索关键词 <input type="text"  style="border-bottom:1px dotted #009966;border-left:1px dotted #009966;border-right:2px dotted #009966;border-top:1px dotted #009966;" name="key" size="36" value="<%=request("key")%>">
<input type="submit" style="BACKGROUND:#F0F7FF;COLOR:#111111;BORDER-TOP:1 Hidden #FFFFFF;BORDER-LEFT:1 Hidden #FFFFFF;BORDER-RIGHT:1 Hidden #36AB68;BORDER-BOTTOM:1 Hidden #36AB68;" value="　搜　索　">
</td></tr></form></table>
<br>
热点搜索：<%
sql_hot="select top 12 * from key order by search desc"
set Rs_hot = Server.CreateObject("ADODB.Recordset")
Rs_hot.open sql_hot,conn,1,2
dim i_hot
i_hot=1
do while not rs_hot.eof
%>
<a href="search.asp?key=<%=Rs_hot("key")%>" target="blank"><%=Rs_hot("key")%></a>
<%
		i_hot=i_hot+1
		rs_hot.movenext
if i_hot>12 then exit do
	loop
	rs_hot.close
%>
</td></tr></table>
<br>
<%
	on error resume next
key=request("key")
if len(key)>0 then

sql_add="select * from key where key='"&key&"'"
set Rs_add = Server.CreateObject("ADODB.Recordset")
Rs_add.open sql_add,conn,1,1
if rs_add.eof then

  set rs_1=server.createobject("adodb.recordset")
  sql_1="select * from key"
  rs_1.open sql_1,conn,3,3
  rs_1.addnew
  rs_1("key")=key
  rs_1.update
  rs_1.close

else
conn.execute("update key set search=search+1 where key='"&key&"' ")
end if

 sql="select id,times,title,summ,hit from article where title like '%"&key&"%' or summ like '%"&key&"%' "
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1

Rs.pagesize=6
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
%>

<%
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if
title=Rs("title")
  if len(title)>26 then
    title=left(title,25)
    title=title & "…"
    end if
id=Rs("id")
times=Rs("times")
summ=encode(Rs("summ"))
timesl=left(times,7)
timesl=replace(timesl, "-", "")

title=replace(title, ""&key&"", "<font color=#FF00CC>"&key&"</font>")
summ=replace(summ, ""&key&"", "<font color=#FF00CC>"&key&"</font>")
%>
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="0">
 <tr><td>
<div class="content_head"><img src="/images/conhead.gif"> <a href="/main/<%=timesl%>/<%=id%>.htm" target="blank"><b><%=title%></a></b>　<span class="summ">[<%=times%>]</span></div>
　　<span class="summ"><%=summ%>……</span>
<br>　　　<a href="/main/<%=timesl%>/<%=id%>.htm" target="blank"><img src="/images/readmore.gif" border="0">阅读全文</a> <span class="summ">[点击<%=Rs("hit")%>]</span>
  </td></tr></table>
<%
Rs.movenext
loop
%>
<br>
<table border=0 cellpadding=0 cellspacing=1>
<tr><td align="center" style="line-height: 150%">
  <p>共搜索到相关文章<%=Rs.recordcount%>篇&nbsp;<%=page%>/<%=Rs.pagecount%>页 
      <% if page=1 then %> 
      <%else%>
      <a href=search.asp?key=<%=key%>&page=<%=page-1%>>上一页</a>&nbsp;
      <%end if%>
      <% if Rs.pagecount-page > 0 then %>
      <a href=search.asp?key=<%=key%>&page=<%=page+1%>>下一页</a>&nbsp;
      <%else%> 
      <%end if%>
  </td></tr></table>
<%end if
%>
  </td></tr></table>

<table width="760" border="0" align="center" bgcolor=#B6D3F3 cellpadding="3" cellspacing="0"><tr><td align=center>
<a href="http://www.xmsk.net/about.asp" target="blank">[关于我们]</a><a href="http://www.xmsk.net/help.asp" target="blank"><b>[原创投稿]</b></a><a href="http://www.xmsk.net/about.asp#3" target="blank">[版权声明]</a><a href="http://www.xmsk.net/about.asp#4" target="blank">[免责声明]</a><a href="http://www.xmsk.net/about.asp#6" target="blank">[读者留言]</a><a href="http://www.xmsk.net/reg.asp" target="blank">[会员注册]</a><a href="http://www.xmsk.net/other.asp?action=user" target="blank">[优秀会员]</a><a href="http://www.xmsk.net/user_login.asp" target="blank">[会员登陆]</a>
<br>Copyright &copy; 2004-2006 All Rights Reserved. <a href="http://www.miibeian.gov.cn" target="blank">渝ICP备05003780号</a>
<script src="inc/gb.js"></script>
</td></tr></table>
</body>
</html>
💿 文件大小 201 K
👤 上传用户 sunyuang
📂 所属分类 VxWorks
🏷️ 相关标签

#源码
⌨️ 快捷键说明

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