<% ' ============================================================= ' 甘肃万维信息技术有限责任公司设计制作 http://www.wanwei.com.cn ' ============================================================= %> <% Dim s_keyword, s_cataid, s_RootID s_keyword = GetSafeStr(Trim(Request("keyword"))) s_cataid = GetSafeStr(Trim(Request("cataid"))) '当然更改为其他跟栏目的时候,只需要适当的更改下面的值,就可以实现不同栏目。 s_RootID = "A" If s_cataid = "" Then s_cataid = s_RootID End If '检测当前类别类别的合法性,检测与否对系统影响不大 Dim bRs, bSql Set bRs = Server.CreateObject( "ADODB.Recordset" ) bSql = "SELECT * FROM NewsCata Where C_RootID = '"&s_cataid&"'" bRs.Open bSql, oConn, 0, 1 If bRs.Eof Then GoError "请通过页面上的链接进行操作,不要试图进行任何非法操作。" End If bRs.Close Set bRs = Nothing Dim Pmcount,Pageno '//设置新闻显示数量 Pmcount = News_Front_Count %> 甘肃省国资委网站
 欢迎访问甘肃省人民政府国有资产监督管理委员会网站
>>> 查看详细内容
>>> 更多内容
 
<% %>

>>>更多内容
>>>更多内容
 
国务院国有资产监督管理委员会 Copyright (C) 2005 sasacgs.gov.cn Inc. All Rights Reserved
版权所有:甘肃省人民政府国有资产监督管理委员会
地址:甘肃省兰州市城关区南昌路1718号 电话:0931-8729093 邮编:730030
中国信息产业部备案号:陇05005805