锦地星座酒店

<% Set rs=server.createobject("adodb.recordset") Call OpenData(Conn,mdb_article) if not (isempty(request.QueryString("top")) or request.QueryString("top")="" ) then '显示首页最新新闻 rs.open "select top "&request.QueryString("top")&" [name],[id] from article where class_id =1 order by id desc",Conn,1,1 if not rs.bof then while not rs.eof Temp_str = Temp_str & "

"&rs("name")&"

" & chr(13) rs.movenext wend end if response.Write "

" response.Write (Temp_str) response.Write "

" response.End() '--------------------------------------------- elseif not (isempty(request.QueryString("id")) or request.QueryString("id")="" )then '显示具体新闻 rs.open "select * from article where class_id =1 and id="&request.QueryString("id")&" order by id desc",Conn,1,1 if not(rs.bof and rs.eof) then dim article_name article_name = " - "& format_lang(rs("name"),60,"..") Temp_str = Temp_str & "

"&rs("name")&"

" & chr(13) Temp_str = Temp_str & "

"&replace(rs("body"),"/rolymro/","")&"

" & chr(13) Temp_str = Temp_str & "

"&rs("from")&"

" & chr(13) Temp_str = Temp_str & "

"&format_date(rs("news_date"))&"

" & chr(13) else Temp_str = "

该条信息不存在或者已经被删除！

" end if '---------------------------------------------- else '显示新闻列表 rs.open "select [name],[id] from article where class_id =1 order by id desc",Conn,1,1 dim pageC,curpage if checkstr(request.QueryString("page"))<>empty then Curpage=checkstr(request.QueryString("page")) if isInteger(curpage)=false or curpage < 0 then curpage=1 else curpage=1 end if pageC=0 if not rs.eof then rs.pagesize=30 rs.absolutepage=curpage dim rs_nums rs_nums=rs.recordcount Temp_str = Temp_str &"

"& Multipage(rs_nums,30,curpage,"?","","") & "

" & chr(13) do until rs.eof or pagec=rs.pagesize Temp_str = Temp_str & "

"&rs("name")&"

" & chr(13) rs.movenext pagec=pagec+1 loop Temp_str = Temp_str & "

" end if rs.close set rs=nothing end if Call CloseObj(Conn) %>