?? manage.asp
字號:
<!--#INCLUDE FILE="common.inc" -->
<%
if Session("user_id") = "" then
Response.Redirect "timeout.asp"
end if
%>
<%
Function Chked(YN)
' To Check Check Boxes
if YN = "true" then
Chked = "Checked"
else
Chked = ""
end if
End Function
Function IsTeacher(YN)
' To Check Check Boxes
if YN or YN = "true" then
IsTeacher = "教師"
else
IsTeacher = "學生"
end if
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel=stylesheet type=text/css href='style.css'>
<script language="JavaScript">
<!--
function WinOpen(url) {
var AtWnd = window.open(url,"PopWindow","toolbar=no,directories=no,menubar=no,location=no,status=no,scrollbars=no,resizable=no,copyhistory=no,width=500,height=350");
if ((document.AttachForm.window != null) && (!AtWnd.opener)) {
AtWnd.opener = document.AttachForm.window;
AtWnd.focus();
}
}
function doConfirm()
{
if (window.confirm("確實要刪除嗎？"))
document.forms[0].submit();
}
// -->
</script>
</head>
<body>
<%
if getUserLevel(session("user_id"))<3 then
GO_Result "你沒有權限進行管理!", false, "javascript:history.back()"
Response.End
end if
set conn=server.createobject("adodb.connection")
conn.open ConnString
mode=request.QueryString("mode")
If mode="" then
if session("manage_mode") <> "" then
mode = session("manage_mode")
else
mode=1
end if
end if
session("manage_mode")=mode
m=request.Form("m")
%>
<table width="760" border="0" align="center" height="320" cellspacing="0" cellpadding="0">
<tr>
<td width="118" valign="top" height="317">
<table width="100%" border="0" height="300" cellspacing="0" cellpadding="0">
<tr valign="top">
<td height="320">
<table width="100%" border="0">
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=1 then%>
登錄信息
<%else%>
<a href="manage.asp?mode=1">登錄信息</a>
<%end if%>
</div></td>
</tr>
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=2 then%>
瀏覽記錄
<%else%>
<a href="manage.asp?mode=2">瀏覽記錄</a>
<%end if%>
</div></td>
</tr>
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=3 then%>
用戶管理
<%else%>
<a href="manage.asp?mode=3">用戶管理</a>
<%end if%>
</div></td>
</tr>
<tr bgcolor="#CCCCFF">
<td height="25"><div align="center">
<% if mode=4 then%>
數據備份
<%else%>
<a href="manage.asp?mode=4">數據備份</a>
<%end if%>
</div></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="640" valign="top" height="317" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="3" style="border: 1px solid rgb(0,0,0)" height="320" bgcolor="<% =TableBgColor %>">
<tr valign="top" align="center">
<td> <br>
<%if m = "" then %>
<form method="post" name="AttachForm" action="manage.asp">
<table width="90%" border="0">
<tr align="center" valign="top">
<td height="43">
<% Select Case mode
case 1
'## 打開數據庫連接
strSql ="SELECT * FROM Login order by L_Date"
set rs=server.createobject("adodb.recordset")
rs.cachesize=Pagesize
rs.open strSql,conn,3
mypage=request.QueryString("pageno")
If mypage="" then
if session("manage_pageno1") <> "" then
mypage = session("manage_pageno1")
else
mypage=1
end if
end if
session("manage_pageno1")=mypage
%>
<table width="100%" border="0" cellspacing="2">
<tr bgcolor="#9999FF">
<td width="10">
<div align="center">選擇</div>
</td>
<td width="60">
<div align="center">姓名</div>
</td>
<td width="20%">
<div align="center">登錄類型</div>
</td>
<td width="20%">
<div align="center">用戶IP地址</div>
</td>
<td width="25%">
<div align="center">時間</div>
</td>
</tr>
<%
'顯示所有login event
If rs.Eof or rs.Bof then
' No items found in DB
Response.Write "<tr><td> </td><td collspan=4>沒有記錄！</td></tr>"
Else
showBtn="true"
rs.movefirst
rs.pagesize=Pagesize
maxpages=cint(rs.pagecount)
if cint(mypage) > maxpages then
mypage=maxpages
session("manage_pageno1")=mypage
end if
rs.absolutepage=mypage
rec = 1
do until rs.Eof or rec > Pagesize '## Display Forum
if rs("L_Type") = "合法" then
CColor = AltForumCellColor
else
CColor = "#FF3C00"
End if
Response.Write "<tr>"
Response.Write "<td width='10' bgcolor='" & CColor & "' valign='top' align='center'><input type='checkbox' name='SelectedID' value='" & rs("Login_ID") & "'" & Chked(request.QueryString("a")) & "></td>"
Response.Write "<td width='60' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & rs("L_Name") & "</font></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & rs("L_Type") & "</font></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & rs("L_IP") & "</font></td>"
Response.Write "<td width='25%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='1'>" & rs("L_Date") & "</font></td>"
Response.Write "</tr>"
rs.MoveNext
rec = rec + 1
loop
End If
rs.close
set rs=nothing
%>
</table>
<% case 2
'## 打開數據庫連接
strSql ="SELECT * FROM Events order by L_Visit_Date"
set rs=server.createobject("adodb.recordset")
rs.cachesize=Pagesize
rs.open strSql,conn,3
mypage=request.QueryString("pageno")
If mypage="" then
if session("manage_pageno2") <> "" then
mypage = session("manage_pageno2")
else
mypage=1
end if
end if
session("manage_pageno2")=mypage
%>
<table width="100%" border="0" cellspacing="2">
<tr bgcolor="#9999FF">
<td width="10">
<div align="center">選擇</div>
</td>
<td width="20%">
<div align="center">姓名</div>
</td>
<td width="15%">
<div align="center">事件類型</div>
</td>
<td width="20%">
<div align="center">當前頁面</div>
</td>
<td width="20%">
<div align="center">前一頁面</div>
</td>
<td width="30%">
<div align="center">時間</div>
</td>
</tr>
<%
'顯示所有event
If rs.Eof or rs.Bof then
' No items found in DB
Response.Write "<tr><td> </td><td collspan=5>沒有記錄！</td></tr>"
Else
showBtn="true"
rs.movefirst
rs.pagesize=Pagesize
maxpages=cint(rs.pagecount)
if cint(mypage) > maxpages then
mypage=maxpages
session("manage_pageno2")=mypage
end if
rs.absolutepage=mypage
i=0
rec = 1
do until rs.Eof or rec > Pagesize '## Display Forum
if i = 0 then
CColor = AltForumCellColor
else
CColor = ForumCellColor
End if
Response.Write "<tr>"
Response.Write "<td width='10' bgcolor='" & CColor & "' align='center'><input type='checkbox' name='SelectedID' value='" & rs("Log_ID") & "'" & Chked(request.QueryString("a")) & "></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & getUserName(rs("L_Visited_By")) & "</font></td>"
Response.Write "<td width='15%' bgcolor='" & CColor & "' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & rs("L_Event") & "</font></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'><a href='" & rs("L_ScriptName") & "?" & rs("L_QueryString") & "' target='_blank'>" & rs("L_ScriptName") & "?" & rs("L_QueryString") & "</a></font></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'><a href='" & rs("L_Referer") & "' target='_blank'>" & rs("L_Referer") & "</a></font></td>"
Response.Write "<td width='30%' bgcolor='" & CColor & "' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='1'>" & rs("L_Visit_Date") & "</font></td>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -