|
搜索结果 |
|
以下为关键字<%=request("KeyWord")%>的相关内容 |
<%
'判断开始
Dim Keyword,Condition,Types,ReSQL
Keyword = Replace(Replace(request("keyword"),"'",""),Chr(39),"")
Condition = LCase(Replace(Replace(request("condition"),"'",""),Chr(39),""))
Types = Replace(Replace(request("Types"),"'",""),Chr(39),"")
Dim Rs
Set Rs = server.CreateObject(G_FS_RS)
If Keyword<>"" then
If Types = "News" then
Dim N1
If Condition = "title" Then
N1 = " and Title like '%"& Keyword &"%'"
ElseiF Condition = "content" Then
N1 = " and Content like '%"& Keyword &"%'"
Else
N1 = " and Author like '%"& Keyword &"%'"
End if
ReSQL = "select * from FS_News where DelTF=0 and AuditTF=1 "& N1 &" Order by Id desc"
ElseIf Types="DownLoad" then
Dim k1
If Condition = "title" Then
k1 = " and Name like '%"& Keyword &"%'"
ElseiF Condition = "content" Then
k1 = " and description like '%"& Keyword &"%'"
Else
k1 = " and Provider like '%"& Keyword &"%'"
End if
ReSQL = "select * from FS_Download where AuditTF=1 "& k1 &" Order by Id desc"
End if
Else
Response.Write("")
Response.End
End if
Rs.Open ReSQL,Conn,1,1
if Rs.eof then
Response.write " 未找到符合你条件的"& Request("keyword") &"信息 "
Else
if Types = "News" Then
Rs.pagesize=40
Rs.absolutepage=cint(strpage)
select_count=Rs.recordcount
select_pagecount=Rs.pagecount
for i=1 to Rs.pagesize
if Rs.eof then
exit for
end if
response.write ""
dim ClassCName1,RssearchObj
Set RssearchObj = Conn.Execute("Select SaveFilePath,ClassEName,ClassCName,ClassID,FileExtName from FS_NewsClass where Classid = '" & Replace(Rs("ClassID"),"'","") &"'")
if Not RssearchObj.eof then
If GetConfig(21)="1" then DatePathStr=Rs("Path") else DatePathStr=""
response.write ""
response.write "·"
ClassCName1="["& RssearchObj("ClassCName") &"] "
if Rs("HeadNewsTF")=1 then
response.write ClassCName1 & ""& Rs("title") &"[标] " & Rs("AddDate")&""
else
response.write ClassCName1 & "" & Rs("title") & " " & Rs("AddDate") & ""
end if
response.write " | "
response.write " "
end if
response.write " "
rs.movenext
next
ElseIf Types = "DownLoad" Then
Appraise = Array("","★","★★","★★★","★★★★","★★★★★","★★★★★★")
%>
栏目
|
名称
|
版本号
|
系统类型
|
评价
|
<%
Rs.pagesize=50
Rs.absolutepage=cint(strpage)
Select_count=Rs.recordcount
Select_pagecount=Rs.pagecount
for i=1 to Rs.pagesize
if Rs.eof then
exit for
end if
if i mod 2 = 1 then
%>
<%
else
%>
<%
end if
Set RssearchObj = Conn.Execute("Select ClassCName,ClassEName,SaveFilePath,FileExtName from FS_NewsClass where Classid = '" & Rs("ClassID") &"'")
ClassCName1="["& RssearchObj("ClassCName") &"] "
%>
·<%=ClassCName1%> |
" target="_blank">
<%=Rs("name")%> |
<%=Rs("Version")%> |
<%=Rs("SystemType")%> |
<%=Appraise(Cint(Rs("Appraise")))%> |
<%
rs.movenext
next
%>
<%
End if
End if
%>
<%
response.write" 共"& select_pagecount &"页" & select_count &"条记录,本页是第"& strpage &"页。"
if int(strpage)>1 then
response.Write" 第一页 "
response.Write" 上一页 "
end if
if int(strpage)下一页"
response.Write" 最后一页 "
end if
response.Write" "
%> |
|
|
|