about.asp

来自「强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点」· ASP 代码 · 共 63 行

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************
    Set Rs_p=server.Createobject("Adodb.Recordset")
    IF Id="" then
        Sql="Select * from CS_About where About_Flag=1"
    Else
        Sql="Select * from CS_About where About_Flag=1 and About_Id=" & Id
    End IF
        Rs_p.open Sql,Conn,1,1
            IF Rs_p.RecordCount=0 THEN Call Page_check(1,0)
            Class_Name="<A HREF=About.asp>了解我们</A> > <A HREF=About.asp?Id=" & Rs_p("About_Id") & ">" & Rs_p("About_Name") & "</A>"
            Page_Name="了解我们 -- " & Rs_p("About_Name") & " -- " & Web_Const(0)
            Call Page_Head()
            Call Page_iHead()
            Call Page_nHead()
            %>
	        <table width="990" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="321" valign="bottom" bgcolor="#082421"><span>
                  <%Call Page_Login()%>
                </span><img src="Skins/blak/leftad.jpg" width="321" /></td>
                <td valign="top"><table width="100%" height="100%" border="0"  cellpadding="0" cellspacing="0">
                  <tr>
                    <td valign="top" class="TABLE-Main"><div class="page-head"><%=Rs_p("About_Name")%></div>
                        <div class="TABLE-Mainall">
                          <div class="page-name"><%=Rs_p("About_Name")%></div>
                          <div class="about-content"><%=Rs_p("About_Content")%></div>
                        </div></td>
                    <td width="2"></td>
                    <td width="195" align="center" valign="top" class="TABLE-Side"><div><span class="type-color1">了解我们</span></div>
                        <div class='TABLE-side3'>
                          <%
                        Rs_p.Close
                        Set Rs_p=Nothing
                        Set Rs=server.createobject("adodb.recordset")
                        Sql="Select * from CS_About where About_Flag=1"
                        Rs.open Sql,Conn,1,1
                            While Not Rs.Eof
                                Response.Write "<DIV CLASS='TABLE-tstr'><IMG SRC=Skins/Blue/Tx_Ar3.gif>　<A HREF=About.asp?Id=" & Rs("About_Id") & " >" & gotTopic(Rs("About_Name"),12,1) & "</A></DIV>"
                            Rs.MoveNext
                            Wend
                        Rs.Close
                        Set Rs=Nothing
                        %>
                      </div></td>
                  </tr>
                </table></td>
              </tr>
            </table>
	        <%
        Call Page_iBottom()
        Call Page_Bottom()
        Call CloseConn()
        %>