<%
response.write("检索功能暂时关闭")
response.end
'Dim FunClass
'Set FunClass=New StringClass
Dim keyword
keyword=Replace(Request("keyword"),"'","")
'Dim Adatesearch
' Adatesearch=Request("datesearch")
Dim stype
stype=cint(request("stype"))
Dim sort
sort=cint(request("sort"))
%>
| 搜索说明：
1.关键字字符长度不能大于100个字节 2.每次搜索时间间隔 30 秒 |
<%
If keyword<>"" and Len(keyword)<100 and sort<>"" Then
Call InfoList()
Else
Call ErrorInfo()
End If
Sub InfoList()
Dim Rs,Sql,page
If Request("page")="" Then
page=1
Else
page = request.querystring("page")
page = cint(page)
End If
'dim searchdate
'if request("searchdate")="all" then
'searchdate=""
'else
'searchdate="DATEDIFF(d,addtime,getdate()) < "&request("searchdate")&" and "
'end if
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql=ExeSql()
Rs.PageSize=20
Rs.CacheSize=Rs.PageSize
Rs.Open Sql,Conn,1,1
If Not(Rs.Eof And Rs.Bof) Then
Rs.AbsolutePage=page
End If
%>
|
检索结果：分类
<% if request("sort")=0 then response.write"所有类别" %>
<% if request("sort")=1 then response.write"评 论" %>
<% if request("sort")=3 then response.write"核心报道" %>
<% if request("sort")=2 then response.write"重点新闻" %>
<% if request("sort")=4 then response.write"北京新闻" %>
<% if request("sort")=5 then response.write"国内新闻" %>
<% if request("sort")=6 then response.write"国际新闻" %>
<% if request("sort")=7 then response.write"体育新闻" %>
<% if request("sort")=8 then response.write"经济新闻" %>
<% if request("sort")=9 then response.write"娱乐新闻" %>
<% if request("sort")=10 then response.write"行业周刊" %>
<% if request("sort")=11 then response.write"北京杂志" %>
<% if request("sort")=12 then response.write"文化副刊" %>
<% if request("sort")=13 then response.write"房产新闻" %>
<% if request("sort")=14 then response.write"汽车频道" %>
<% if request("sort")=15 then response.write"两会专题" %>
<% if request("sort")=16 then response.write"周年特刊" %>
关键字
<%=request("keyword")%> 共 <%=Rs.RecordCount%>
条
<%
'dim endtime
' endtime=timer()
'response.Write "共用时"&FormatNumber((endtime-startime)*1000,3)&" 毫秒
"
%>
|
<%
Dim I
For I=1 To Rs.PageSize
If Rs.Eof Then
Exit For
End If
tempaddtime=rs("AddTime")
dim fpath,fyear,fmonth,fday,fdate
fdate=tempaddtime
fyear=year(fdate)
fmonth=right("00"&month(fdate),2)
fday=right("00"&day(fdate),2)
fpath=fyear&"/"&fmonth&fday
%>
|
/<%=rs("fname")%> target=_blank><%=replace(HTMLencode2(rs("title")),""&keyword&"",""&keyword&"")%>
<%=Rs("addtime")%>
|
| |
<%=Replace(Rs("title"),keyword,""&keyword&"")%>
/<%=rs("fname")%> target=_blank>详细>>
|
|
<%
Rs.MoveNext
Next
%>
|
<%
If Rs.Eof And Rs.Bof Then
%>
|
<%
End If
%>
|
<%
Rs.Close
Set Rs=Nothing
End Sub
conn.close
set conn=nothing
Sub ErrorInfo()
%>
对不起，搜索失败，可能出现的错误原因：
１．搜索关键词没有输入；２．关键词过长（大于250）；3 . 没有选择搜索类别 |
|
<%
End Sub
%>
|
| Copyright 2004 By 新京报 信息技术部
|
<%
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "
")
fString = Replace(fString, CHR(10), "
")
'fString = Replace(fString, CHR(32), " ")
HTMLEncode2 = fString
end function
function HTMLDecode(fString)
fString = Replace(fString, "",CHR(13))
fString = Replace(fString, "
",CHR(10) & CHR(10))
fString = Replace(fString, "
",CHR(10))
'fString = Replace(fString, " "," ")
HTMLDecode = fString
end function
%>