admin_other.asp

很漂亮

<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then response.redirect "admin.asp?menu=login"


response.write "<center>"

select case Request("menu")

case "discreteness"
discreteness

case "log"
log

case "circumstance"
circumstance

end select





sub circumstance

%>

<table border="0" cellpadding="2" cellspacing="1" width=90% class=a2 align=center>
<tr class=a1>
<td height="16" align="center">项目</td>
<td width="66%" align="center" height="25">值</td>
</tr>
<tr class=a3>
<td height="25">服务器的域名</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_name")%></td>
</tr>
<tr class=a4>
<td height="25">服务器的IP地址</td>
<td width="66%" height="25"><%=Request.ServerVariables("LOCAL_ADDR")%>
</tr>
<tr class=a3>
<td height="25">服务器操作系统</td>
<td width="66%" height="25"><%=Request.ServerVariables("OS")%>
</tr>
<tr class=a4>
<td height="25">服务器解译引擎</td>
<td width="66%" height="25"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
</tr>
<tr class=a3>
<td height="25">服务器软件的名称及版本</td>
<td width="66%" height="25"><%=Request.ServerVariables("SERVER_SOFTWARE")%>
</tr>
<tr class=a4>
<td height="25">服务器正在运行的端口</td>
<td width="66%" height="25"><%=Request.ServerVariables("server_port")%>
</tr>
<tr class=a3>
<td height="25">服务器CPU数量</td>
<td width="66%" height="25"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
</tr>

<tr class=a4>
<td height="25">服务器Application数量</td>
<td width="66%" height="25"><%=Application.Contents.Count%></td>
</tr>

<tr class=a3>
<td height="25">服务器Session数量</td>
<td width="66%" height="25"><%=Session.Contents.Count%></td>
</tr>

<tr class=a4>
<td height="25">请求的物理路径</td>
<td width="66%" height="25"><%=Request.ServerVariables("path_translated")%>
</tr>
<tr class=a3>
<td height="25">请求的URL</td>
<td width="66%" height="25">http://<%=Request.ServerVariables("server_name")%><%=Request.ServerVariables("script_name")%></td>
</tr>
<tr class=a4>
<td height="25">服务器当前时间</td>
<td width="66%" height="25"><%=now()%>
</tr>
<tr class=a4>
<td height="25">脚本连接超时时间</td>
<td width="66%" height="25"><%=Server.ScriptTimeout%> 秒</td>
</tr>
</table>
<%
end sub

sub log
%>
本记录只保留一个星期
<table cellspacing=1 width=90% cellpadding=2 class=a2 align=center>
<tr class=a1 id=TableTitleLink>
<td align="center" height="25"><a href="?menu=log&order=username">用户名</a></td>
<td align="center" height="25"><a href="?menu=log&order=ip">IP</a></td>
<td width=30% align=center height="25">操作项目</td>
<td width=20% align="center" height="25"><a href="?menu=log&order=logtime">操作时间</a></td>
<td width=30% align="center" height="25"><a href="?menu=log&order=windows">操作系统</a></td>
</tr>
<%


if Request("order")<>"" then
order=HTMLEncode(Request("order"))
else
order="logtime"
end if

search=HTMLEncode(Request("search"))
if search<>"" then searchlist="where [username] like '%"&search&"%' or [ip] like '%"&search&"%' or [remark] like '%"&search&"%'"

sql="select * from log "&searchlist&" order by "&order&" Desc"
rs.Open sql,Conn,1

pagesetup=20 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数


i=0
Do While Not RS.EOF and i<pagesetup
i=i+1

response.write "<tr class=a3><td align=center>"&rs("username")&"</td><td align=center>"&rs("ip")&"</td><td style=word-break:break-all>"&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>
<table cellspacing=1 width=90% align=center>

	<tr>
		<td align="center" width="50%">页：[<b>
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"menu=log&search=<%=search%>")
</script>
</b>]</td>

		<td align="right"><form action="admin_other.asp?menu=log" method="post">
			搜索记录：<input size="15" value="<%=search%>" name="search"> <input type="submit" value=" 确定 "></td></form>
	</tr>
</table>



<%
end sub

sub discreteness
%>
<table border=0 width="90%" cellspacing=1 cellpadding=3 class=a2 align=center>
<tr class=a1>
<td width="57%" height="25">&nbsp;组件名称</td><td width="41%" height="25">支持及版本</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) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "WScript.Shell"
theInstalledObjects(8) = "ADODB.Stream"
theInstalledObjects(9) = "adodb.connection"
theInstalledObjects(10) = "Scripting.FileSystemObject"
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 class=a3><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 9
Response.Write "(ACCESS 数据库)"
case 10
Response.Write "(FSO 文本文件读写)"
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 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>
<%
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
%>