admin.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

&emsp;程序开发：淮海高科工作室<br>
&emsp;产品名称：淮海高科管理系统&emsp;[<font color=red><%=Edition%></font>]<br>
&emsp;产品负责：程序/美工/数据库设计：淮海高科</font></a><br>
&emsp;当前版本：Huaihi <%=Version%><br>
&emsp;联系电话：[phone]<br>
&emsp;电子信箱：[e-mail] <br>
&emsp;官方网站：<a href="http://www.Huaihi.com" target="_blank">http://www.Huaihi.com</a><br>


</tr><TR>
<tr><td class="hr"></td></tr><tr><td calss=bg>
<center>
Power By WEED Studio&nbsp; Copyright (c) 2002-2008 www.Huaihi.com. All Rights Reserved .</center>
</TD></TR> 
</table>
<table width="95%" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d  id=host style="position:absolute;left:50;top:50;width:550;height:300;display:none;">
<tr>
<td style="cursor:move" colspan="2" height="22" class=title onmousedown=MDown(host)><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;主机环境变量</b> 
<img onclick="document.all.host.style.display=(document.all.host.style.display =='none')?'':'none'" style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle></td>
</tr>
<tr class=bg><td height="25" align="center" width="57%">项目</td><td align="center">&nbsp;值</td></tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器的域名</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("server_name")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器的IP地址</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器操作系统</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("OS")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器解译引擎</td>
<td  height="25">&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器软件的名称及版本</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器正在运行的端口</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("server_port")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器CPU数量</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
</tr>

<tr class=bg>
<td width="57%">&nbsp;服务器Application数量</td>
<td height="25">&nbsp;<%=Application.Contents.Count%> 个</td>
</tr>

<tr class=bg>
<td height="25" width="57%">&nbsp;服务器Session数量</td>
<td >&nbsp;<%=Session.Contents.Count%> 个</td>
</tr>

<tr class=bg>
<td height="25" width="57%">&nbsp;请求的物理路径</td>
<td  height="25">&nbsp;<%=Request.ServerVariables("path_translated")%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;请求的URL</td>
<td width="66%" height="25">&nbsp;http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;服务器当前时间</td>
<td  height="25">&nbsp;<%=now()%>　</td>
</tr>
<tr class=bg>
<td height="25" width="57%">&nbsp;脚本连接超时时间</td>
<td height="25">&nbsp;<%=Server.ScriptTimeout%> 秒</td>
</tr>
</table>
<table width="95%" id="dll" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d style="position:absolute;left:50;top:50;width:550;height:300;display:none"><tr style="cursor:move"><td colspan="2" height="22" class=title onmousedown=MDown(dll)><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;组件支持情况</b><img style="position:absolute;right:2;top:5;cursor:hand" border="0" src="img/adminclose.gif" align=absMiddle onclick="document.all.dll.style.display=(document.all.dll.style.display =='none')?'':'none'"></td>
</tr>
<tr class=bg>
<td width="57%" height=25 align=center>&nbsp;组件名称</td><td width="41%" align=center>支持及版本</td>
</tr>
<%
Dim theInstalledObjects(16)
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) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "Scripting.FileSystemObject"
theInstalledObjects(8) = "adodb.connection"
theInstalledObjects(9) = "SoftArtisans.FileUp"
theInstalledObjects(10) = "SoftArtisans.FileManager"
theInstalledObjects(11) = "JMail.Message"
theInstalledObjects(12) = "CDONTS.NewMail"
theInstalledObjects(13) = "Persits.MailSender"
theInstalledObjects(14) = "LyfUpload.UploadFile"
theInstalledObjects(15) = "Persits.Upload.1"
theInstalledObjects(16) = "w3.upload"
For i=0 to 16
Response.Write "<TR class=bg><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 7
Response.Write "(FSO 文本文件读写)"
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(SA-FileUp 文件上传)"
case 10
Response.Write "(SA-FM 文件管理)"
case 11
Response.Write "(JMail 邮件发送)"
case 12
Response.Write "(WIN虚拟SMTP 发信)"
case 13
Response.Write "(ASPEmail 邮件发送)"
case 14
Response.Write "(LyfUpload 文件上传)"
case 15
Response.Write "(ASPUpload 文件上传)"
case 16
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
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
End if
else
%>
<HTML><HEAD><TITLE>后台登陆</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="img/admin.css" type=text/css rel=stylesheet>
<script>
var travel=true
var hotkey=<%=mypasskey%>
if (document.layers)
document.captureEvents(Event.KEYPRESS)
function mypass(e){
if(document.layers){
if(e.which==hotkey&&travel)
mypass.style.display=""
}
else if (document.all){
if(event.keyCode==hotkey)
document.all.mypass.style.display=""
}
}
document.onkeypress=mypass
function login(){
if (document.form1.adminname.value==""){alert("请输入用户名？");document.form1.adminname.focus();return false}
if (document.form1.adminpass.value==""){alert("请输入密码？");document.form1.adminpass.focus();return false} 
if (document.form1.getcode.value==""){alert("请输入验证码？");document.form1.getcode.focus();return false}
return true}
</script>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) scroll=no><br><br><br>
<table width="300" align=center border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="uptitle"  height="22"><td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp网站管理登陆
</b></td></tr>
<tr class="bg"><td><img src=img/adminlogin.gif border=0 align=absMiddle></td></tr><tr><td class="hr"></td></tr><TR>
<tr>
<TD height=25 align=center>
<form name="form1" method="post" action="admin.asp?action=login" onsubmit="return login()">
&emsp;用户名：<input type="text" name="adminname"  style=width:150px autocomplete="off"  class="yecao">
</td></tr>
<tr><td height=25 align=center>
&emsp;密&emsp;码：<input type="password" name="adminpass"  style=width:150px  class="yecao">
</td></tr>
<%if mypassopen="yes"	then%>
<tr  id=mypass style="display:none"><td height=25 align=center>
&emsp;二次码：<input type="password" name="adminpasspass"  style=width:150px  class="yecao" >
</td></tr>
<%end if%>
<tr><td height=25 align=center>
&emsp;认证码：<input name="code" type="text" size="13" maxlength="8" class="yecao">&nbsp;<img src="inc/code.asp"  align=absmiddle height=14 border=0><%call br%></td></tr><tr><td height=25 align=center>
&emsp;<input type="submit" name="Submit" value="登 录" class="adminbutton">&emsp;<input type="reset" name="reset" value="清 空" class="adminbutton">
</TD></TR>
<tr><td class="hr"></td></tr><TR>
<TD height=22 ALIGN=center><a href='http://www.Huaihi.com' target='_' style='color:#f00;font-weight:bold;'>淮海高科 www.Huaihi.com&nbsp;购买商业版请联系QQ：101101111</a></TD></TR>
</table>
</body></html>
<%end if
call closedata()%>