if Request("menu")="Result" then
 Keywords=HTMLEncode(Request("Keywords"))

 SortBy=HTMLEncode(Request("SortBy"))
 Item=HTMLEncode(Request("Item"))

 if Keywords="" then error("您没有输入任何查询条件！")
 if Request("VerifyCode")<>Session("VerifyCode") or Session("VerifyCode")="" then

error("验证码错误！")

 SQLSearch="IsApproved=1 and IsDel=0 and "&Item&" like '%"&Keywords&"%' "
 
 if DateComparer > 0 then SQLSearch=SQLSearch&" and

PostTime>"&SqlNowString&"-"&DateComparer&" "

 if ForumID > 0 then SQLSearch=SQLSearch&" and ForumID="&ForumID&" "

 sql="select * from [BBSXP_Threads] where "&SQLSearch&" order by ThreadID

"&SortBy&""
 Rs.Open sql,Conn,1