📄 admincheckasp.asp
字号:
<!--#include file="Connections.asp" -->
<!--#include file="adminaccess.asp" -->
<% starttime=timer()
Dim fyobj(10,3)
fyobj(1,0) = "Scripting.FileSystemObject"
fyobj(1,1) = "是否支持fso"
fyobj(2,0) = "Adodb.Connection"
fyobj(2,1) = "是否支持access数据库"
fyobj(3,0) = "Adodb.Stream"
fyobj(3,1) = "是否支持Adodb.Stream流对象"
fyobj(4,0) = "SoftArtisans.FileManager"
fyobj(4,1) = "是否支持SA-FM 文件管理"
fyobj(5,0) = "Persits.Upload"
fyobj(5,1) = "是否支持ASPUpload 文件上传"
fyobj(6,0) = "SoftArtisans.FileU"
fyobj(6,1) = "是否支持SA-FileUp 文件上传"
fyobj(7,0) = "LyfUpload.UploadFile"
fyobj(7,1) = "是否支持LyfUpload 文件上传"
fyobj(8,0) = "Persits.MailSender"
fyobj(8,1) = "是否支持ASPEmail 邮件发送"
fyobj(9,0) = "CDONTS.NewMail"
fyobj(9,1) = "是否支持SMTP Service 邮件发送"
fyobj(10,0) = "JMail.SmtpMail"
fyobj(10,1) = "是否支持JMail 邮件发送"
dim i
dim cpbObj
for i=0 to 10
on Error Resume Next
IsObj=false
VerObj=""
set cpbObj=server.CreateObject(fyobj(i,0))
If -2147221005 <> Err then
IsObj = True
VerObj = cpbObj.version
if VerObj="" or isnull(VerObj) then VerObj=cpbObj.about
end if
fyobj(i,2)=VerObj
fyobj(i,3)=IsObj
next
response.write"<body "&background&" >"
response.write"<table border=1 borderColor="&tdc2&" cellPadding=3 cellSpacing=1 width=""100%"" style=""border-collapse: collapse"" align=center>"
response.write"<tr class=tdc>"
response.Write"<td "&tColor&" class=tdc1 colspan=2 align=center height=23><B>常用的服务器有关参数以及常见的有关组件</b></td>"
response.Write"</tr>"
response.write"<tr>"
response.Write"<td bgcolor="&tColor2&" class=tdc>本程序的绝对路径为</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & server.mappath(Request.ServerVariables("SCRIPT_NAME")) & "</td>"
response.Write"</tr>"
response.Write"<td bgcolor="&tColor2&" class=tdc>服务器名</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & Request.ServerVariables("SERVER_NAME") & "</td>"
response.Write"</tr>"
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>服务器IP</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & Request.ServerVariables("LOCAL_ADDR")& "</td>"
response.Write"</tr>"
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>服务器端口</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & Request.ServerVariables("SERVER_PORT")& "</td>"
response.Write"</tr>"
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>服务器CPU数量</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & Request.ServerVariables("NUMBER_OF_PROCESSORS")& "</td>"
response.Write"</tr>"
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>服务器操作系统</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & Request.ServerVariables("OS")& "</td>"
response.Write"</tr>"
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>当前服务器时间</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>" & now()& "</td>"
response.Write"</tr>"
For i=1 to 10
response.write"<tr class=tdc >"
response.Write"<td bgcolor="&tColor2&" class=tdc>"&fyobj(i,1)&"</td>"
response.Write"<td bgcolor="&tColor2&" class=tdc>"
If Not fyobj(i,3) Then
Response.Write "不支持"
else
Response.Write "支持 "&fyobj(i,2)
end if
Response.Write "</td>"
response.Write"</tr>"
next
response.write"</table>"
response.write"<table border=0 cellspacing=1 cellpadding=4 class=tb1>"
response.write"<tr class=tdc>"
response.Write"<td "&tColor&" class=tdc1 colspan=2 align=center height=23><B>服务器的所有环境变量</b></td>"
response.Write"</tr>"
for each a in request.ServerVariables
response.write"<tr class=tdc height=20>"
response.Write"<td bgcolor="&tColor2&" class=tdc >"&a&"</td>"
a=request.ServerVariables(a)
if a="" then
a=" "
end if
response.Write"<td bgcolor="&tColor2&" class=tdc >"&a&"</td>"
response.Write"</tr>"
next
response.write"</table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -