<%
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
%>
厦门文化信息网欢迎您！
厦门市博物馆系我国东南地区重要的地志性省级博物馆之一，它位于中国著名风景名胜区—鼓浪屿中部，主楼八卦楼巍峨壮观，是近代厦门的标志性风貌建筑，始建于１９０７年，由当时台湾首富板桥林家成员之一林鹤寿所建。它是集耶路撒冷阿克萨清真寺、希腊雅典神店、中国古典建筑等多种艺术风格于一体的建筑典范，是近代建筑中的一颗璀璨明珠。