📄 show.asp

📁 OA企业智能办公自动化系统边缘特别版功能非常强大的OA系统 1.仿WINDOWS操作界面
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<!--#include file="conn.asp"-->
<!--#include file="cls_show.asp"-->
<!--#include file="skin.asp"-->
<%
Dim hxshow
set hxshow = New cls_show

Dim Action
Action=Request.QueryString("action")
Dim rs,IsPublic,ViewPass
set rs=hx.execute("select IsPublic,ViewPass from WebInfo where ID=1")
IsPublic = rs(0)
ViewPass = rs(1)
set rs=nothing
%>
<!--#include file="languages.asp"-->
<html>
<head>
<meta http-equiv="refresh" content="60">
<meta http-equiv="Content-Type" content="text/html; charset=<%=Lang.item("charset")%>">
<link href="style/style.css" rel="stylesheet" type="text/css">
<link href="style/style<%=skinid%>.css" rel="stylesheet" type="text/css">
<title><%=Lang.item("g_009")%></title></head>
<body leftmargin="0">
<%
if IsPublic=0 and Session(CacheName & "_ViewPass")<>"OK" then
	if Request.form("viewpass")="" then
		Call ShowForm
	elseif  IsPublic=0 and Request.form("viewpass")<>"" then
		if Request.form("viewpass")=viewpass then
			Session(CacheName & "_ViewPass")="OK"
		end if
		Response.redirect "show.asp"			
	end if
hx.ShowFooter
set hx=nothing
Response.end
end if

%>
<script src="js/fadeTicker.js" type="text/javascript"></script>
<script type="text/javascript">
function initFadeTicker()
{
	popupLoad.style.visibility='hidden'  //隐藏提示窗口

}
onload = initFadeTicker
</script>
<SCRIPT language=javascript src="js/mt_dropdownC.js"></SCRIPT>
<table width="768" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
              <tr align="center" class="TopLighNav1"> 
                <td width="11%"><a id=menu0 href="?action=main"><%=Lang.item("m_00")%></a></td>
                <td width="11%"><a id=menu1 href="?action=D"><%=Lang.item("m_10")%></a></td>
                <td width="11%"><a id=menu2 href="?action=PV"><%=Lang.item("m_20")%></a></td>
                <td width="11%"><a id=menu3 href="?action=R"><%=Lang.item("m_30")%></a></td>
                <td width="11%"><a id=menu4 href="?action=O"><%=Lang.item("m_40")%></a></td>
                <td width="11%"><a id=menu5 href="?action=Q"><%=Lang.item("m_50")%></a></td>
                <td width="11%"><a id=menu6 href="?action=I"><%=Lang.item("m_60")%></a></td>
                <td width="11%"><a id=menu7 href="?action=C"><%=Lang.item("m_70")%></a></td>
				<td width="11%"><a id=menu8 href="?action=<%=action%>&skinid=0"><%=Lang.item("m_80")%></a></td>
              </tr>
