📄 admin.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Class_public.asp"-->
<!--#include file="Inc/Class_User.asp"-->
<!--#include file="Inc/Class_Html.asp"-->
<%
dim Cnwy,Cnwy_public
set Cnwy_public=new CnwyAsp_Public
set Cnwy= new CnwyAsp_User
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Cnwy_public.title%></title>
</head>
<%
Select Case request.querystring("action")
case "left.asp"
call left()
case "main.asp"
call main()
case else
call index()
end select
%>
<%sub left()%>
<style type="text/css">
<!--
body,td,th {
font-size: 10pt;
color: #FFFFFF;
}
body {
background-color: #6699FF;
}
a:link {
text-decoration: none;
color: #FFFFFF;
}
a:visited {
text-decoration: none;
color: #FFFFFF;
}
a:hover {
text-decoration: none;
color: #FFFFFF;
}
a:active {
text-decoration: none;
color: #FFFFFF;
}
.style2 {
font-size: 10pt;
color: #FFFFFF;
font-weight: bold;
}
-->
</style>
<body>
<table width="0" border="0" align="center" cellpadding="0" cellspacing="0">
<%Cnwy.menu()%>
</table>
</body>
<%
end sub
sub main()%>
<link href="Inc/admin.css" rel="stylesheet" type="text/css">
<body>
<%
dim sql,rs,Cnwy_public,master
set Cnwy_public=new CnwyAsp_public
sql="select * from CnwyAsp_Admin where user='"&request.cookies("user")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#C8C8C8">
<tr>
<td colspan="2"><div align="center">欢迎<font color="#3399FF"><%=rs("name")%></font>来到<font color="#3399FF"><%=Cnwy_public.title%></font></div></td>
</tr>
<tr>
<td width="136">当前的时间是:</td>
<td width="301"><%=now()%> <%=weekdayname(weekday(now()))%></td>
</tr>
<tr>
<td>您本次使用的IP:</td>
<td><%=Request.Servervariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td>您登陆的次数为:</td>
<td><%=rs("login")%></td>
</tr>
<tr>
<td>管理员类型:</td>
<td><%if rs("type")="superadmin" then
response.write("系统管理员")
else
response.write("信息管理员")
end if%></td>
</tr>
<tr>
<td>您的管理权限:</td>
<td>|<%if rs("type")="superadmin" then
master="系统管理权限"
else
if instr(rs("master"),"A")<>0 then
master="编写权|"
end if
if instr(rs("master"),"B")<>0 then
master=master&"审批权|"
end if
if instr(rs("master"),"C")<>0 then
master=master&"审核权|"
end if
if rs("master")="" then
master="暂时没有任何权限"
end if
end if
response.write(master)
rs.close
sql="select * from CnwyAsp_Massage where to='"&request.cookies("user")&"'"
rs.open sql,conn,1,1
%></td>
</tr>
<tr>
<td>您信箱里的信息为:</td>
<td><%=rs.recordcount%></td>
</tr>
<tr>
<td>当前系统共有假条:</td>
<td><%rs.close
sql="select * from CnwyAsp_Vacation"
rs.open sql,conn,1,1
response.write(rs.recordcount)
rs.close%></td>
</tr>
<%if Cnwy_public.duty=true then
sql="select * from CnwyAsp_duty where id="&weekday(now())&""
rs.open sql,conn,1,1
with response
.write("<tr><td>今天值班审批员:</td>")
.write("<td>"&rs("shenpi")&"</td></tr>")
.write("<tr><td>今天值班审核员:</td>")
.write("<td>"&rs("shenhe")&"</td></tr>")
end with
rs.close
end if
set rs=nothing%>
<tr>
<td colspan="2"><div align="center">客户端有关参数</div></td>
</tr>
<tr>
<td height="19">当前您系统信息:</td>
<td><%
info=Request.ServerVariables("HTTP_USER_AGENT")
IF instr(info,"NT 6.0")>0 Then
system="Windows 2003"
ElseIf InStr(Info,"NT 5.1")>0 Then
System="Windows XP"
ElseIf InStr(Info,"NT 5.0")>0 Then
System="Windows 2000"
ElseIf InStr(Info,"NT 4")>0 Then
System="Windows NT"
ElseIf InStr(Info,"98")>0 Then
System="Windows 98"
ElseIf InStr(Info,"Me")>0 Then
System="Windows Me"
ElseIf InStr(Info,"95")>0 Then
System="Windows 95"
Else
System="未知的操作系统!"
End if
response.write(System)
%></td>
</tr>
<%
dim ie
set ie=server.createobject("mswc.browsertype")
%>
<tr>
<td>当前使用的浏览器:</td>
<td><%=ie.browser%></td>
</tr>
<tr>
<td>浏览器的版本号:</td>
<td><%=ie.version%></td>
</tr>
<tr>
<td>浏览器支持COOKIES：</td>
<td><%if ie.cookies=true then response.write("支持") else response.write("不支持") end if%></td>
</tr>
<tr>
<td>浏览支持VBSCRIPT:</td>
<td><%if ie.VBscript=true then response.write("支持") else response.write("不支持") end if%></td>
</tr>
<tr>
<td>浏览支持JSCRIPT:</td>
<td><%if ie.JavaScript=true then response.write("支持") else response.write("不支持") end if%></td>
</tr>
<tr>
<td>浏览支持ActiveX控件:</td>
<td><%if ie.ActiveXControls=true then response.write("支持") else response.write("不支持") end if%></td>
</tr>
<%set ie=nothing%>
<tr>
<td colspan="2"><div align="center">服务器端有关参数</div></td>
</tr>
<tr>
<td>服务器名:</td>
<td><%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr>
<td>服务器IP:</td>
<td><%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr> <tr>
<td>服务器端口:</td>
<td><%=Request.ServerVariables("SERVER_PORT")%></td>
</tr> <tr>
<td>服务器时间:</td>
<td><%=now%></td>
</tr> <tr>
<td>IIS版本:</td>
<td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr> <tr>
<td>脚本超时时间:</td>
<td><%=Server.ScriptTimeout%> 秒</td>
</tr> <tr>
<td>服务器CPU数量:</td>
<td><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr> <tr>
<td>服务器解译引擎:</td>
<td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr> <tr>
<td>服务器操作系统:</td>
<td><%=Request.ServerVariables("OS")%></td>
</tr>
<td colspan="2"><div align="center">程序相关内容</div></td>
<tr>
<td>开发单位:</td>
<td><a href="http://www.pbf2g.com" target="_blank">河南省宝丰第二高级中学</a>(www.pbf2g.com)</td>
</tr>
<tr>
<td>程序编写:</td>
<td>王铮(Cnwy)QQ32940696</td>
</tr>
<tr>
<td>辅导老师:</td>
<td>杜伟,赵东红</td>
</tr>
<tr>
<td>注意:</td>
<td>本程序版权归本作者所有翻版必究</td>
</tr>
<td colspan="2"><div align="center"> Copyright © 2005 <a href="http://www.pbf2g.com/Vacation/" target="_blank">CnwyAsp</a> All rights Reserved <br>
授权给:<a href="<%=Cnwy_public.url%>" target="_blank"><%=Cnwy_public.title%>使用</div></td>
</table>
</body>
<%end sub
sub index()%>
<frameset rows="*" cols="180,*" framespacing="0" frameborder="NO" border="0">
<frame src="admin.asp?action=left.asp" name="left" scrolling="NO" noresize>
<frame src="admin.asp?action=main.asp" name="main">
</frameset>
<noframes><body>
</body></noframes>
<%end sub%>
</html>
<%
set cnwy=nothing
set Cnwy_public=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -