%
'==============================================================
' 智思留言本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&"
"
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("