</table>
<SCRIPT language=javascript>

	if (mtDropDown.isSupported()) {

		var ms = new mtDropDownSet(mtDropDown.direction.down, 0, 0, mtDropDown.reference.bottomLeft);

		// menu : 0
		var menu0 = ms.addMenu(document.getElementById("menu0"));

		menu0.addItem(" <%=Lang.item("m_01")%>", "show.asp?action=main");
		menu0.addItem(" <%=Lang.item("m_02")%>", "show.asp?action=V");	
		menu0.addItem(" <%=Lang.item("m_03")%>", "show.asp?action=PV&ordernum=1");	
		//menu0.addItem(" 在线访客", "show.asp?action=Online");

		//var subMenu0 = menu0.addMenu(menu0.items[0]);
		//subMenu0.addItem(" 二级菜单","http://www.itlearner.com");


		// menu : 1
		var menu1 = ms.addMenu(document.getElementById("menu1"));
		menu1.addItem(" <%=Lang.item("m_11")%>", "show.asp?action=H");
		menu1.addItem(" <%=Lang.item("m_12")%>", "show.asp?action=D");
		menu1.addItem(" <%=Lang.item("m_13")%>", "show.asp?action=W");
		menu1.addItem(" <%=Lang.item("m_14")%>", "show.asp?action=M");
		menu1.addItem(" <%=Lang.item("m_15")%>", "show.asp?action=Y");

		// menu : 2
		var menu2 = ms.addMenu(document.getElementById("menu2"));
		menu2.addItem(" <%=Lang.item("m_21")%>", "show.asp?action=VT");
		menu2.addItem(" <%=Lang.item("m_22")%>", "show.asp?action=PV");

		// menu : 3
		var menu3 = ms.addMenu(document.getElementById("menu3"));
		menu3.addItem(" <%=Lang.item("m_31")%>", "show.asp?action=R");
		menu3.addItem(" <%=Lang.item("m_32")%>", "show.asp?action=S");
		menu3.addItem(" <%=Lang.item("m_33")%>", "show.asp?action=Where");		
			
		// menu : 4
		var menu4 = ms.addMenu(document.getElementById("menu4"));
		menu4.addItem(" <%=Lang.item("m_41")%>", "show.asp?action=O");
		menu4.addItem(" <%=Lang.item("m_42")%>", "show.asp?action=Width");
		menu4.addItem(" <%=Lang.item("m_43")%>", "show.asp?action=B");

		// menu : 5
		var menu5 = ms.addMenu(document.getElementById("menu5"));
		menu5.addItem(" <%=Lang.item("m_51")%>", "show.asp?action=Q")
		menu5.addItem(" <%=Lang.item("m_52")%>", "show.asp?action=SQ2");
		menu5.addItem(" <%=Lang.item("m_53")%>", "show.asp?action=SQ1");
		menu5.addItem(" <%=Lang.item("m_54")%>", "show.asp?action=SQ3");

		// menu : 6
		var menu6 = ms.addMenu(document.getElementById("menu6"));
		menu6.addItem(" <%=Lang.item("m_61")%>", "show.asp?action=I");
		menu6.addItem(" <%=Lang.item("m_62")%>", "show.asp?action=SI3");
		menu6.addItem(" <%=Lang.item("m_63")%>", "show.asp?action=SI2");
		menu6.addItem(" <%=Lang.item("m_64")%>", "show.asp?action=SI1");
		
		// menu : 7
		var menu7 = ms.addMenu(document.getElementById("menu7"));
		menu7.addItem(" <%=Lang.item("m_71")%>", "show.asp?action=C");
		menu7.addItem(" <%=Lang.item("m_72")%>", "http://www.itlearner.com/cutecounter/");
		menu7.addItem(" <%=Lang.item("m_73")%>", "http://www.itlearner.com/guestbook/");
		menu7.addItem(" <%=Lang.item("m_74")%>", "http://www.itlearner.com/");
		
		// menu : 8
		var menu8 = ms.addMenu(document.getElementById("menu8"));
		menu8.addItem(" <%=Lang.item("m_81")%>", "?action=<%=action%>&skinid=0");		
		menu8.addItem(" <%=Lang.item("m_82")%>", "?action=<%=action%>&skinid=1");
		menu8.addItem(" <%=Lang.item("m_83")%>", "?action=<%=action%>&skinid=2");
		menu8.addItem(" <%=Lang.item("m_84")%>", "?action=<%=action%>&skinid=3");
		menu8.addItem(" <%=Lang.item("m_85")%>", "?action=<%=action%>&skinid=4");
			
		mtDropDown.renderAll();
	}
init();
</SCRIPT>
<div name="loadpop" id="popupLoad" class="divcenter"> 
  <table width="200" border="0" cellspacing="0" cellpadding="5" class=popload>
    <tr> 
      <td align=center><p><font color="#000000"><%=Lang.item("g_010")%></p>
        <p><a href="http://www.itlearner.com" target="_blank">ITlearner</a> <a href="http://www.itlearner.com/cutecounter/" target="_blank">CuteCounter</a></p></td>
    </tr>
  </table>
</div>
<%

Dim query
query=hx.checkstr(Request("query"),25)

	'分页信息
	dim PageNo
	PageNo=Request.QueryString("PageNo")
	if PageNo="" or not isnumeric(PageNo) then
	PageNo=1
	else
	PageNo=int(PageNo)
	end if

ConnectionDatabase

select case Action 
case "main"
	call main
case "R"
	call referer
case "S"
	call RefSite
case "V"
	call LastRecord
case "H"
	call HourCount
case "D"
	call DayCount
case "W"
	call Weekcount
case "M"
	call MonthCount
case "Y"
	call YearCount
case "I"
	call IpCount
case "SI1"
	call SIpCount(1)
case "SI2"
	call SIpCount(2)
case "SI3"
	call SIpCount(3)
