📄 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:hechenn@126.com)' 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()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -