sells.asp

整站源码jsp 有兴趣的可以看看

<%@ 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 Tx_Sells where Sells_Flag=1"
    Else
        Sql="Select * from Tx_Sells where Sells_Flag=1 and Sells_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=Sells.asp>营销网络</A> > <A HREF=Sells.asp?Id=" & Rs_p("Sells_Id") & ">" & Rs_p("Sells_Name") & "</A>"
            Page_Name="营销网络 -- " & Rs_p("Sells_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="top" bgcolor="#082421"><span>
                  <%Call Page_Login()%>
                </span></td>
                <td rowspan="2" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td valign="top" class="TABLE-Main"><div class="page-head"><%=Rs_p("Sells_Name")%></div>
                        <div class="TABLE-Mainall">
                          <div class="page-name"><%=Rs_p("Sells_Name")%></div>
                          <div class="sells-content"><%=Rs_p("Sells_Content")%></div>
                        </div></td>
                    <td width="5"></td>
                    <td width="195" align="center" valign="top" class="TABLE-Side"><div class='TABLE-side1'><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 Tx_Sells where Sells_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=Sells.asp?Id=" & Rs("Sells_Id") & " >" & gotTopic(Rs("Sells_Name"),12,1) & "</A></DIV>"
                            Rs.MoveNext
                            Wend
                        Rs.Close
                        Set Rs=Nothing
                        %>
                      </div></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td valign="bottom" bgcolor="#082421" class="leftbg"><img src="Skins/blak/leftad.jpg" width="321" /></td>
              </tr>
            </table>
	        <%
        Call Page_iBottom()
        Call Page_Bottom()
        Call CloseConn()
        %>