case "Where"
	call WhereCount
case "VT"
	call Page_VT	
case "PV"
	call Page_PV
case "Q"
	call Keyword
case "SQ1"
	call SQ1
case "SQ2"
	call SQ2
case "SQ3"
	call SQ3
case "O"
	call OsCount
case "B"
	call Browser
case "Width"
	call Width
case "C"
	call GetCode
case "Online"
	call Online
case else
	call main
end select
hx.ShowFooter
set hx=nothing

Function FormatNum(num,num2)
	if num=0 then
	FormatNum=0
	else
	FormatNum=FormatNumber(num,num2)
	end if
End Function

Function FormatTime(CurrentTime)
	if SelectedTimeZone = TimeZone then
		FormatTime=CurrentTime
	else
		FormatTime=DateAdd("h",SelectedTimeZone-TimeZone,CurrentTime)			
	end if
End Function


Sub ShowForm
	%>
	<table width="500" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
	  <tr class="tablebody1"><form name="form1" method="post" action="">
		<td><%=Lang.item("s_02")%>
        <input type="password" name="viewpass" class="input1">
		<input type="submit" name="Submit" value="<%=Lang.item("b_02")%>"></td>
		</form>
	  </tr>
	</table>
	<%
	End Sub
	Sub ShowQuery
	if IsPublic=2 or Session(CacheName & "_Admin")="OK" or Session(CacheName & "_ViewPass")="OK" then
	%>
	<table border="0" align="center" cellpadding="3" cellspacing="0" class="tableBorder2"><tr class="tablebody1"><form name="form" method="post" action="?action=<%=action%>"><td align="center"><%=Lang.item("s_01")%>
