?? a_right.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 產品名稱：臺訊企業全站管理系統（V2006簡體中文版）' 程序開發：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_formBody()
Call Page_Spane(5)
strIfa = "<TABLE WIDTH=99% BORDER=0 ALIGN=center cellpadding=1 CELLSPACING=1 bgcolor=#4272D5><TR><TD bgcolor=#FFFFFF><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN=center CLASS=Table3>網站基本信息</TD></TR></TABLE>"
strIfa = strIfa & "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<TR>"&_
"<TD HEIGHT=30 colspan=4 CLASS=Table9><DIV style='HEIGHT: 15px;PADDING-TOP:5px;'> <B>" & Session("Loginadmin") & "</B>，歡迎您來到后臺管理中心，"
Response.Write strIfa
Call Head_Clock()
strIfa = "，您已經登陸了 " & DateDiff("n",Session("Logindate"),Now()) & " 分鐘。</DIV></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD WIDTH=16% HEIGHT=30 CLASS=Table8>網站名稱：</TD>"&_
"<TD WIDTH=34% CLASS=Table8>" & Web_Const(0) & "</TD>"&_
"<TD WIDTH=16% CLASS=Table8>網站地址：</TD>"&_
"<TD CLASS=Table8><A HREF=" & Web_Const(1) & " target='_blank'>" & Web_Const(1) & "</A></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD WIDTH=16% HEIGHT=30 CLASS=Table8>網站LOGO：</TD>"&_
"<TD WIDTH=34% CLASS=Table8><A HREF=" & Web_Const(2) & " target='_blank'>" & Web_Const(2) & "</A></TD>"&_
"<TD WIDTH=16% CLASS=Table8>網站 BAN：</TD>"&_
"<TD CLASS=Table8><A HREF=" & Web_Const(3) & " target='_blank'>" & Web_Const(3) & "</A></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>創建時間：</TD>"&_
"<TD CLASS=Table8>" & Web_Const(9) & "</TD>"&_
"<TD CLASS=Table8>運行時間：</TD>"&_
"<TD CLASS=Table8>" & DateDiff("d",Web_Const(9),Now()) & " 天</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>站點狀態：</TD>"&_
"<TD CLASS=Table8 colspan=3>"
IF Web_Const(6)=1 THEN
strIfa = strIfa & "<FONT COLOR=#006600><B>正常運行</B></FONT>"
Else
strIfa = strIfa & "<FONT COLOR=#FF0000><B>關閉</B></FONT> 【 " & Web_Const(7) & " 】"
End IF
strIfa = strIfa & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>網站版權：</TD>"&_
"<TD CLASS=Table8>" & Web_Const(24) & "</TD>"&_
"<TD CLASS=Table8>備 案 號：</TD>"&_
"<TD CLASS=Table8>" & Web_Const(25) & "</TD>"&_
"</TR>"&_
"</TABLE></TD></TR></TABLE>"
Response.Write strIfa
Call Page_Spane(5)
Dim Count_Days,Count_DaypIP,Count_DaypAll,Count_DayyIP,Count_DayyAll,vonline,vonlineuser
Dim TodayUserReg,AllUserReg
Count_Days=DateDiff("d",Web_Const(59),Now())
Count_DaypIP=int(Web_Const(93)/Count_Days)
Count_DaypAll=int(Web_Const(94)/Count_Days)
Count_DayyIP=int(Web_Const(95)/Hour(Now()))*24
Count_DayyAll=int(Web_Const(96)/Hour(Now()))*24
Set Rs=server.createObject("Adodb.RecordSet")
Sql="select Visitors_IP from Tx_Visitors Where Visitors_Date>=DateAdd('n',-" & int(Web_Const(60)) & ",Now()) group by Visitors_IP"
Rs.open sql,Conn,1,1
vonline=Rs.Recordcount
Rs.Close
Set Rs=Nothing
Set Rs=server.createObject("Adodb.RecordSet")
Sql="select Visitors_IP from Tx_Visitors Where Visitors_User>0 And Visitors_Date>=DateAdd('n',-" & int(Web_Const(60)) & ",Now()) group by Visitors_IP"
Rs.open sql,Conn,1,1
vonlineuser=Rs.Recordcount
Rs.Close
Set Rs=Nothing
Dim TodayGuest,AllGuest
Dim TodayJob,AllJob,TodayJoby,AllJoby
Dim TodayProducts,AllProducts,TodayNews,AllNews,TodayDown,AllDown
TodayUserReg=Conn.Execute("Select count(*) from Tx_User Where DateDiff('d',User_regDate,Now())=0")(0)
AllUserReg=Conn.Execute("Select count(*) from Tx_User")(0)
TodayGuest=Conn.Execute("Select count(*) from Tx_Guest Where DateDiff('d',Guest_Date,Now())=0")(0)
AllGuest=Conn.Execute("Select count(*) from Tx_Guest")(0)
TodayJob=Conn.Execute("Select count(*) from Tx_Job Where DateDiff('d',Job_Date,Now())=0")(0)
AllJob=Conn.Execute("Select count(*) from Tx_Job")(0)
TodayJoby=Conn.Execute("Select count(*) from Tx_Joby Where DateDiff('d',Joby_Date,Now())=0")(0)
AllJoby=Conn.Execute("Select count(*) from Tx_Joby")(0)
TodayProducts=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=1 And DateDiff('d',Cret_Date,Now())=0")(0)
AllProducts=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=1")(0)
TodayNews=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=2 And DateDiff('d',Cret_Date,Now())=0")(0)
AllNews=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=2")(0)
TodayDown=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=3 And DateDiff('d',Cret_Date,Now())=0")(0)
AllDown=Conn.Execute("Select count(*) from Tx_Cret Where Cret_Class=3")(0)
strIfa = "<TABLE WIDTH=99% BORDER=0 ALIGN=center cellpadding=1 CELLSPACING=1 bgcolor=#4272D5><TR><TD bgcolor=#FFFFFF><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD ALIGN=center CLASS=Table3>相關信息統計</TD></TR></TABLE>"
strIfa = strIfa & "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<TR>"&_
"<TD WIDTH=16% HEIGHT=30 CLASS=Table8>開始統計時間：</TD>"&_
"<TD WIDTH=34% CLASS=Table8>" & Web_Const(59) & "</TD>"&_
"<TD WIDTH=16% CLASS=Table8>統計時間：</TD>"&_
"<TD CLASS=Table8>" & Count_Days & " 天</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>統計系統：</TD>"&_
"<TD CLASS=Table8 colspan=3>"
IF Web_Const(56)=1 THEN
strIfa = strIfa & "<FONT COLOR=#006600><B>已打開</B></FONT> 【 打開后會影響網站瀏覽速度 】"
Else
strIfa = strIfa & "<FONT COLOR=#FF0000><B>關閉</B></FONT>"
End IF
strIfa = strIfa & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>I P 統計：</TD>"&_
"<TD CLASS=Table8>今日：" & Web_Const(95) & " / 全部：" & Web_Const(93) & "</TD>"&_
"<TD CLASS=Table8>頁面刷新：</TD>"&_
"<TD CLASS=Table8>今日：" & Web_Const(96) & " / 全部：" & Web_Const(94) & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>平均日訪問：</TD>"&_
"<TD CLASS=Table8>IP：" & Count_DaypIP & " / PV：" & Count_DaypAll & "</TD>"&_
"<TD CLASS=Table8>預計今日訪問：</TD>"&_
"<TD CLASS=Table8>IP：" & Count_DayyIP & " / PV：" & Count_DayyAll & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>當前在線：</TD>"&_
"<TD CLASS=Table8>" & vonline & " 人</TD>"&_
"<TD CLASS=Table8>在線用戶：</TD>"&_
"<TD CLASS=Table8>" & vonlineuser & " 人</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 colspan=4 CLASS=Table9> 下面的網站的更新信息統計，您可直接點擊相關的鏈接進入快捷操作。</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>注冊用戶：</TD>"&_
"<TD CLASS=Table8><SPAN STYLE='WIDTH: 70%'>今日：" & TodayUserReg & " / 總數：" & AllUserReg & "</SPAN><SPAN STYLE='WIDTH: 30%'><A HREF=Aa_User.asp?Action=Manage&xSelect=TodayReg>查看新用戶</A></SPAN></TD>"&_
"<TD CLASS=Table8>在線留言：</TD>"&_
"<TD CLASS=Table8><SPAN STYLE='WIDTH: 70%'>今日：" & TodayGuest & " / 總數：" & AllGuest & "</SPAN><SPAN STYLE='WIDTH: 30%'><A HREF=Am_Guest.asp?Action=&xSelect=TodayAdd>查看今日留言</A></SPAN></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>論壇帖子：</TD>"&_
"<TD CLASS=Table8 colspan=3>"
Response.Write strIfa
TABLE_List="Tx_Board"
FileName="bbs_class"
Call Page_bbscount(0,1)
strIfa = "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>招聘信息：</TD>"&_
"<TD CLASS=Table8>今日：" & TodayJob & " / 總數：" & AllJob & "</TD>"&_
"<TD CLASS=Table8>應聘信息：</TD>"&_
"<TD CLASS=Table8>今日：" & TodayJoby & " / 總數：" & AllJoby & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>在線評論：</TD>"&_
"<TD CLASS=Table8 colspan=3>產品評論：今日：" & TodayProducts & " / 總數：" & AllProducts & " 新聞評論：今日：" & TodayNews & " / 總數：" & AllNews & " 軟件評論：今日：" & TodayDown & " / 總數：" & AllDown & "</TD>"&_
"</TR>"&_
"</TABLE></TD></TR></TABLE>"
Response.Write strIfa
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -