news.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. 
'***********************************************************************************

ii=0
Class_Name="<A HREF=Neclass.asp>新闻列表</A> > "
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_News where News_Flag=1 and News_Id=" & Id
    Rs_p.open Sql,Conn,1,3
	IF Rs_p.RecordCount=0 THEN Call Page_check(1,0)
	    Rs_p("News_Count")=Rs_p("News_Count")+1
	Rs_p.UpDate
	CretId=Id
    Id=Rs_p("News_ClassId")
    sId=Id
    Table_List="Tx_NeClass"
    FileName="Neclass"
        Page_Name="新闻 -- " & Rs_p("News_Title") & " -- " & Web_Const(0)
        Call Class_Namex()
        Call Page_Head()
        Call Page_iHead()
        Call Page_nHead()
        Call Class_Names()
        %>
        <TABLE WIDTH="770"  BORDER="0" ALIGN="center" CELLPADDING="0" CELLSPACING="0">
            <TR>
                <TD VALIGN="top" CLASS="table-Main">
                    <DIV CLASS="page-head">新闻内容</DIV>
                    <DIV CLASS="table-Mainall">
                    <DIV CLASS="page-name"><%=Rs_p("News_Title")%></DIV>
                    <DIV CLASS="news-form">【 来源：<%=Rs_p("News_Form")%> 】 【 发布时间：<%=YearDa(Rs_p("News_Date"))%> 】 【 字体：<A HREF="javascript:doZoom(18)">大</A> <A HREF="javascript:doZoom(14)">中</A> <A HREF="javascript:doZoom(12)">小</A> 】</DIV>
                    <DIV CLASS="news-content" id=zoomz><%=Rs_p("News_Content")%></DIV>
                    <DIV CLASS="type-height2"></DIV>
                    <DIV CLASS="add-time">添加时间：<%=YearDa(Rs_p("News_Date"))%>　　浏览次数：<SPAN CLASS="type-color2"><%=Rs_p("News_Count")%></SPAN></DIV><%Call Class_Namez("Tx_News","News_Id","News_Title","News","News")%></DIV><br><%IF int(Web_Const(86))=1 THEN%><DIV CLASS="page-head">新闻评论</DIV><DIV CLASS="TABLE-Mainall"><%Call Cret_Pagex(2,NewsMax_CretClass)%></DIV><%End IF%><DIV CLASS="page-head">免责声明</DIV><DIV CLASS="TABLE-Mainall"><%=Web_Const(84)%></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"><%Call Parent_Class(0)%></DIV>
                    <DIV CLASS="TABLE-side1"><SPAN CLASS="type-color1">新闻搜索</SPAN></DIV><DIV CLASS="TABLE-side3"><%Call page_Search("News")%></DIV>
                    <DIV CLASS="TABLE-side1"><SPAN CLASS="type-color1">热门新闻</SPAN></DIV><DIV CLASS="TABLE-side3"><%Call Page_Top("Tx_News","News_Title","News","News",NewsMax_Top)%></DIV>
                </TD>
            </TR>
    </TABLE>
    <%
	Rs_p.Close
	Set Rs_p=Nothing
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>