sells.asp

台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 产品名称：台讯企业全站管理系统（V2006简体中文版）
' 程序开发：HECHENn（QQ：34103037　Emial：[e-mail]）
' Copyright 2006 txcodes.com - 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="770" 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>
        <%
        Call Page_iBottom()
        Call Page_Bottom()
        Call CloseConn()
        %>