www.gusucode.com > 栽豆迷你博客 MiniBlog 3.0 正式版源码程序 > Town.asp

    <!--#include file="include/conn.asp" -->
<!--#include file="include/char.asp" -->
<!--#include file="include/cb_main.asp" -->
<!--#include file="include/function.asp" -->
<%
Dim Pr,StrHtml
pr=Replace(CheckStr(Request.QueryString("pr")),"'","''")
If pr<>"" then
	StrHtml=StrHtml&search()
Else
    Response.Redirect("search.asp")
End if
Caluoob.OtherHerder Caluoob.SystemName&" | 搜索"
StrHtml=Replace(StrHtml,"$skins",Caluoob.DefaultSkin)
Response.Write "<div id=main><div id=content>"
Response.Write StrHtml
Response.Write "</div></div>"
Caluoob.Footer
Response.Flush()

Function search()
	Dim myrs,sqlstr,AllPage,Page,MaxPage,StrHreF,jj
	page=Replace(ValidInteger(Request.QueryString("p")),"'","''")
	StrHreF="?"
	if pr<>"" then
	StrHreF=StrHreF&"pr="&Server.URLEncode(pr)&"&"
	end if
	StrHreF=StrHreF&"p="
	If page="" then page=1
	MaxPage=10
	If Not IsObject(Conn) Then ConnectionDatabase
	Caluoob.SqlQueryNum=Caluoob.SqlQueryNum+1
	set myrs=server.CreateObject("ADODB.recordset")   
	sqlstr="select * from [cb_user] where locks=0"
	if pr<>"" then sqlstr=sqlstr&" and province='"&pr&"' or city='"&pr&"'"
	sqlstr=sqlstr&" order by id desc"
	myrs.Open sqlstr,conn,1,1
	AllPage=myrs.RecordCount
	search="<h2>随便看看在 "&pr&" 的人！</h2>"
	search=search&"<div id=stream class=search><ol class=wa>"
	if myrs.Eof or myrs.bof then
	search=search&"没有符合你要求的用户！"
	else
	myrs.MoveFirst
	myrs.Move (Page-1)*MaxPage
	For jj=1 to MaxPage
	search=search&"<li><a href=hi.asp?u="&myrs("id")&" class=avatar target=_blank><img src=face/"&myrs("userface")&"></a><dl><dt><a href=hi.asp?u="&myrs("id")&" target=_blank>"&myrs("nicknames")&"</a></dt><dd><label>所在地：</label><a href=town.asp?pr="&CheckStr(server.URLEncode(myrs("province")))&">"&myrs("province")&"</a> <a href=town.asp?pr="&CheckStr(server.URLEncode(myrs("city")))&">"&myrs("city")&"</a></dd><dd><label>自述：</label>"&myrs("Remarks")&"</dd></dl></li>"
	myrs.movenext
	If myrs.EOF Then Exit For
	next
	search=search&"</ol></div>"
	search=search&SubClassPage(Page,MaxPage,AllPage,StrHreF)
	myrs.close
	set myrs=nothing
	end if
End Function
%>