<% '============================================================== ' 智思留言本4.0 (ZSLYB 4.0) ' ' 版权所有:智思网 www.zhisi.net 或 www.zslyb.com ' 程序版本:4.0 ' 发布日期:2011-06-20 ' 作者邮箱:zhisi@126.com ' ' 拷贝、使用、二次开发和分发等,必须保留以上的版权信息,侵权必究 '============================================================== %> <% If Not HasPermission(10) Then If UIMode="ajax" Then Response.Write("您没有登录或没有搜索的权限!") Response.Write("") Else Response.Write("") End If Response.End() End If OpenConn() If UIMode="ajax" Then SearchCheck() Else Header "",LangSearch,"","",LangSearch,True,"" SearchCheck() Footer() End If CloseConn() Function SearchArea(strso,skey) Dim currurl currurl=Request.ServerVariables("URL") SearchArea="

"&LangSearch&"

"&LangSearchKeyword&"
" End Function Function SearchType(stype) Dim str str="" If stype="title" Then str=str&"" Else str=str&"" End If If stype="author" Then str=str&"" Else str=str&"" End If 'If stype="content" Then ' str=str&"" 'Else ' str=str&"" 'End If 'If stype="all" Then ' str=str&"" 'Else ' str=str&"" 'End If SearchType=str End Function Sub SearchCheck() Dim action action=Trim(Request.QueryString("action")&"") If Len(Action)>0 Then Dim sotype,skey sotype=Request("sotype")&"" If Len(sotype)=0 Then ShowAndBack("必须选择一个条件!") skey=Request("key")&"" If Len(skey)=0 Then ShowAndGoto "请输入搜索关键字!","search.asp" If SearchInterval>0 And Request.Cookies("ScDT")<>"" Then If DateDiff("s",Request.Cookies("ScDT"),Now())0 Then Response.Cookies("ScDT")=Now() Else Response.Write(SearchArea(SearchType(""),"")) End If End Sub Sub Search(action,sotype,skey) Dim ipage,ipagesize ipage=GetCurrentPage() ipagesize=10 pagerurl="?action="&action&"&key="&Server.URLEncode(skey)&"&sotype="&sotype&"&" skey=Replace(skey,"'","''") sql="select [ID],[Title],CStr([AddDate])+' '+CStr([AddTime]),[Name],[ReplyCount],[Top] from [Guest] where [Status]=3 and (" If sotype="title" Or sotype="all" Then sql=sql&" or InStr(1,LCase([Title]),LCase('"&skey&"'),0)<>0" End If If sotype="content" Or sotype="all" Then sql=sql&" or InStr(1,LCase([Content]),LCase('"&skey&"'),0)<>0" End If If sotype="author" Or sotype="all" Then sql=sql&" or InStr(1,LCase([Name]),LCase('"&skey&"'),0)<>0" End If sql=sql&")" sql=Replace(sql,"and ( or ","and (") SearchTopicList sql,pagerurl,ipagesize,ipage If SearchKeywordSave Then Dim tmpuid tmpuid=Session("UserID") If tmpuid="" Then tmpuid=0 Conn.Execute("insert into [SearchKeyword] ([Keyword],[AddDate],[AddTime],[UserID]) values ('"&skey&"','"&Date()&"','"&Time()&"',"&tmpuid&")") End If End Sub Sub SearchTopicList(sql,pagerurl,ipagesize,ipage) Dim str,rs Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,Conn,1,1 TopicListHeader() If Not (rs.BOF And rs.EOF) Then If ipage=1 Then rs.MoveFirst Else rs.Move CLng(ipage-1)*ipagesize End If irecordcount=rs.RecordCount i=0 While i"&rs(1)&"
" i=i+1 rs.MoveNext Wend End If rs.Close Set rs=Nothing Response.Write("
"&Pagination(irecordcount,ipagesize,ipage,pagerurl)&"
") End Sub Sub TopicListHeader() Response.Write("
"&LangReplyCount&""&LangAuthor&" · "&LangDateTime&"

"&LangTitle&"

") End Sub Sub TopicListTemplate(tyname,id,uname,title,datetime,top,replycount) %>
<%=replycount%><%=uname%> · <%=datetime%>

<%=title%>

<% End Sub %>