?? search.asp
字號:
?<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %><% Response.ContentType="text/vnd.wap.wml; charset=utf-8" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<!--#INCLUDE VIRTUAL="/data/conn.asp"-->
<%
dim keyword,id,page
keyword=request.querystring("keyword")
set objgbrs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from sites where sitename like'%" & keyword & "%' or siteabout like '%" & keyword & "%' or siteurl like '%" & keyword & "%' order by fromall desc"
objgbrs.open rsstr,conn,1,2
response.write "<card id='card2' title='"&mywapname&"' ><p>"
response.write "[站點搜索]<br/>-----<br/>"
objgbrs.PageSize=myunionpagesize
page=CLng(Request("page"))
if page<1 then
page=1
End if
if page>objgbrs.pagecount then
page=objgbrs.pagecount
End if
if objgbrs.eof then
Response.write "搜索到0條與["&keyword&"]相關(guān)的站點資源<br/>"
Else
Response.write "搜索到"&objgbrs.RecordCount&"條與["&keyword&"]相關(guān)的站點資源<br/>"
objgbrs.absolutepage=page
if page=1 then
bihao=0
else
bihao=page*myunionpagesize-myunionpagesize
End if
For i=1 to objgbrs.PageSize
id=objgbrs("id")
bihaocont=bihaocont+1
Response.write bihao+bihaocont & "." & "<a href='turnto.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a>"
if Session("union") = mywaphost then
Response.write " <small><a href='/you/admin/site_infoedit.asp?id=" & objgbrs("id") & "'>編輯</a></small>"
End if
Response.write "<br/>"
objgbrs.Movenext
if objgbrs.EOF then Exit for
Next
End if
If Page<objgbrs.PageCount then
Response.Write "<a href='search.asp?keyword="&Server.Urlencode(keyword)&"&page=" & (page+1) & "'>下頁</a>"
End if
If page>1 then
Response.Write " <a href='search.asp?keyword="&keyword&"&page=" & (page-1) & "'>上頁</a>"
End if
if objgbrs.PageCount>1 then
response.write "<br/>" & Page & "/" & objgbrs.PageCount & "" '& "共" & objgbrs.RecordCount & "個"
response.write "到<input name='page' title='輸入頁碼' type='text' format='*N' emptyok='true' size='2' maxlength='3' value='"&(page+1)&"' />頁<a href='siteslist.asp?page=$(page)'>GO</a>"
end if
%>
<br/>-----<br/>關(guān)鍵字
<input emptyok="true" name="keyword" value="" title="請輸入關(guān)鍵詞"/><br/>
<anchor>[搜索網(wǎng)站]<go href="search.asp" method="get" ><postfield name="keyword" value="$(keyword)"/></go></anchor><br/>
-----
<%
Response.write "<br/><a href='/you/union/site_regagreement.asp'>新站注冊</a><br/><a href='http://33333g.cn'>"&mywapname&"</a><br/><b>"&mywaphost&"</b><br/>"&mywapcatchword
response.write"<br/><br/></p></card></wml>"
objgbrs.close
set objgbrs=nothing
conn.close
set conn=nothing
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -