search.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<% @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&"]相关的站点资源<br/>"

Else
	Response.write "搜索到"&objgbrs.RecordCount&"条与["&keyword&"]相关的站点资源<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)&"&amp;page=" & (page+1) & "'>下页</a>"
End if
If page>1 then
    Response.Write "&nbsp;<a href='search.asp?keyword="&keyword&"&amp;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/>关键字
<input emptyok="true" name="keyword" value="" title="请输入关键词"/><br/>
<anchor>[搜索网站]<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
%>