<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/NoSQL.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<%
Call SiteInfo()
If ISHTML = 1 Then
    Response.expires = 0
    Response.expiresabsolute = Now() - 1
    Response.addHeader "pragma", "no-cache"
    Response.addHeader "cache-control", "private"
    Response.CacheControl = "no-cache"
End If
ID = request.QueryString("ID")
If ID <> "" Or IsNumeric(ID) Then
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_Others where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    If rs("SeoKeywords") <> "" Then
        SeoKeywords = rs("SeoKeywords")
    Else
        SeoKeywords = rs("OthersName")
    End If
    If rs("SeoDescription") <> "" Then
        SeoDescription = rs("SeoDescription")
    Else
        SeoDescription = rs("OthersName")
    End If
    SeoTitle = rs("OthersName")
End If
rs.Close
Set rs = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title><% =SeoTitle %> - <% =SiteTitle %></title>
<meta name="keywords" content="<% =SeoKeywords %>" />
<meta name="description" content="<% =SeoDescription %>" />
</head>
<!--#include file="Top.Asp" -->
<table width="998" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="left" valign="top"><table width="228" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
      <tr>
        <td height="29" align="left" valign="middle" background="/template/shenbi_bz/images/cpfltop.jpg" style="padding:0 11px 0 39px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" valign="middle" class="titlewhite">新闻分类</td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:12px 12px 6px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<%=WebMenu(0,0,2)%>

        </table></td>
      </tr>
      <tr>
        <td align="left" valign="top"><img src="/template/shenbi_bz/images/cpflxia.jpg" width="228" height="6" /></td>
      </tr>
    </table>
<!--#include file="new_left.Asp" -->
      
</td>
    <td align="right" valign="top"><table width="755" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:10px;">
      <tr>
        <td height="30" align="left" valign="middle" background="/template/shenbi_bz/images/jpcptop.jpg" style="padding-left:42px; padding-right:15px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="left" valign="middle" class="titlewhite">其他信息</td>
              <td align="right" valign="middle" class="pink"><%=WebLocation()%></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#FFFFFF" class="border-l-r" style="padding:20px 15px 15px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">

          <tr>
            <td height="30" align="center" class="border-b-gray titlegreen" style="padding-bottom:10px;">
    <%
ID = request.QueryString("ID")
If ID = "" Or Not IsNumeric(ID) Then
    response.Write "<center>暂无相关信息</center>"
ElseIf conn.Execute("select * from Shenbi_Others Where ViewFlag and  ID="&ID).EOF Then
    response.Write "<center>暂无相关信息</center>"
Else
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_Others where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 3
    Response.Write ""&rs("OthersName")&""&vbCrLf
End If
%>
            </td>
          </tr>
          <tr>
          <td align="center">
    <%
If ViewNoRight(rs("GroupID"), rs("Exclusive")) Then
    Response.Write "          <div class=""artview_info"">更新时间："&FormatDate(rs("UpdateTime"), 13)&" &nbsp;&nbsp;&nbsp;浏览次数：<script language=""javascript"" src=""HitCount.Asp?id="&rs("ID")&"&LX=Shenbi_Others""></script><script language=""javascript"" src=""HitCount.Asp?action=count&LX=Shenbi_Others&id="&rs("ID")&"""></script></div>"&vbCrLf
    Response.Write "          <div id=""artview_content"">"&vbCrLf
%>
          </td>
          </tr>
          <tr>
            <td align="left" style="padding:15px;"><p><br />
<%
ContentStr = Split(rs("Content"), "{＄html_Paging＄}")
For i = pageNum To pageNum
%>
<%=ProcessSitelink(ContentStr(i)) %>
<% Next %>

<%
Else
    Response.Write "        <tr>"&vbCrLf
    Response.Write "          <td align=""center""><img src=""Images/NoRight.jpg""></td>"&vbCrLf
    Response.Write "        </tr>"&vbCrLf
End If
rs.update
rs.Close
Set rs = Nothing
%>
</td>
         </tr>
            </table>
             </td>
        </tr>
        <tr>
          <td align="left" valign="top"><img src="/template/shenbi_bz/images/jpcpxia.jpg" width="755" height="10" /></td>
        </tr>
      </table></td>
  </tr>
</table>

</div>
<!--#include file="End.Asp"-->
<%
Function WebMenu(ParentID, i, level)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select * from Shenbi_OthersSort where ViewFlag and ParentID="&ParentID&" order by ID asc"
    rs.Open sql, conn, 1, 1
    If conn.Execute("select ID from Shenbi_OthersSort Where ViewFlag and ParentID=0").EOF Then
        response.Write "<center>暂无相关信息</center>"
    End If
    Do While Not rs.EOF
        If ISHTML = 1 Then
            AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "OtherList.Asp?SortID="&rs("ID")&""
        End If
        'response.Write "<li><a href="""&AutoLink&""">"&rs("SortName")&"</a></li>"
			response.Write "<tr>"
            response.Write "<td height=""31"" align=""left"" valign=""middle""><a href="""&AutoLink&""" class=""cpfenlei"">"&rs("SortName")&"</a></td>"
            response.Write "</tr>"
        'i=i+1
        'if i<level then call WebMenu(rs("ID"),i,level)
        'i=i-1
        rs.movenext
    Loop
    rs.Close
    Set rs = Nothing
End Function

Function WebLocation()
    WebLocation = "&nbsp;当前位置：<a href=""index.Asp"" class=""pink"">首页</a> - <a href=""InfoClass.html"" class=""pink"">其他信息</a>"&vbCrLf
    If request.QueryString("ID") = "" Then
        WebLocation = WebLocation
    ElseIf Not IsNumeric(request.QueryString("ID")) Then
        WebLocation = WebLocation&"读取错误"
    ElseIf conn.Execute("select * from Shenbi_Others Where ViewFlag and  ID="&request.QueryString("ID")).EOF Then
        WebLocation = WebLocation&"读取错误"
    Else
        Dim rs, sql
        Set rs = server.CreateObject("adodb.recordset")
        sql = "select * from Shenbi_Others where ViewFlag and ID="&request.QueryString("ID")
        rs.Open sql, conn, 1, 1
        WebLocation = WebLocation&SortPathTXT("Shenbi_OthersSort", rs("SortID"))
        rs.Close
        Set rs = Nothing
    End If
End Function

Function SortPathTXT(DataFrom, ID)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    sql = "Select * From "&DataFrom&" where ViewFlag and ID="&ID
    rs.Open sql, conn, 1, 1
    If Not rs.EOF Then
        If ISHTML = 1 Then
            AutoLink = ""&OtherSortName&""&Separated&""&rs("ID")&""&Separated&"1."&HTMLName&""
        Else
            AutoLink = "OtherList.Asp?SortID="&rs("ID")&""
        End If
        SortPathTXT = SortPathTXT(DataFrom, rs("ParentID"))&" - <a href="""&AutoLink&"""><span style=""color:#EC0000"">"&rs("SortName")&"</span></a>"
    End If
    rs.Close
    Set rs = Nothing
End Function
%>