?? inform.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. '***********************************************************************************
Dim InformContent
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Inform where Inform_Flag=1 And Inform_Id=" & Id
Rs.open Sql,Conn,1,1
IF Rs.RecordCount=0 OR Id="" THEN Call Page_check(1,0)
InformContent=Rs("Inform_Title") & "‖" & Rs("Inform_Content") & "‖" & Rs("Inform_Date")
Rs.Close
Set Rs=Nothing
InformContent=split(InformContent,"‖")
Class_Name="瀏覽公告"
Page_Name="公告 -- " & InformContent(0) & " -- " & 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"><%=InformContent(0)%></DIV>
<DIV CLASS="inform-content"><%=InformContent(1)%></DIV>
<DIV CLASS="add-time">發布時間:<%=YearDa(InformContent(2))%></DIV><br>
<%
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Inform where Inform_Flag=1 order by Inform_Date desc"
Rs_Manage.open Sql,Conn,1,1
Rs_Manage.PageSize = InformMax_Class
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN response.Redirect "javascript:history.go(-1);"
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof And Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof And page_count<Cint(iPageSize)
page_count=page_count+1
%>
<DIV CLASS="inform-CLASS"><IMG SRC="Skins/Blue/Tx_Ar4.gif"> <A HREF=Inform.asp?Id=<%=Rs_Manage("Inform_Id")%> title='公告主題:<%=Rs_Manage("Inform_Title")%> 發布時間:<%=YearDa(Rs_Manage("Inform_Date"))%>'><%=Rs_Manage("Inform_Title")%></A></DIV>
<DIV CLASS="type-height2"></DIV>
<%
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
Call Page_Next()
%>
</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 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 + -