📄 index.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="login_menu.asp" -->
<html>
<head>
<title>25175学生成绩查询管理系统-V2.8版</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Description" content="asp-学生信息管理，25175学生成绩管理系统,学生统计成绩、网
站推广、管理审核学生信息管理、教职工基本信息修改、原创asp、教职工基本信息打印,学生程序管理.学校成绩管理系统
教师工资管理系统！">
<meta name="wordkey" content="教职工工信息查询-学生成绩查询-学期总评成绩录入-SP-程序定制-代码基地-ASP原创代码">
<meta name="keyword" content="25175-你我一起舞-你我一起玩-网站推广-网站制作-意顺设计-SP-程序定制-代码基地-ASP原创代码">
<meta name="keywords" content="25175asp--欢迎光临国内最实用的原创ASP网站">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="25175com_221.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE2 {color: #0033CC}
-->
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!-- ImageReady Slices (25175_sub2.psd) -->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td background="images/index_02.gif"><table width="898" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="top.asp" -->
<table width="898" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="202" valign="top"><%call login()%></td>
<td width="696" valign="top"><table width="695" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/index_15.gif" width="695" height="48" alt=""></td>
</tr>
<tr>
<td><table width="695" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32"><img src="images/index_17.gif" width="32" height="579" alt=""></td>
<td valign="top" bgcolor="#FFFFFF"><table width="619" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><table width="619" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="340"> </td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"><div align="right"><img src="images/index_19.gif" width="6" height="20" alt=""></div></td>
<td width="93%" bgcolor="#E4E7DB"> <a href="index.asp">首页</a> > <a href="index.asp">管理统计</a> > 学生统计</td>
<td width="3%"><img src="images/index_21.gif" width="7" height="20" alt=""></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="80" valign="bottom"><table width="97%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><img src="images/index_30.gif" width="6" height="70" alt=""></div></td>
<td width="600" background="images/index_31.gif"><table width="158" height="70" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom" background="images/index_32.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="41%"> </td>
<td width="59%" height="35" valign="top"><strong>学生统计</strong></td>
</tr>
</table></td>
</tr>
</table></td>
<td><div align="center"><img src="images/index_34.gif" height="70" alt=""></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="419" valign="top">
<%
Dim theInstalledObjects(17)
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) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload"
'检查组件是否被支持
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
'检查组件版本
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function
%>
<br>
<br>
<table border=0 width=100% cellspacing=0 cellpadding=0 bgcolor="#96B9DC">
<tr><td>
<table border=0 width=100% cellspacing=1 cellpadding=0>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器名</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("SERVER_NAME")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器IP</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器端口</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器时间</td>
<td bgcolor="#DBE7F3"> <%=now%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> IIS版本</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 脚本超时时间</td>
<td bgcolor="#DBE7F3"> <%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 本文件路径</td>
<td bgcolor="#DBE7F3"> <%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器CPU数量</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器解译引擎</td>
<td bgcolor="#DBE7F3"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr bgcolor="#EEFEE0" height=18>
<td height="25" align=left bgcolor="#DBE7F3"> 服务器操作系统</td>
<td bgcolor="#DBE7F3"> <%=Request.ServerVariables("OS")%></td>
</tr>
</table>
</td></tr>
</table>
</td>
</tr>
<tr>
<td height="18"><div align="center"><img src="images/index_69.gif" width="43" height="12" alt=""><img src="images/index_70.gif" width="5" height="12" alt=""> 1 / 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 <img src="images/index_72.gif" width="5" height="12" alt=""><img src="images/index_73.gif" width="43" height="12" alt=""> GOTO页数:[802]</div></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><img src="images/index_78.gif" alt="" width="620" height="24"></td>
</tr>
</table></td>
<td width="43"><img src="images/index_22.gif" width="43" height="579" alt=""></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><!--#include file="bottom.asp" -->
</td>
</tr>
</table></td>
</tr>
</table>
<!-- End ImageReady Slices -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -