%
if request.querystring("postback")="1" then
getkeyword=trim(request("keyword"))
gettype=request("type")
End if
Set rsclass= Server.CreateObject ("ADODB.RecordSet")
sqlclass = "select * from Class order by ClassID desc"
rsclass.open sqlclass,conn,1,1
Set rs=Server.CreateObject("Adodb.Recordset")
Set rs1=Server.CreateObject("Adodb.Recordset")
Set rs2=Server.CreateObject("Adodb.Recordset")
Set rs3=Server.CreateObject("Adodb.Recordset")
Set rs4=Server.CreateObject("Adodb.Recordset")
Set rs5=Server.CreateObject("Adodb.Recordset")
Set rs6=Server.CreateObject("Adodb.Recordset")
SQL="Select top 6 * from news where type='文化快报' "
SQL1="Select top 6 * from news where type='文化新闻' "
SQL2="Select top 3 * from news where type='演出动态' "
SQL3="Select top 3 * from news where type='旅游快报' "
SQL4="Select top 6 * from news where type='文化年鉴' "
SQL5="Select top 6 * from news where type='新书排行' "
SQL6="Select top 6 * from news where type='滚动更新' "
'-----------------------关键字查询
if getkeyword<>"" then
sql=sql + " where title LIKE '%" & getkeyword & "%' "
End if
'-----------------------类别查询
if request.querystring("postback")="1" then
if getkeyword<>"" and gettype<>"0" and gettype<>"" then
sql=sql + " and type='" & gettype & "'"
end if
end if
if request.querystring("postback")="1" then
if getkeyword="" and gettype<>"0" and gettype<>"" then
sql=sql + " where type='" & gettype & "'"
end if
end if
SQL=SQL + " order by ID desc"
rs.open SQL,conn,1,1
rs1.open SQL1,conn,1,1
rs2.open SQL2,conn,1,1
rs3.open SQL3,conn,1,1
rs4.open SQL4,conn,1,1
rs5.open SQL5,conn,1,1
rs6.open SQL6,conn,1,1
if rs.eof then
errmeg1="没有任何新闻!"
errmes1="1"
else
rs.MoveFirst '到第一条记录
rs.pagesize=MaxPerPage '定义每页记录数
'howmanyfields=rs.Fields.Count-1
CurrentPage= 1
If trim(Request("Page"))<>"" then
CurrentPage= CLng(request("Page"))
If CurrentPage> rs.PageCount then
CurrentPage = rs.PageCount
End If
Else
CurrentPage= 1
End If
totalPut=rs.recordcount 'totalput=总记录数
if CurrentPage<>1 then
if (currentPage-1)*MaxPerPage < totalPut then
rs.move(currentPage-1)*MaxPerPage
end if
end if
end if
%>