a_right.asp

整站源码jsp 有兴趣的可以看看

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：[e-mail]
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.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;'>&nbsp; <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>&nbsp; 下面的网站的更新信息统计，您可直接点击相关的链接进入快捷操作。</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()
%>