<%@ CODEPAGE="65001" %>
<%session.codepage="65001"%>
<%response.Charset="UTF-8" %>
<%
dim sid,title,rs,sql
sid=request.QueryString("sid")
sql="select * from newslist where 1=1"
if sid<>"" and sid<>"0" then
sid=cint(sid)
title=NewsSortNameCache("",sid)
sql=sql&" and SortID in ("&ReturnAllChild(sid,"newssort")&sid&")"
else
sid=0
title="新闻中心"
end if
sql=sql&" order by NewsAddTime desc,NewsID desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.PageSize=10
page=cint(request("page"))
if page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
%>
宜昌海关服务巴东外向型企业 - 山信宇
