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

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

Function Search_Table()
Search_Table=Caluoob.loadskins("search.txt")
Search_Table=Replace(Search_Table,"$rn",rn)
End Function

Function search()
	Dim myrs,sqlstr
	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 rn<>"" then sqlstr=sqlstr&" and nicknames like '%"&rn&"%'"
	sqlstr=sqlstr&" order by id desc"
	myrs.Open sqlstr,conn,1,1
	search="<h2>找到了昵称中包含 "&rn&" 的人！</h2>"
	search=search&"<div id=stream class=search><ol class=wa>"
	if myrs.Eof or myrs.bof then
	search=search&"没有符合你要求的用户！"
	else
	Do while not myrs.eof
	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 do
	loop
	search=search&"</ol></div>"
	myrs.close
	set myrs=nothing
	end if
End Function
%>