<% ID=trim(request.QueryString("ID")) if ID<>"" then set RsA = server.createobject("adodb.recordset") RsA.source = "select * from NewTree where ID="&ID&"" RsA.open RsA.source,conn,1,3 Pid=RsA("Pid") if Pid=0 then Content=" >> "&RsA("Content")&"" Locality="-"&RsA("Content") else set RsB = server.createobject("adodb.recordset") RsB.source = "select * from NewTree where ID="&Pid&"" RsB.open RsB.source,conn,1,1 Content=" >> "&RsB("Content")&" >> "&RsA("Content")&"" Locality="-"&RsB("Content")&"-"&RsA("Content") RsB.Close set RsB=nothing end if RsA.Close set RsA=nothing end if '=========================== %> <% dim i,intPage,page,pre,last,filepath set RsP = server.createobject("adodb.recordset") PSQL= "select id,Newtitle,addtime from News where TreeID like '%"&ID&"%' and Putout=true order by id desc" RsP.PageSize = 20 '这里设定每页显示的记录数 RsP.CursorLocation = 3 RsP.Open PSQL,conn,0,2,1 pre = true last = true page = trim(Request.QueryString("page")) if len(page) = 0 then intpage = 1 pre = false else if cint(page) =< 1 then intpage = 1 pre = false else if cint(page)>=RsP.PageCount then intpage = RsP.PageCount last = false else intpage = cint(page) end if end if end if if not RsP.eof then RsP.AbsolutePage = intpage end if if RsP.Bof or Rsp.EOF then ContentList="还没有相关内容!" for i=1 to RsP.PageSize if RsP.EOF or RsP.BOF then exit for ContentList=ContentList&"  "&RsP("Newtitle")&""&RsP("addtime")&"" RsP.movenext next ContentList=""&ContentList&"
" '=========================== %> <% Sub Pagination() response.write"" if RsP.pagecount>0 then response.write"
当前页"&intpage&"/"&RsP.PageCount&"        " else response.write"当前页0/0        " end if response.write"共有"&RsP.recordcount&"条信息  每页"&RsP.PageSize&"条        首页 | " if pre then response.write"上页 | " end if if last then response.write"下页 | " end if response.write"尾页 | 转到第" response.write"
" RsP.Close set RsP=nothing End Sub '=========================== %> <% set Rs=server.createobject("adodb.recordset") SQL="select id,Newtitle,AddTime from News where Putout=true and Hot=true ORDER BY kig desc" Rs.open SQL,conn,1,1 if Rs.BOF or Rs.EOF then HotNewsList="还没有相关内容" HotCount=1 do while not Rs.eof and HotCount<=15 HotNewsList=HotNewsList&"  "&Rs("Newtitle")&""&Rs("addtime")&"" HotCount=HotCount+1 Rs.movenext loop HotNewsList=""&HotNewsList&"
" Rs.Close set Rs=nothing '=========================== %> <% ID=trim(request.QueryString("id")) if ID="" then ID=30 set Rs = server.createobject("adodb.recordset") Rs.source = "select * from Company where ID="&ID&"" Rs.open Rs.source,conn,1,3 if Rs.eof then Content="还没有添加相关内容!" else Kig=Rs("Kig") Rs("kig")=Kig+1 Rs.update Content=Rs("Content") ComName=Rs("ComName") end if Rs.close set Rs=nothing %> 神洲四海连锁餐饮官网
京港百汇海鲜城

<%=Content%>
    神洲四海王府井店隶属于北京神洲四海餐饮管理有限公司旗下分公司,由神洲四海水产商贸公司筹建。本酒店位于北京市东城区王府井东街8号澳门中心4层。营业时间:午餐11:00——14:00,晚餐17:00——21,神洲四海王府店拥有15个豪华包间,每个包间带有卡拉OK、茶艺表演,是您表达诚意、彰显尊贵之最佳选择。房间适合生日、公司聚会及庆典聚会使用。本店主要经营以海鲜为主,湘菜、粤菜、闽菜为辅的高档酒楼,为您提供的精美佳肴,并把海鲜南北口味相结合,使您在内陆京城也能感受到大海边的海鲜盛宴、饕餮大餐。神州大地,四海一家,我们全体员工以一颗感恩的心服务于天下百姓。

 

                   神洲四海海鲜大酒楼四道口店全体员工,恭候您的光临!