厦门文化信息网欢迎您！

<% 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 %> 厦门文化信息网欢迎您！


文化单位

文艺社团

市场管理

政策法规

友好城市

全文检索：

文化单位

厦门市电影发行放映公司简介

    厦门市电影发行放映公司是一家从事电影发行放映、市场经营等业务的专业化企业，拥有豪华影院和电影流动服务放映队。
    豪华影院拥有时尚高档的装修、现代化的音响放映设备和优质的服务保障。140个豪华软座可供团体包场，会议、讲座、观摩等功能齐全，配套完备，极富于艺术化视听欣赏空间。与全国影院同步上映最新中外影片，是现代都市文化娱乐活动的优雅场所。
    电影流动服务放映队是一支巡回于广阔城乡区域，专门为各机关、学校、企事业团体包括农村集镇广大电影观众提供优秀影片专场映出。可提供中外影片千余部，服务周到，价格优惠。
    厦门市电影公司本着方便用户、规范服务的宗旨，竭诚繁荣社区文化、广场文化、校园文化和农村文化，为满足人民群众的电影消费需要，恭请社会各界咨询，欢迎您的预约。
    地址：厦门德胜大厦1楼（市教育局对面）
     电话：2074210 2022025 2020690

返回上一页

主办：厦门市文化局承办：厦门图书馆 2003™ 版权所有© 保留所有权利