📄 search.asp
字号:
<!--#include file="head.asp" -->
<!-- #INCLUDE FILE="adovbs.inc" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<%
search = trim(Request("search"))
show = Request("num")
xxx = Request("xxx")
%>
<body topmargin="0" leftmargin="0" bgColor="#f7fdff">
<br><br>
<center> </center>
<%
select case xxx
case "1"
sqlq = "select * from link2 where keyword like '%" & search & "%' or description like '%" & search & "%' order by name"
case "2"
aryKeywords = Split(search, " ")
sqlq = "select * from link2 where id is not null "
For i = 0 To UBound(aryKeywords)
SQLQ = SQLQ & tempJoinWord & "(" & _
"keyword LIKE '%" & aryKeywords(i) & "%' OR " & _
"description LIKE '%" & aryKeywords(i) & "%')"
tempJoinWord = " OR "
Next
sqlq = sqlq & "order by Name"
end select
CONN_STRING ="Provider=sqloledb;" & "Data Source=127.0.0.1;Initial Catalog=qiye_8;User Id=sa;Password=password;"
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim I
select case show
case 10
iPageSize = 10
case 20
iPageSize = 20
case 30
iPageSize = 30
end select
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "id"
Else
strOrderBy = Request.QueryString("order")
End If
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open sqlq, objPagingConn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>没有找到符合条件的记录！</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent
%>
<center>
<b>以 <FONT COLOR="#FF0000"><%=search%></FONT> 为关键字的搜索找到 <FONT COLOR="#FF0000"><%=reccount%></FONT> 个网站</b></font>
<BR><BR><br><br>
<% sss = (iPageSize * iPageCurrent) - iPageSize
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
pluscount = pluscount+1
dagar=DateDiff("d", Date, objPagingRS("postDate"))+7
if dagar >= 0 then
%>
<center>
<table border=0 width=95% cellspacing=0 >
<tr>
· </font> <a class=cata href="url.asp?id=<%=objPagingRS("ID")%>" target="_blank"><b>...<%=objPagingRS("Name")%>...</b></font></a> <img src="new.gif" border=0>
</td><td bgcolor="#Ffffff" width="95%"></td>
</tr>
<tr>
<td >...<%=objPagingRS("Description")%></td>
</tr>
<tr>
<td ><%=objPagingRS("postdate")%> </font>
<a href="error.asp?id=<%=objPagingRS("ID")%>"> <FONT COLOR="#666666">若发现连接错误，请点此告知本站。</FONT></a></font></td>
</tr>
</table>
</center><br>
<%else%>
<center>
<table border=0 width=95% cellspacing=0 4>
<tr>
· </font> <a class=cata href="url.asp?id=<%=objPagingRS("ID")%>" target="_blank"><b>...<%=objPagingRS("Name")%>...</b></font></a>
</td><td bgcolor="#Ffffff" width="95%"></td>
</tr>
<tr>
<td >...<%=objPagingRS("Description")%> </td>
</tr>
<tr>
<td > <%=objPagingRS("postdate")%>
<a href="error.asp?id=<%=objPagingRS("ID")%>"> <FONT COLOR="#666666">若发现连接错误，请点此告知本站。</FONT></a></font></td>
</tr>
</table>
</center><br>
<%
end if
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
End If
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing
If iPageCurrent <> 1 Then
%>
<A class=cata HREF="./search.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>&xxx=<%=xxx%>">上一页</font></A>
<%End If
If iPageCurrent < iPageCount Then
%>
<A class=cata HREF="./search.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&search=<%=search%>&num=<%=show%>&xxx=<%=xxx%>">下一页</font></A>
</center>
<%End If%>
<center>
第 <B><FONT COLOR="#FF0000"><%= iPageCurrent %></FONT></B> 页
共 <B><%= iPageCount %></B> 页
</center>
<br><br><!--#include file="gg.asp" -->
<center><!--#include file="foot.asp"--></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -