worki.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")
    Sql="Select * from Tx_Work where Work_Flag=1 and Work_Id=" & Id
    Rs_p.open Sql,Conn,1,3
    IF Rs_p.RecordCount=0 THEN Call Page_check(1,0)
	Rs_p("Work_Count")=Rs_p("Work_Count")+1
	Rs_p.UpDate
    Class_Name="<A HREF=Work.asp>工程案例</A> > " & Rs_p("Work_Title")
	Page_Name="工程案例 -- " & Rs_p("Work_Title") & " -- " & 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">工程案例</DIV>
                <DIV CLASS="TABLE-Mainall">
                <DIV CLASS="page-name"><%=Rs_p("Work_Title")%></DIV>
                <DIV CLASS="work-content"><%=Rs_p("Work_Content")%></DIV>
                <DIV CLASS="add-time">添加时间：<%=YearDa(Rs_p("Work_Date"))%>　　浏览次数：<SPAN CLASS="type-color2"><%=Rs_p("Work_Count")%></SPAN></DIV><%Call Class_Namez("Tx_Work","Work_Id","Work_Title","Work","Worki")%></DIV>
                <%
            Rs_p.Close
            Set Rs_p=Nothing
            %>
            </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 page_Search("Products")%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">订单搜索</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call page_Search("ShopCode")%></DIV>
        </TD>
        </TR>
    </TABLE>
    <%
    Call Page_iBottom()
    Call Page_Bottom()
    Call CloseConn()
    %>