<input class="input1" name="query" type="text" id="query" size="25" maxlength="25" <%if query<>"" then response.write "value="""&query&""""%>><input type="submit" name="Submit" value="<%=Lang.item("b_01")%>"></td></form></tr></table>
	<%
	end if
	End Sub

	Sub MainTitle(str)
		Response.Write("<p align=center class=""menutitle"">:::::: " & str & " ::::::</p>")
	End Sub

	Sub Showinfo(str)
		dim Outstr
		Outstr = "<table width=500 border=0 align=center cellpadding=0 cellspacing=0><tr><td height=10></td></tr>"
		Outstr = Outstr & "<tr><td align=center>"
		Outstr = Outstr & str
		Outstr = Outstr & "</td></tr></table>"
		Response.write Outstr
	End Sub

Sub main
dim rs
dim startdate
dim day01,day02,day11,day12,day21,day22,day31,day32,day41,day42,Datenum,Month11,Month12
set rs=hx.execute("select top 1 CDate from CC_D order by id")
if not rs.eof  then
	StartDate=rs(0)
	Datenum=FormatNum(Now()-StartDate,1)
else
	StartDate=Date()
	Datenum=0
end if
set rs=nothing

set rs=hx.execute("select top 1 Visitor,PageView from CC_M order by CMonth desc")
if not rs.eof  then
	Month11=FormatNum(rs(0),0)
	Month12=FormatNum(rs(1),0)
else
	Month11=0
	Month12=0
end if
set rs=nothing

'if IsSqlDataBase = 1 then
'Dim Date1
'Date1=Date()
'set rs=hx.execute("select Visitor,PageView from CC_D where CDate='"&Date1&"'")
'else
'set rs=hx.execute("select Visitor,PageView from CC_D where CDate=Date()")
'end if
set rs=hx.execute("select Visitor,PageView from CC_D where CDate="&SqlDateString)

if not rs.eof then
	Day11=FormatNum(rs(0),0)
	Day12=FormatNum(rs(1),0)
else
	Day11=0
	Day12=0
end if	
set rs=nothing

if IsSqlDataBase = 1 then
Dim Date2
Date2=DateAdd("d",-1,Date())
set rs=hx.execute("select Visitor,PageView from CC_D where CDate='"&Date2&"'")
else
set rs=hx.execute("select Visitor,PageView from CC_D where CDate=DateAdd('d',-1,Date())")
end if
if not rs.eof then
	Day21=FormatNum(rs(0),0)
	Day22=FormatNum(rs(1),0)
else
	Day21=0
	Day22=0
end if	
set rs=nothing

set rs=hx.execute("select AVG(Visitor),AVG(PageView) from CC_D")
if not rs.eof then
	day41=rs(0)
	day42=rs(1)
	if not isnumeric(day41) then
		day41=0
	else
		day41=FormatNum(day41,0)
	end if
	if not isnumeric(day42) then
		day42=0
	else
		day42=FormatNum(day42,0)
	end if	
end if

Day31=FormatNum(Day11/(Now()-Date()),0)
Day32=FormatNum(Day12/(Now()-Date()),0)

Dim sql,sql2,rs2
sql="select Count(*) from CC_I where DateDiff("&TimeDiff(0)&",vtime,"&SqlNowString&")<"&OnlineTime
sql2="select Count(*) from CC_I where DateDiff("&TimeDiff(0)&",vtime,"&SqlNowString&")<"&OnlineTime*2

Dim OnlineNum
set rs=hx.execute(sql)
set rs2=hx.execute(sql2)
OnlineNum=(rs2(0)-rs(0))/2+rs(0)
if isnull(OnlineNum) then
OnlineNum=0
else
OnlineNum=FormatNum(OnlineNum,0)
end if

Day01=hx.execute("select Sum(Visitor) from CC_D")(0)
Day02=hx.execute("select Sum(PageView) from CC_D")(0)
if isnull(Day01) then
Day01=0
else
Day01=FormatNum(Day01,0)
end if
if isnull(Day02) then
Day02=0
else
Day02=FormatNum(Day02,0)
end if

Call MainTitle(Lang.item("m_01"))

set rs=hx.execute("select * from WebInfo where ID=1")
%>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><%=Lang.item("currentLang")%></td>
  </tr>
</table>
<br>
<table width="768" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr align="center" class=tablebody1 id="tabletitlelink"> 
    <th><%=Lang.item("g_001")%></th>
    <th><%=Lang.item("g_002")%></th>
    <th><%=Lang.item("g_003")%></th>
    <th><%=Lang.item("g_004")%></th>
    <th><%=Lang.item("g_005")%></th>
    <th><a href="admin.asp" target="_blank"><%=Lang.item("g_006")%></a></th>
  </tr>
  <tr align="center" class=tablebody1> 
    <td><%=rs("WebName")%></td>
    <td><%=rs("WebAdmin")%></td>
    <td><%=StartDate%> </td>
    <td><%=Datenum%></td>
    <td><%=OnlineNum%></td>
    <td><%if Application.Contents(CacheName & "_isStart")=1 then
	response.write Lang.item("g_071")
	else
	response.write Lang.item("g_072")
	end if
%></td>
  </tr>
  <tr class=tablebody2> 
    <td align="center"><%=Lang.item("g_007")%>&nbsp;</td>
    <td colspan="5"><%="<a href="&rs("WebUrl")&">"&rs("WebUrl")&"</a>"%></td>
  </tr>
  <tr class=tablebody1> 
    <td align="center"><%=Lang.item("g_008")%>&nbsp;</td>
    <td colspan="5"><%=rs("WebIntro")%></td>
  </tr>
</table>
<br>
<table width="768" border="0" align="center" cellpadding="3" cellspacing="1" class="tableBorder2">
  <tr>
    <th> 
    <th><%=Lang.item("g_011")%></th>
    <th><%=Lang.item("g_012")%></th>
    <th><%=Lang.item("g_013")%></th>
    <th><%=Lang.item("g_014")%></th>
    <th><%=Lang.item("g_015")%></th>
    <th><%=Lang.item("g_016")%></th>
    <th>     
  </tr>
  <tr align="center" class=tablebody1>
    <td><%=Lang.item("g_017")%></td>
    <td><%=Day11%></td>
    <td><%=Day21%></td>
    <td><%=Day31%></td>
    <td><%=Day41%></td>
    <td><%=Month11%></td>
    <td><%=Day01%></td>
    <td rowspan="2"><script src=<%=hx.baseurl%>mystat.asp></script>
    </td>
  </tr>
  <tr align="center" class=tablebody1>
    <td><%=Lang.item("g_018")%></td>
    <td><%=Day12%></td>
    <td><%=Day22%></td>
    <td><%=Day32%></td>
    <td><%=Day42%></td>
    <td><%=Month12%></td>
    <td><%=Day02%></td>
  </tr>
</table>
<br>
12 3 4 下一页
💿 文件大小 3222 K
👤 上传用户 yyjpu
📂 所属分类 OA系统
🏷️ 相关标签

#WINDOWS #办公自动化系统 #OA系统 #操作界面
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -