厦门文化信息网欢迎您！

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


文化单位

文艺社团

市场管理

政策法规

友好城市

全文检索：

文化单位

厦门市文物店简介

文物店是国家设立的文化事业单位。主要任务是通过商业手段收集流散在社会上的文物使之得到保,为博物馆(院)和有关科研部门提供藏品和资料,将一般不需要由国家收藏的文物投放市场,满足国内文物爱好者需要或为国家创造效高的外汇收入,并把完成这一任务做为检验文物商店工作成绩的重要尺度。
厦门文物店,是一家经国家文物局批淮,具有四十多年历史的,专业经营中高档文物珍玩、工艺礼品的老字号。

    总部：厦门市湖滨北路36号文物大楼
    电话：5111349 5052004(传真)
    邮编：361012
    滨北分店：厦门市湖滨北路36号文物大楼一楼
    电话：5069141
    思北分店：厦门市思明北路50－54号
    电话：2023363

返回上一页

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