%
dim classes,startdate,enddate,searchstring,currentpage,searcharea
dim sql,rs
set rs=Server.CreateObject("ADODB.Recordset")
classes=request("classes")
searchstring=request("searchstring")
startdate=request("startdate")
if startdate="" then
startdate="1900-01-01"
end if
enddate=request("enddate")
if enddate="" then
enddate="2010-01-01"
end if
currentpage=clng(request("page"))
if request("searcharea")<>"" then
searcharea=request("searcharea")
else
searcharea="Content"
end if
sql="SELECT * FROM Article"
if classes<>"" then
sql=sql&" WHERE Class LIKE '%"&classes&"%'"
if searchstring<>"" then
sql=sql&" AND "&searcharea&" LIKE '%"&searchstring&"%'"
end if
if startdate<>"" and enddate<>"" then
sql=sql&" AND PubDate BETWEEN #"&startdate&"# AND #"&enddate&"#"
end if
else
if searchstring<>"" then
sql=sql&" WHERE "&searcharea&" LIKE '%"&searchstring&"%'"
end if
if startdate<>"" and enddate<>"" then
sql=sql&" AND PubDate BETWEEN #"&startdate&"# AND #"&enddate&"#"
end if
end if
sql=sql&" ORDER BY PubDate DESC"
rs.open sql,conn,3,2
if rs.eof then
response.redirect("finderror.asp")
end if
rs.pagesize=15
if currentpage<1 then
currentpage=1
end if
if currentpage>int(rs.recordcount/rs.pagesize)+1 then
currentpage=int(rs.recordcount/rs.pagesize)+1
end if
rs.absolutepage=currentpage
%>
湖南红博咨询有限公司