⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_first.asp

📁 培训学员管理系统
💻 ASP
字号:
<!--#include file="conn_fj16.asp" -->
<html>
<head>
<style type="text/css">

<!--
table {
	word-break:break-all;
}
.STYLE2 {color: #FF0000}
.STYLE3 {font-size: 12px}
.STYLE4 {font-size: 12px; color: #FF0000; }
body {
	margin-left: 0px;
	margin-right: 0px;
	margin-bottom: 2px;
	background-color: #39867b;
	margin-top: 0px;
	 SCROLLBAR-FACE-COLOR: #c6ebde;
	 SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; 
	 SCROLLBAR-SHADOW-COLOR: #39867b; 
	 SCROLLBAR-3DLIGHT-COLOR: #39867b; 
	 SCROLLBAR-ARROW-COLOR: #330000; 
	 SCROLLBAR-TRACK-COLOR: #e2f3f1; 
	 SCROLLBAR-DARKSHADOW-COLOR: #ffffff;
}
.STYLE13 {color: #0000FF; font-size: 14px; }
body,td,th {
	font-size: 12px;
}
.STYLE17 {color: #006600}
a:link {
	color: #006600;
	text-decoration: none;
}
a:visited {
	color: #0000FF;
	text-decoration: none;
}
a:hover {
	color: #FF0000;
	text-decoration: underline;
}
a:active {
	color: #99FF66;
	text-decoration: none;
}
.STYLE5 {color: #000000}
-->
</style>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style18 {font-size: 24px}
-->
</style>
</head>
<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<p>&nbsp;</p>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>  </td>
  </tr>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr> 
      <th height=21 colspan="2" sytle="line-height:150%">【系统信息】</th>
    </tr>
    <tr> 
      <td width="47%"  class=forumRow>服务器类型:<%
Function testObject(str)
On Error Resume Next
testObject = False
Err = 0
Dim TestObj
Set TestObj = Server.CreateObject(str)
If 0 = Err Then testObject = True
Set TestObj = Nothing
Err = 0
End Function

Function GetFileSize(file)
   Dim fso,fs,GetFile
   On Error Resume Next
   Set Fso = Server.createobject("scripting.filesystemobject")
   Set GetFile=fso.getfile(server.mappath(file))
   GetFileSize=GetFile.size
   Set getfile=nothing
   Set fso=nothing
End Function
%>
<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) </td>
      <td width="53%"  class=forumRowHighlight>脚本解释引擎:      <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
    </tr>
    <tr> 
      <td class=forumRow>站点物理路径:<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
      <td class=forumRowHighlight>数据库使用: Access      </td>
    </tr>
  </tbody>
</table>
<br>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr> 
      <th height=21 colspan="2" sytle="line-height:150%">【其他信息】</th>
    </tr>
    <tr> 
      <td width="47%"  class=forumRow><span class="forumRowHighlight">程序开发:付淑娟</span></td>
      <td width="53%"  class=forumRowHighlight><span class="forumRow">QQ:258176754 </span></td>
    </tr> 
  </tbody>
</table>
 
<p align="center" class="style18">&nbsp; </p>
<p align="center" class="style18">&nbsp;</p>
<p align="center" class="style18">&nbsp;</p>
<p align="center" class="style18">欢迎使用培训班学员管理系统</p>
</body>
</html>

⌨️ 快捷键说明

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