<%
' =============================================================
' Made By Xiasp & 智多网络 http://www.cq18.com/ QQ群：12403617
' =============================================================
%>
<%
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
%>
<%=Homepage_Title%>
