%
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
%>
湖南红博咨询有限公司
 | ![]() <%if left(classes,4)<>"政府决策" then%>
实战案例 |
<%end if%> <%if left(classes,4)<>"政府决策" then%> 政策研究 | <%end if%> 希望工程 | <%if left(classes,4)<>"政府决策" and left(classes,4)<>"保健品营" then%>
| →爱心桥 | <%end if%>
<%if left(classes,4)<>"政府决策" and left(classes,4)<>"保健品营" then%> | →爱心捐零箱 | <%end if%>
<%if left(classes,4)="政府决策" then%> | →12591259助学热线 |
<%end if%>| | | | | | | | |
|
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%> | <%
rs.movenext
next
%> |
| | | | | |
湖南红博咨询有限公司版权所有 Copyright © 2003-2008
如有任何意见或建议,请与管理员联系 | |  |  | |