admin.asp

全能学校管理网站源码,小草网络提供,下载试用下

</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><%call br%>
<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
%>
<br>
<%elseif request("action")="help" then%>
<link rel="STYLESHEET" type="text/css" href="img/admin.css">
<table width="100%" align=center  border="0" cellpadding="0" cellspacing="0" rules=none class=3d><tr class="title"  height="22">
<td><b>&nbsp;<img src=img/ie.gif border=0 width=15 height=15 align=absMiddle>&nbsp;站长使用帮助</td></tr>
<tr class=bg height="100"><td STYLE="BACKGROUND:#444444;PADDING:0PX"><img src=img/adminwelcome.gif border=0></td></tr>
<tr><td class="hr"></td></tr>
<tr>
<td calss=bg style=line-height:180%;padding:0px;margin:0px>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于增加记录？
<li>增加记录前必须先要添加栏目分类。
<li>增加记录前必须要把相关的选项添完。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于频道和菜单？
<li>添加频道后要把频道地址插入到菜单管理。
<li>增加记录前必须要把相关的选项添完。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于皮肤管理？
<li>皮肤系统是随风本人的原创制作，可以无限制的增加皮肤。<br>您只要在官方下载皮肤后直接上传到skin文件夹，上传成功后即到后台添加皮肤名称和皮肤地址，这样就可以使用该皮肤了！
<li>默认皮肤要在网站设置里修改！
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于用户管理？
<li>您可以任意查看用户相关数据。
<li>可以为用户增加点数！
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于数据库管理？
<li>可以实现在线数据库压缩、备份、恢复。
<li>数据库可以初始化，就是把记录清空！
<li>您应该间隔2-3天把数据库压缩一下，这样有助于您的网站运行效率！压缩前尽量备份一下，避免意外发生。
<li>数据库操作器如果您要升级的时候就用，如果您不升级数据库就把该文件删除或则改名子，这样可以保证您网站的安全。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>怎样修改数据库路径？
<li>第一步：在INC目录下有个CONN。ASP，这个是数据库连接文件里面可以修改。
<li>第二步：如果您的虚拟主机支持MDB文件防下载，那么就使用MDB后缀文件，如果不是就使用你任意的后缀如：[xxx.#%$&@?]！其中XXX为文件名，#%$&@?为后缀扩展名。还有尽量把数据库文件文件夹设置结构深一点如：data/jinzhe/888/xxx.#%$&@?.这样就可以防止数据库下载。
</ul>
<ul style=list-style-type:square;padding-left:15px;margin:3px;padding-top:0px;pading-bottom:0px;>
<li style=color:red>关于数据库的压缩？
<li>可以实现在线数据库压缩、备份、恢复。
<li>数据库可以初始化，就是把记录清空！
</ul>
</tr><TR>
<tr><td class="hr"></td></tr><tr><td calss=bg>
<center><br>
58818.cn&nbsp;<br>
Copyright (c) 2006-2008 www.58818.cn. All Rights Reserved .</center>
<br>
</TD></TR> 
</table>
<%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="web58818">
</td></tr>
<tr><td height=25 align=center>
&emsp;密&emsp;码：<input type="password" name="adminpass"  style=width:150px  class="web58818">
</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="web58818" >
</td></tr>
<%end if%>
<tr><td height=25 align=center>
&emsp;认证码：<input name="admincode" type="text" size="13" maxlength="8" class="web58818">&nbsp;<img src="inc/CMS-CODE.asp"  id="GetCodePic" align=absmiddle height=14 border=0><script language=jscript>document.getElementById('GetCodePic').src='inc/CMS-CODE.asp?rnd='+Math.random();</script><%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>&copy;2006-2008 Power By <a href=http://www.58818.cn target=_blank>58818.cn</a> &nbsp;</TD></TR>
</table>
</body></html>
<%end if
call closedata()%>