search.asp

教师评估系统

<!-- #include file="Cls.asp" --><%
if Not Cache("GuestSearch") and Not IsUser then Error "系统错误","<li><a onclick=""return ShowModal('登录论坛','Login.asp');"">点这里登录论坛</a></li>"
top "搜索帖子",true

ForumID=ChkNumeric(Request("ForumID"))
DateComparer=ChkNumeric(Request.Form("DateComparer"))

if Request("menu")="Result" then
Keywords=HTMLEncode(Request("Keywords"))
SortBy=HTMLEncode(Request("SortBy"))
Item=HTMLEncode(Request("Item"))
if Item="" Then Item="Topic"
if Keywords="" then Error "输入错误","<li>请输入关键字</li>"
Kstr=split(ReplaceText(Keywords,"　|  "," ")," ")
KeywordsList=item&" like '%"&Kstr(0)&"%'"
for i = 1 to UBound(Kstr)
KeywordsList=KeywordsList&" and "&Item&" like '%"&Kstr(i)&"%'"
next
SQLSearch="IsDel=0 and "&KeywordsList
if DateComparer > 0 then SQLSearch=SQLSearch&" and PostTime>"&SqlNowString&"-"&DateComparer&" "
if ForumID > 0 then SQLSearch=SQLSearch&" and ForumID="&ForumID&" "
TopEnd=0
sql="select ForumID,ID,Icon,IsGood,IsTop,IsLocked,Replies,Views,ThreadStatus,PayTopicMoney,Topic,Category,UserName,LastName,LastTime,PostTime from [WxThreads] where "&SQLSearch&" order by ID "&SortBy&""
Rs.Open sql,Conn,1
TotalCount=Conn.execute("select count(ID) from [WxThreads] where "&SQLSearch&"")(0)    '数据总条数
if TotalCount=0 then Error "系统错误","<li>对不起，没有找到您要查询的内容</li><li><a target=_blank href=http://www.baidu.com/s?tn=wxskycn_pg&word="&Keywords&"><b><span class=red>点这里搜索互联网上的相关内容</span></b></a></li>"
%>
<div class="nav dt"><img alt='' src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> 
→ 搜索 <span class="blue"><%=Keywords%></span> (共有<span class="or"><%=TotalCount%></span>篇主题) <a target="_blank" href="http://www.baidu.com/s?tn=wxskycn_pg&word=<%=Keywords%>"><span class="gr">[点这里检索互联网上的<%=Keywords%>]</span></a></div>
<div class="tb dt"><%
Response.write Replace(Cache("boardtb"),"$category$","")
PageSetup=int(Cache("ThreadsPerPage")) '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1)))
PageCount = cint(Request.QueryString("PageIndex"))
Rs.Pagesize=PageSetup
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
TopEnd=0
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
ThreadsList=Rs.GetRows(pagesetup)
Rs.close
For i=0 To UBound(ThreadsList,2)
ForumID=ThreadsList(0,i)
ID=ThreadsList(1,i)
Icon=ThreadsList(2,i)
IsGood=ThreadsList(3,i)
IsTop=ThreadsList(4,i)
IsLocked=ThreadsList(5,i)
Replies=ThreadsList(6,i)
Views=ThreadsList(7,i)
ThreadStatus=ThreadsList(8,i)
PayTopicMoney=ThreadsList(9,i)
Topic=ThreadsList(10,i)
Category=ThreadsList(11,i)
UserName=ThreadsList(12,i)
LastName=ThreadsList(13,i)
LastTime=ThreadsList(14,i)
PostTime=ThreadsList(15,i)
ShowThreads
Next
%>
</div>
<div class="dt">
<div class="fl"><%ShowPage()%></div>
<div class="fr"><form method="post" name="form" action="Search.asp?menu=Result"><input name="Keywords" size="20" onclick="this.value=''" onchange="javascript:VerifyText(this,'<%=Keywords%>','bt1');" name="Key" value="<%=Keywords%>"><input type="submit" value="搜索" id="bt1" disabled="disabled" /></form></div>
</div>
<%
HtmlEnd
end if
%>
<div class="nav dt"><img alt="" src="Images/Forum_nav.gif" />&nbsp; <%=ClubTree%> → 搜索帖子</div>
<div class="tb dt">
<form method="post" name="form" action="Search.asp?menu=Result">
<div id="tt">搜索主题</div>
<div class="tc b cb">
<div class="fl r w2 i">关键词<br />多关键词请用空格分隔</div>
<div class="fl i"><input size="40" name="Keywords" onchange="javascript:VerifyText(this,'','submit');" /></div>
</div>
<div class="tc b cb">
<div class="fl r w2 i">位置<br />选择关键字所在位置</div>
<div class="fl i"><input type="radio" name="Item" value="Topic" checked="checked" /><label for="Topic">主题</label> 
<input type="radio" name="Item" value="Tags" /><label for="Tags">标签</label> 
<input type="radio" name="Item" value="UserName" /><label for="UserName">作者</label> 
<input type="radio" name="Item" value="LastName" /><label for="LastName">最后更新的用户</label></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">时间范围</div>
<div class="fl si"><select name="DateComparer">
<option value="1" >昨天以来</option>
<option value="2" >2 天以来</option>
<option value="7" >1 周以来</option>
<option value="10" >10 天以来</option>
<option value="14" >2 周以来</option>
<option value="30" >1 个月以来</option>
<option value="45" >45 天以来</option>
<option value="60" >2 个月以来</option>
<option value="75" >75 天以来</option>
<option value="100" >100 天以来</option>
<option value="365" selected="selected">1 年以来</option>
<option value="-1">任何时间</option>
</select></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">排序方式</div>
<div class="fl si"><select name="SortBy">
<option value="">从旧到新</option>
<option value="Desc" selected="">从新到旧</option>
</select></div>
</div>
<div class="tc b cb">
<div class="fl r w2 si">所在版块</div>
<div class="fl si"><select name="ForumID">
<option value="" selected="selected">全部版块</option>
<%BBSList(0)%><%=ForumsList%></select>
</select></div>
</div>
<div class="tc ac"><input type="submit" value="开始搜索" id="submit" disabled="disabled" /></div>
</form>
</div>
<%HtmlEnd%>