📄 member.asp
字号:
<html>
<head>
<title>员工后台中心</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<link rel="stylesheet" href="admin/admin.css" type="text/css">
<style type="text/css">.navPoint {COLOR: white; CURSOR: hand; FONT-FAMILY: Webdings; FONT-SIZE: 9pt}</style>
<style>
BODY {
BACKGROUND: #799ae1; MARGIN: 0px;
}
.sec_menu {
BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
.menu_title SPAN {
FONT-WEIGHT: bold; LEFT: 8px; COLOR: #215dc6; POSITION: relative; TOP: 2px
}
.menu_title2 SPAN {
FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
.style1 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
</style>
<script>
function switchSysBar(){
if (switchPoint.innerText==3){
switchPoint.innerText=4
document.all("frmTitle").style.display="none"
}else{
switchPoint.innerText=3
document.all("frmTitle").style.display=""
}}
</script>
</head>
<body text="#000000" leftmargin="0" topmargin="0" scroll="no">
<%
select case Request("menu")
case ""
index
case "left"
left
case "top"
top
case "top2"
top2
end select
sub top
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td class="a1" height="20" align="center"><script language="javascript">
<!--
now = new Date()
hour = now.getHours()
if (hour < 12) {
document.write("现在时间是： " + now.toLocaleString())
} else if (hour < 18){
document.write("现在时间是： " + now.toLocaleString())
} else if (hour >= 18) {
document.write("现在时间是： " + now.toLocaleString())
}
// --></script></td>
</tr>
</table>
<%
end sub
sub top2
Dim theInstalledObjects(18)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "Persits.Upload"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.Message"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "w3.upload"
%>
<table cellpadding="4" cellspacing="1" border="0" width="70%" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><b>服务器基本参数</b></td>
</tr>
<tr class="a4">
<td>站点物理路径：<%=server.MapPath("..")%>\</td>
</tr>
<tr class="a4">
<td>服务器域名：<%=Request.ServerVariables("server_name")%>
/ <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr class="a4">
<td>服务器软件的名称：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr class="a4">
<td>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr class="a4">
<td>ACCESS 数据库路径：<%=db%></td>
</tr>
<tr class="a4">
<td>FSO 文本读写：
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>Aspupload 文件上传：
<%If Not IsObjInstalled(theInstalledObjects(11)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>Jmail 组件支持：
<%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
<tr class="a4">
<td>CDONTS 组件支持：
<%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
<b>×</b>
<%else%>
<b>√</b>
<%end if%></td>
</tr>
</table>
<br>
<table width="70%" border="0" align="center" cellpadding="4" cellspacing="1" class="a2">
<tr class="a1">
<td height="25" align="center">系统版本信息</td>
</tr>
<tr class="a4">
<td><p>◇ 工资系统 </p>
<p>◇ <a href="http://www.cqwu.edu.cn" target="_blank">重庆文理学院</a> </p>
<p>◇ 制作人：07计科 <br>
</p></td>
</tr>
</table>
<br>
<br>
<%
end sub
sub left
%>
<div style="height:100%;OVERFLOW:auto">
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td valign="bottom" height="42">
<img height="38" src="admin/menu/title.gif" width="145"></td>
</tr>
<tr>
<td height="25" align="center" background="admin/menu/title_bg_quit.gif" class="menu_title" onMouseOver="this.className='menu_title2';" onMouseOut="this.className='menu_title';">
<b><font color="215DC6"></b><a href="login.asp?user=out" target="_top" onClick="return confirm('确定要退出吗？');">退出管理中心</a></td>
</tr>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td class="menu_title" id="menuTitle2" onMouseOver="this.className='menu_title2';" onClick="showsubmenu(1)" onMouseOut="this.className='menu_title';" style="cursor:hand" background="admin/menu/admin_left_2.gif" height="25">
<span>会员管理中心</span> </td>
</tr>
<tr>
<td id="submenu1" style="DISPLAY: none">
<div class="sec_menu" style="WIDTH: 145px">
<table width="131" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td width="125"><div align="left"><a href="user.asp?menu=gonggao" target="main">1.查看管理公告</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="user.asp?menu=user" target="main">2.查看个人信息</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="user.asp?menu=gbook" target="main">3.查看我的留言</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="user.asp?menu=gbook2" target="main">4.发送我的留言</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="user.asp?menu=gbook2" target="main">5.</a><a href="user.asp?menu=dao" target="main">上班下班签到</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="jiesuan.asp" target="main">6.工资结算</a><a href="jiesuan.asp" target="main"></a></div> </td>
</tr>
<tr>
<td><div align="left"><a href="user.asp?menu=jielist" target="main">7.工资清单</a></div></td>
</tr>
<tr>
<td><div align="left"><a href="login.asp?user=out" target="_self">8.退出后台</a></div></td>
</tr>
</table>
</div>
<br> </td>
</tr>
</table>
<br>
<table cellspacing="0" cellpadding="0" width="145" align="center">
<tr>
<td class="menu_title" id="menuTitle1" onMouseOver="this.className='menu_title2';" onMouseOut="this.className='menu_title';" background="admin/menu/admin_left_9.gif" height="25">
<span>系统信息</span> </td>
</tr>
<tr>
<td>
<div class="sec_menu" style="WIDTH: 145px">
<table cellspacing="0" cellpadding="0" width="135" align="center">
<tr>
<td height="20" align="center"><span class="style1">工资管理系统</span></td>
</tr>
</table>
</div>
</td>
</tr>
</table><br>
</div>
<script>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</script>
<%
end sub
sub index
%>
<table border="0" cellpadding="0" cellspacing="0" height="100%" width="100%">
<tr>
<td align="middle" id="frmTitle" nowrap valign="center" name="frmTitle">
<iframe frameborder="0" id="carnoc" name="carnoc" scrolling="no" src="?menu=left" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 170px; Z-INDEX: 2">
</iframe></td>
<td class="a2" style="WIDTH: 9pt">
<table border="0" cellpadding="0" cellspacing="0" height="100%">
<tr>
<td style="HEIGHT: 100%" onClick="switchSysBar()">
<font style="FONT-SIZE: 9pt; CURSOR: default; COLOR: #ffffff">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<span class="navPoint" id="switchPoint" title="关闭/打开左栏">3</span><br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
屏幕切换 </td>
</tr>
</table>
</td>
<td style="WIDTH: 100%">
<iframe frameborder="0" name="top" scrolling="no" src="?menu=top" style="HEIGHT: 4%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe>
<iframe frameborder="0" id="main" name="main" scrolling="yes" src="?menu=top2" style="HEIGHT: 96%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1">
</iframe></td>
</tr>
</table>
</center>
</html>
<%
end sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -