📄 admin_other.asp
字号:
<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/bbs.css rel=stylesheet>
<br><center>
<p></p>
<body background=images/bei.gif>
<%
select case Request("menu")
case "discreteness"
discreteness
case "log"
log
case "circumstance"
circumstance
end select
sub circumstance
%>
服务器环境变量</b></font></td></tr></table><br>
<table border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#A4B6D7" width=90%>
<tr>
<td width="50%" align="center" bgcolor="#A4B6D7"><font color="#FFFFFF">服务器环境变量</font></td>
<td height="16" align="center" bgcolor="#A4B6D7"><font color="#FFFFFF">功能简述</font></td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("server_name")%> </td>
<td height="4">服务器的域名</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("LOCAL_ADDR")%> </td>
<td height="4">服务器的IP地址</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("OS")%> </td>
<td height="4">服务器操作系统</td>
</tr>
<tr>
<td width="50%"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </td>
<td height="4">服务器解译引擎</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("SERVER_SOFTWARE")%> </td>
<td height="4">服务器软件的名称及版本</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("server_port")%> </td>
<td height="5">服务器正在运行的端口</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td>
<td height="5">服务器CPU数量</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("path_translated")%> </td>
<td height="4">请求的物理路径</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("path_info")%> </td>
<td height="4">在域名根目录外的到被请求页面的路径</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("request_method")%> </td>
<td height="4">发出request的方式</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("query_string")%> </td>
<td height="4">通过使用GET方法提交的任何数据</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("script_name")%> </td>
<td height="4">程序被调用的路径</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("remote_host")%> </td>
<td height="4">发出request请求的远端机器的名称</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("remote_addr")%> </td>
<td height="5">发出request请求的远端机器的IP名称</td>
</tr>
<tr>
<td width="50%"><%=Request.ServerVariables("http_user_agent")%> </td>
<td height="4">client可以request的浏览器类型</td>
</tr>
<tr>
<td width="50%"><%=Server.ScriptTimeout%> 秒</td>
<td height="4">脚本连接超时时间</td>
</tr>
</table>
<%
end sub
sub log
%>
登陆操作纪录<br><br>
<table cellpadding=0 cellspacing=0 width=100%>
<tr>
<td width=10% align="center">用户名</td>
<td width=20% align="center">IP</td>
<td width=20% align=center>操作项目</td>
<td width=20% align="center">登陆时间</td>
<td width=30% align="center">操作系统</td>
</tr>
<%
sql="select * from log order by logtime Desc"
rs.Open sql,Conn
do while not rs.eof
response.write "<tr><td align=center>"&rs("username")&"</td><td align=center>"&rs("ip")&"</td><td align=center>"&rs("remark")&"</td><td align=center>"&rs("logtime")&"</td><td align=center><font size=1>"&rs("windows")&"</font></td></tr>"
rs.movenext
loop
rs.close
%>
</table>
<%
end sub
sub discreteness
%>
组件支持情况
<br><br>
<table border=0 width="500" cellspacing=1 cellpadding=0>
<tr>
<td width="65%"> 组件名称</td><td width="15%">支持及版本</td>
</tr>
<%
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) = "SoftArtisans.FileUp"
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"
For i=0 to 18
Response.Write "<TR><TD> " & theInstalledObjects(i) & "<font color=#888888> "
select case i
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(ACCESS 数据库)"
case 11
Response.Write "(SA-FileUp 文件上传)"
case 12
Response.Write "(SA-FM 文件管理)"
case 13
Response.Write "(JMail 邮件发送)"
case 14
Response.Write "(WIN虚拟SMTP 发信)"
case 15
Response.Write "(ASPEmail 邮件发送)"
case 16
Response.Write "(LyfUpload 文件上传)"
case 17
Response.Write "(ASPUpload 文件上传)"
case 18
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td>"
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>
<%
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
''''''''''''''''''''''''''''''
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
htmlend
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -