search.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->
<!--#include file="inc_admenu.asp"-->
<!--#include file="top.asp" -->
<!--#include file="ubb.asp" -->

<% if h_viewcpb=1 and isuser=false then response.redirect("login.asp")
dim h_search
 sql="select h_search from home"
  set rsconn1=conn.execute(sql)
  if not rsconn1.eof then
h_search=rsconn1("h_search")'允许游客搜索字段
end if
set rsconn1=nothing
if h_search=2 then
errornum=1
errormsg="<LI>很抱歉,搜索已经被管理员关闭</LI>"
elseif h_search=1 and isuser=false then
errornum=1
errormsg="<LI>很抱歉,客人不允许搜索论坛帖,请先<a href=reg.asp>注册</a>或者<a href=login.asp>登陆</a></LI>"
end if
 cpbtitle="搜索论坛"
if errornum=1 then
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
  call error(errormsg)
  call login()
   else
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)%>
 
 <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>        
 <%dim key,username,title,lanmu,sdate,fstring,key2,key1,maxpagecount,r,rcount
 if Request("action")="search" then
username=chktopic(request("username"))
key=chktopic(request("key"))
title=chktopic(request("title"))
lanmu=chktopic(request("lanmu"))
sdate=chktopic(request("sdate"))

 function gao(fString)
   key2=split(lcase(key), "|")
    for i = 0 to ubound(key2)
        fString = Replace(fString, key2(i), "<FONT COLOR=RED>"&key2(i)&"</FONT>") 
    next
    fString = Replace(fString, "'","") 
    gao=fstring
end function
function gao1(fString)
   key2=split(lcase(username), "|")
    for i = 0 to ubound(key2)
        fString = Replace(fString, key2(i), "<FONT COLOR=RED>"&key2(i)&"</FONT>") 
    next
    fString = Replace(fString, "'","") 
    gao1=fstring
end function
set rs = server.createobject("adodb.recordset") 
'搜索用户
 if username <>"" then 
 page=request.querystring("page")
  if page="" then
  page=1
  end if 
  pages = "25"

 key1=split(username, "|")
if ubound(key1)>0 then 
sql = "select grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num  and ("
   
        for i=0 to ubound(key1)
   sql=sql&" user.username like '%"&key1(i)&"%' or" 
        next
        sql=left(sql,len(sql)-3)
        sql=sql&" )"
           else
           sql = "select grade.g_title,user.username,user.u_todaytime,user.fen,user.send,user.home,user.email,user.u_beauty,user.u_money,user.lastsendtime,user.time from user,grade where int(user.grade)=grade.g_num  and user.username like '%"&username&"%'"           
            end if
rs.open sql,conn,1,1
if not(rs.BOF or rs.EOF) then
rs1=conn.execute("select count(*) from user where username like '%"&username&"%'") 
r=rs1(0)
	if r mod pages=0 then
     		maxpagecount= r \ pages
  	else
     		maxpagecount= r \ pages+1
  	end if
 
	RS.MoveFirst
	if int(page) > maxpagecount then page = maxpagecount
   	if int(page)<1 then page=1
	RS.Move (page-1) * pages
	rcount=0
	

 %>

       
            <tr  align="center"> 
            <td width="15%" <%=tColor%> class=tdc1 height=23>用户名</td>
            <td width="8%" <%=tColor%> class=tdc1>发帖数</td>
            <td width="8%" <%=tColor%> class=tdc1>经验</td>
            <td width="8%" <%=tColor%> class=tdc1>财产</td>
            <td width="8%" <%=tColor%> class=tdc1>魅力</td>
            <td width="18%" <%=tColor%> class=tdc1>注册时间</td>
            <td  <%=tColor%> class=tdc1>等级</td>
<td  <%=tColor%> class=tdc1>Email</td>
<td  <%=tColor%> class=tdc1>主页</td>
<td  <%=tColor%> class=tdc1>短消息</td>
          </tr>
 
<%  do while not rs.eof and rcount <int(pages)%> 

   
          
          <tr  align="center" height=23> 
            <td width="15%" bgcolor=<%=tColor2%> class=tdc style="Word-Break:Break-all"><a href="viewuser.asp?username=<%=rs("username")%>" target=_blank><%=gao1(rs("username"))%></a>　</td>
            <td width="8%" bgcolor=<%=tColor1%> class=tdc><%=rs("send")%>　</td>
            <td width="8%" bgcolor=<%=tColor2%> class=tdc><%=rs("fen")%>　</td>
             <td width="8%" bgcolor=<%=tColor1%> class=tdc><%=rs("u_money")%>　</td>
            <td width="8%" bgcolor=<%=tColor2%> class=tdc><%=rs("u_beauty")%>　</td>
            <td width="18%" bgcolor=<%=tColor1%> class=tdc><%=rs("time")%>　</td>
            <td  bgcolor=<%=tColor2%> class=tdc><%=rs("g_title")%>　</td>
<td  bgcolor=<%=tColor1%> class=tdc>  <%if rs("u_todaytime")=0 then%> <a href=mailto:<%=rs("email")%>><img alt=按此发邮件给<%=rs("username")%> src="image/email.gif"  border=0></a>
<%else
response.write("隐藏")
end if%></td>
<td  bgcolor=<%=tColor2%> class=tdc><%if rs("home")<>""then%> <a href="<%=rs("home")%>" target=_blank> <img alt=访问<%=rs("username")%>的主页 src="image/homepage.gif"  border=0></a><%
else
response.write("无")
end if%>
</td>
<td  bgcolor=<%=tColor1%> class=tdc> <a href="pm.asp?mode=add&action=add&username=<%=rs("username")%>"><img alt=按此发论坛短信给<%=rs("username")%> src="image/pm.gif"  border=0 ></a> </td>
          </tr>



<% 
rs.MoveNext 
rcount=rcount+1
loop 
set rs=nothing 
%> 
<tr  align="center" height=23> 
            <td colspan="10" bgcolor=<%=tColor2%> class=tdc ><font class=tdc>
            
           <% 
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?action=search&username="&username&"&page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?action=search&username="&username&"&page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?action=search&username="&username&"&page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 用户数:"&r&"  ")%> 

            　</td></tr>

             
          <%else
          errormsg="<li>找不到您要的用户,<a href=""javascript:history.go(-1)"">请返回</a>重新搜索</li>"
          call error(errormsg)
          end if%>
           </table>
           
              <% '搜索主题
              elseif key <> "" and username ="" then  %>

  <table border=1 borderColor=<%=tdc2%> cellPadding=4 cellSpacing=0 width=<%=tdc3%> style="border-collapse: collapse" align=center>        
<tr>        
<% page=request.querystring("page")
  if page="" or page=0 then  page=1
    pages = "20"
   key1=split(key, "|")
if title=1 or title=2 then
sql="select top 1000 topic.t_username,topic.t_id,topic.l_id,topic.t_replynum,topic.t_lastusername,topic.t_title from topic where topic.t_lock<>2 and "
 if title=1 then
      sql=sql&" (" 
 
       if ubound(key1)>0 then    
        for i=0 to ubound(key1)
        sql=sql&" topic.t_title like '%"&key1(i)&"%' or"
        next
        sql=left(sql,len(sql)-3)
           else
       sql=sql &" topic.t_title like '%"&key&"%'"  
        end if
        sql=sql&" )"
           elseif title=2 then
      sql=sql&" (" 
 
       if ubound(key1)>0 then