search.asp

一个美化的论坛程序

<!--#include file="char.asp"-->
<!--#include file="function.asp"-->
<%
if trim(Request("keyword"))="" then
	errmsg="<li>非法操作，请输入搜索关键字"
	call error()
	Response.End
else
	keyword=Request("keyword")
end if
select case (Request("keytype"))
	case "dateandtime"  keysql="dateandtime"
	case "content"  keysql="content"
	case "username" keysql="username"
	case else
		errmsg="<li>非法操作，请选择要搜索的类型"
		call error()
		Response.End
end select
select case (Request("action"))
	case "bbs"
		sql1="select boardid,bbsid,username,face,istop,best,dateandtime,hits,content from bbs where "&keysql&" like '%"&keyword&"%' and not del order by istop,lastreply desc"
	case "reply"
		sql1="select bbsid,replyid,content,username,face,dateandtime,hits from reply where "&keysql&" like '%"&keyword&"%' and not del"
	case else
		errmsg="<li>非法操作，请选择要是搜索主题帖还是搜索回复帖"
		call error()
		Response.End
end select
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
%>
<!--#include file="top.asp"-->
<%
rs.open sql1,conn,1,1
if rs.eof and rs.bof then 
	errmsg="<li>暂时没有搜索到你查找的相关信息"
	call error()
	Response.End 
else 
	PageUrl="search.asp?action="&Request("action")&"&keytype="&Request("keytype")&"&keyword="&server.URLEncode(keyword)
	totalPut=rs.recordcount 
	if currentpage<1 then currentpage=1
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 
sub showContent
%>
<img src="" width="1" height="3"><table width="680" border="1" bordercolor="<%=tablebackcolor%>" cellpadding="6" cellspacing="0" align="center">
  <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
    <td width="8%" height="25"><b><font color="#00000">状态</font></b></td>
    <td width="54%" bgcolor="<%=tabletitlecolor%>"><b><font color="#000000">主题</font></b></td>
    <td width="12%"><b><font color="#000000">作者</font></b></td>
    <td width="8%"><b><font color="#000000">点击</font></b></td>
    <td width="18%"><b><font color="#000000">时间</font></b></td>
  </tr>
</table>
<%
i=0
do while not rs.eof
i=i+1
response.write "<table width=""680"" border=""1"" bordercolor="""&tablebackcolor&""" cellpadding=""2"" cellspacing=""0"" align=""center"">"&_
  				"<td height=""22"" width=""8%"" align=""center"" bgcolor="""&tablebodycolor&""">"
			if Request("action")="bbs" then
				boardid=rs("boardid")
				if  rs("istop") then
					response.write "<img src=images/istop.gif width=17 alt=固顶贴子>"
				elseif rs("best") then
					response.write "<img src=images/best.gif width=17 alt=精华贴子>"
				elseif rs("hits")>30 then
					response.write "<img src=images/hotfolder.gif width=16 alt=一般贴子>"
				else
					response.write "<img src=images/folder.gif width=16 alt=热门贴子>"
				end if
			elseif request("action")="reply" then
				replyid=rs("replyid")
				set rs1=conn.execute("select boardid from bbs where bbsid="&rs("bbsid"))
				if not rs1.eof then
					boardid=rs1("boardid")
				end if
				set rs1=nothing
				if rs("hits")>30 then
					response.write "<img src=images/hotfolder.gif width=16 alt=一般贴子>"
				else
					response.write "<img src=images/folder.gif width=16 alt=热门贴子>"
				end if
			end if
response.write "</td><td width=""54%"" bgcolor="""&tablebodyacolor&"""><img src=face/face"&rs("face")&".gif height=15>"
response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&"&replyid="&replyid&">"&htmlnocode(left(rs("content"),30))&"...</a></td>"&_
				"<td width=""12%"" align=""center"" bgcolor="""&tablebodycolor&"""><a href=userinf.asp?name="&rs("username")&">"&rs("username")&"</a></td>"&_
				"<td width=""8%"" align=""center"" bgcolor="""&tablebodyacolor&""">"&rs("hits")&"</td>"&_
				"<td width=""18%"" align=""center"" bgcolor="""&tablebodycolor&""">"&rs("dateandtime")&"</td></tr></table>"
if i>=maxperpage then exit do
rs.movenext
loop
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if
response.write "<table width=""680"" border=""1"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor="""&tablebackcolor&"""><tr><form method=Post action="&filename&"?action="&Request("action")&"&keytype="&Request("keytype")&"&keyword="&server.URLEncode(keyword)&"><td>"&_
				"<table border=""0"" cellpadding=""6"" cellspacing=""0""><tr bgcolor="""&tabletitlecolor&"""><td height=""25"" width=""270"" bgcolor="""&tablebodycolor&""">共搜索到贴子&nbsp;<b>"&totalnumber&"</b>&nbsp;篇</td>"&_
				"<td height=""25"" align=""right"" width=""500"" bgcolor="""&tablebodycolor&""">|"
if CurrentPage<2 then
response.write "&nbsp;首页&nbsp;|&nbsp;上一页&nbsp;|"
else
response.write "&nbsp<a href="&filename&"?boardid="&boardid&"&page=1>首页</a>&nbsp;|&nbsp;<a href="&filename&"&page="&CurrentPage-1&">上一页</a>&nbsp;|" 
end if
if n-currentpage<1 then
response.write "&nbsp;下一页&nbsp;|&nbsp;末页"
else
response.write "&nbsp;<a href="&filename&"&page="&CurrentPage+1&">下一页</a>&nbsp;|"&_
                "&nbsp;<a href="&filename&"&page="&n&">末页</a>" 
end if
response.write "&nbsp;|&nbsp;页次:<strong>"&CurrentPage&"/"&n&"</strong>页 | 转到:<select name='page' size='1' onchange='javascript:submit()'>"
               for i = 1 to n
response.write "<option value="&i
 				if cint(CurrentPage)=cint(i) then response.write " selected "
response.write ">第"&i&"页</option>"
                next
response.write "</select></td></tr></table></td></form></tr></table>"      
end function
set rs=nothing
conn.close
set conn=nothing
%>
<!--#include file="copyright.asp"-->