📄 url_search.asp

📁 wapgo网址导航整站源码,WAP源码,更多登陆http://xywap.cn

💻 ASP

字号:

<%
if session("admin")="" then
  response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<html>
 <%
                                   keyword=request("keyword")
                                  Dim rs
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from urls where site like '%"&keyword&"%' or url like '%"&keyword&"%'",conn,1,1,1
                                   pageno=trim(Request("pageno"))
If pageno="" Then
   pageno="1"
End If
if not rs.bof then
pageno=CInt(pageno)
rs.PageSize=30
rs.AbsolutePage=pageno
dim i
i=0
%>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
</body>
<p align="center"><b><font size="5">搜索结果</font></b>
<%
do while not rs.eof
%><br><center>
<table border="1" width="76%" bordercolor="#C0C0C0" id="table1">
	<tr>
		<td><p><a href="result.asp?wid=<%=rs("wid")%>&amp;pageno=<%=pageno%>"><%=rs("site")%></a></p></td>
	</tr>

<%
i=i+1
if i>=rs.pagesize then Exit Do
rs.movenext
loop
%>

</table></center>
<%
end if
rs.close
set rs=nothing
%>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -