📄 ad_aspcheck.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<%
Response.Buffer = true
Response.Expires = -1
Dim OtT(3,15,1)
dim okCPUS, okCPU, okOS
dim isobj,VerObj,TestObj
T = Request("T")
if T="" then T="ABGH"%>
<style>
<!--
h1 {font-size:14px;color:#3F8805;font-family:Arial;margin:15px 0px 5px 0px}
h2 {font-size:12px;color:#000000;margin:15px 0px 8px 0px}
h3 {font-size:12px;color:#3F8805;font-family:Arial;margin:7px 0px 3px 12px;font-weight: normal;}
BODY,TD{FONT-FAMILY: 宋体;FONT-SIZE: 12px;word-break:break-all}
tr{BACKGROUND-COLOR: #EEFEE0}
A{COLOR: #3F8805;TEXT-DECORATION: none}
A:hover{COLOR: #000000;TEXT-DECORATION: underline}
A.a1{COLOR: #000000;TEXT-DECORATION: none}
A.a1:hover{COLOR: #3F8805;TEXT-DECORATION: underline}
table{BORDER: #3F8805 1px solid;background-color:#3F8805;margin-left:12px}
p{margin:5px 12px;color:#000000}
.input{BORDER: #111111 1px solid;FONT-SIZE: 9pt;BACKGROUND-color: #F8FFF0}
.backs{BACKGROUND-COLOR: #3F8805;COLOR: #ffffff;text-align:center}
.backq{BACKGROUND-COLOR: #EEFEE0}
.backc{BACKGROUND-COLOR: #3F8805;BORDER: medium none;COLOR: #ffffff;HEIGHT: 18px;font-size: 9pt}
.fonts{ COLOR: #3F8805}
-->
</STYLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
call mmenu()
for qq=1 to len(T)
call BodyGo(mid(T,qq,1))
next
call mmenu()
%>
<br>
<%
sub aspyes()
%>
<h2>是否支持ASP</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr><td>
出现以下情况即表示您的空间不支持ASP：
<br>1、访问本文件时提示下载。
<br>2、访问本文件时看到类似“<%@ Language="VBScript" %>”的文字。
</td></tr>
</table>
<%
end sub
sub servinfo()
%>
<h2>服务器概况</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr>
<td width="110">服务器地址</td><td width="390">名称 <%=Request.ServerVariables("SERVER_NAME")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>) 端口:<%=Request.ServerVariables("SERVER_PORT")%></td>
</tr>
<%
tnow = now():oknow = cstr(tnow)
if oknow <> year(tnow) & "-" & month(tnow) & "-" & day(tnow) & " " & hour(tnow) & ":" & right(FormatNumber(minute(tnow)/100,2),2) & ":" & right(FormatNumber(second(tnow)/100,2),2) then oknow = oknow & " (日期格式不规范)"
%>
<tr>
<td>服务器时间</td><td><%=oknow%></td>
</tr>
<tr>
<td>IIS版本</td><td><%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
</tr>
<tr>
<td>脚本超时时间</td><td><%=Server.ScriptTimeout%> 秒</td>
</tr>
<tr>
<td>本文件路径</td><td><%=Request.ServerVariables("PATH_TRANSLATED")%></td>
</tr>
<tr>
<td>服务器脚本引擎</td><td><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> , <%="JScript/" & getjver()%></td>
</tr>
<%getsysinfo() '获得服务器数据%>
<tr>
<td>服务器操作系统</td><td><%=okOS%></td>
</tr>
<tr>
<td>全局和会话变量</td><td>Application 变量 <%=Application.Contents.count%> 个<%if Application.Contents.count>0 then Response.Write "[<a href=""?T=C"">列表</a>]"%>,
Session 变量 <%=Session.Contents.count%> 个 <%if Session.Contents.count>0 then Response.Write "[<a href=""?T=D"">列表</a>]"%></td>
</tr>
<tr>
<td>ServerVariables</td><td><%=Request.ServerVariables.Count%> 个 <%if Request.ServerVariables.Count>0 then Response.Write "[<a href=""?T=E"">Request.ServerVariables 列表</a>]"%></td>
</tr>
<tr>
<td>服务器CPU通道数</td><td><%=okCPUS%> 个</td>
</tr>
<%
call ObjTest("WScript.Shell")
if isobj then
set WSshell=server.CreateObject("WScript.Shell")
%>
<tr>
<td>服务器CPU详情</td><td><%=okCPU%></td>
</tr>
<tr>
<td>全部服务器环境</td><td><%=WSshell.Environment.count%> 个 <%if WSshell.Environment.count>0 then Response.Write "[<a href=""?T=F"">WSshell.Environment 列表</a>]"%></td>
</tr>
<%
end if
%>
</table>
<%
end sub
%>
<SCRIPT language="JScript" runat="server">
function getJVer(){
//获取JScript 版本
return ScriptEngineMajorVersion() +"."+ScriptEngineMinorVersion()+"."+ ScriptEngineBuildVersion();
}
</SCRIPT>
<%
' 获取服务器常用参数
sub getsysinfo()
on error resume next
Set WshShell = server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
okOS = cstr(WshSysEnv("OS"))
okCPUS = cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
okCPU = cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
if isempty(okCPUS) then
okCPUS = Request.ServerVariables("NUMBER_OF_PROCESSORS")
end if
if okCPUS & "" = "" then
okCPUS = "(未知)"
end if
if okOS & "" = "" then
okOS = "(未知)"
end if
end sub
' *******************************************************************************
' [ C ] Application 变量列表
' *******************************************************************************
sub applist()
%>
<h2>Application 变量列表</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="110">变 量 名 称</td><td width="390">值</td></tr>
<%for each apps in Application.Contents%>
<tr><td width="110"><%=apps%></td><td width="390"><%
if isobject(Application.Contents(apps)) then
Response.Write "[对象]"
elseif isarray(Application.Contents(apps)) then
Response.Write "[数组]"
else
Response.Write cHtml(Application.Contents(apps))
end if
%></td></tr><%next%>
</table>
<%
end sub
' *******************************************************************************
' [ D ] Session 变量列表
' *******************************************************************************
sub seslist()
%>
<h2>Session 变量列表</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="110">变 量 名 称</td><td width="390">值</td></tr>
<%for each sens in Session.Contents%>
<tr><td width="110"><%=sens%></td><td width="390"><%
if isobject(Session.Contents(sens)) then
Response.Write "[对象]"
elseif isarray(Session.Contents(sens)) then
Response.Write "[数组]"
else
Response.Write cHtml(Session.Contents(sens))
end if
%></td></tr><%next%>
</table>
<%
end sub
' *******************************************************************************
' [ E ] Request.ServerVariables 变量列表
' *******************************************************************************
sub sevalist()
%>
<h2>Request.ServerVariables 变量列表(含客户端信息)</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="110">变 量 名 称</td><td width="390">值</td></tr>
<%for each apps in Request.ServerVariables%>
<tr><td width="110"><%=apps%></td><td width="390"><%=cHtml(Request.ServerVariables(apps))%></td></tr><%next%>
</table>
<%
end sub
' *******************************************************************************
' [ F ] Request.ServerVariables 变量列表
' *******************************************************************************
sub wsslist()
on error resume next
Set WSshell = server.CreateObject("WScript.Shell")
%>
<h2>WScript.Shell.Environments 变量列表</h2>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="110">变 量 名 称</td><td width="390">值</td></tr>
<%for each envs in WSshell.Environment
envsa = split(envs,"=")
%>
<tr><td width="110"><%=envsa(0)%></td><td width="390"><%=cHtml(envsa(1))%></td></tr><%next%>
</table>
<%
end sub
' *******************************************************************************
' [ G ] 组件检测
' *******************************************************************************
sub comlist()
on error resume next
OtT(0,0,0) = "MSWC.AdRotator"
OtT(0,1,0) = "MSWC.BrowserType"
OtT(0,2,0) = "MSWC.NextLink"
OtT(0,3,0) = "MSWC.Tools"
OtT(0,4,0) = "MSWC.Status"
OtT(0,5,0) = "MSWC.Counters"
OtT(0,6,0) = "IISSample.ContentRotator"
OtT(0,7,0) = "IISSample.PageCounter"
OtT(0,8,0) = "MSWC.PermissionChecker"
OtT(0,9,0) = "Microsoft.XMLHTTP"
OtT(0,9,1) = "(Http 组件, 常在采集系统中用到)"
OtT(0,10,0) = "WScript.Shell"
OtT(0,10,1) = "(Shell 组件, 可能涉及安全问题)"
OtT(0,11,0) = "Scripting.FileSystemObject"
OtT(0,11,1) = "(FSO 文件系统管理、文本文件读写)"
OtT(0,12,0) = "Adodb.Connection"
OtT(0,12,1) = "(ADO 数据对象)"
OtT(0,13,0) = "Adodb.Stream"
OtT(0,13,1) = "(ADO 数据流对象, 常见被用在无组件上传程序中)"
OtT(1,0,0) = "SoftArtisans.FileUp"
OtT(1,0,1) = "(SA-FileUp 文件上传)"
OtT(1,1,0) = "SoftArtisans.FileManager"
OtT(1,1,1) = "(SoftArtisans 文件管理)"
OtT(1,2,0) = "Ironsoft.UpLoad"
OtT(1,2,1) = "(国产免费, 上传组件)"
OtT(1,3,0) = "LyfUpload.UploadFile"
OtT(1,3,1) = "(刘云峰的文件上传组件)"
OtT(1,4,0) = "Persits.Upload.1"
OtT(1,4,1) = "(ASPUpload 文件上传)"
OtT(1,5,0) = "w3.upload"
OtT(1,5,1) = "(Dimac 文件上传)"
OtT(2,0,0) = "JMail.SmtpMail"
OtT(2,0,1) = "(Dimac JMail 邮件收发) <a href='http://www.ajiang.net/products/aspcheck/coms.asp'>中文手册下载</a>"
OtT(2,1,0) = "CDONTS.NewMail"
OtT(2,1,1) = "(CDONTS)"
OtT(2,2,0) = "CDO.Message"
OtT(2,2,1) = "(CDOSYS)"
OtT(2,3,0) = "Persits.MailSender"
OtT(2,3,1) = "(ASPemail 发信)"
OtT(2,4,0) = "SMTPsvg.Mailer"
OtT(2,4,1) = "(ASPmail 发信)"
OtT(2,5,0) = "DkQmail.Qmail"
OtT(2,5,1) = "(dkQmail 发信)"
OtT(2,6,0) = "SmtpMail.SmtpMail.1"
OtT(2,6,1) = "(SmtpMail 发信)"
OtT(3,0,0) = "SoftArtisans.ImageGen"
OtT(3,0,1) = "(SA 的图像读写组件)"
OtT(3,1,0) = "W3Image.Image"
OtT(3,1,1) = "(Dimac 的图像读写组件)"
OtT(3,2,0) = "Persits.Jpeg"
OtT(3,2,1) = "(ASPJpeg)"
OtT(3,3,0) = "XY.Graphics"
OtT(3,3,1) = "(国产免费, 图像/图表处理)"
OtT(3,4,0) = "Ironsoft.DrawPic"
OtT(3,4,1) = "(国产免费, 图像/图形处理)"
OtT(3,5,0) = "Ironsoft.FlashCapture"
OtT(3,5,1) = "(国产免费, 多功能 FLASH 截图)"
OtT(3,6,0) = "dyy.zipsvr"
OtT(3,6,1) = "(国产免费, 呆呆文件压缩解压组件)"
OtT(3,7,0) = "hin2.com_iis"
OtT(3,7,1) = "(国产免费, 呆呆IIS管理组件)"
OtT(3,8,0) = "Socket.TCP"
OtT(3,8,1) = "(Dimac 公司的 Socket 组件)"
%>
<h2>ASP组件支持情况</h2><a name="G"></a>
<h3>■ 检查组件是否被支持</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<FORM action="?T=<%=T%>#G" method="post">
<tr><td align="center" style="padding:10px 0px">
在下面的文本框中输入您要检测的组件的 ProgId 或 ClassId
<input class=input type=text value="" name="classname" size=50>
<input type=submit value=" 检 查 " class=backc id=submit1 name=submit1>
<%
Dim strClass
strClass = Trim(Request.Form("classname"))
If "" <> strClass then
Response.Write "<p style=""margin:9px 0px 0px 0px"">"
Dim Verobj1
ObjTest(strClass)
If Not IsObj then
Response.Write "<font color=red>很遗憾，该服务器不支持 " & strclass & " 组件！</font>"
Else
if VerObj="" or isnull(VerObj) then
Verobj1="无法取得该组件版本"
Else
Verobj1="该组件版本是：" & VerObj
End If
Response.Write "<font class=fonts>恭喜！该服务器支持 " & strclass & " 组件。" & verobj1 & "</font>"
End If
end if
%>
</td></tr>
</FORM>
</table>
<h3>■ 操作系统自带的组件</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="380">组件名称及简介</td><td width="120">支持/版本</td></tr>
<%
k=0
for i=0 to 13
call ObjTest(OtT(k,i,0))
%>
<tr><td width="380"><%=OtT(k,i,0) & " <font color='#888888'>" & OtT(k,i,1) & "</font>"%></td><td width="120" title="<%=VerObj%>"><%=cIsReady(isobj) & " " & left(VerObj,10)%></td></tr>
<%next%>
</table>
<h3>■ 常见文件上传和管理组件</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="380">组件名称及简介</td><td width="120">支持/版本</td></tr>
<%
k=1
for i=0 to 5
call ObjTest(OtT(k,i,0))
%>
<tr><td width="380"><%=OtT(k,i,0) & " <font color='#888888'>" & OtT(k,i,1) & "</font>"%></td><td width="120" title="<%=VerObj%>"><%=cIsReady(isobj) & " " & left(VerObj,10)%></td></tr>
<%next%>
</table>
<h3>■ 常见邮件处理组件</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="380">组件名称及简介</td><td width="120">支持/版本</td></tr>
<%
k=2
for i=0 to 6
call ObjTest(OtT(k,i,0))
%>
<tr><td width="380"><%=OtT(k,i,0) & " <font color='#888888'>" & OtT(k,i,1) & "</font>"%></td><td width="120" title="<%=VerObj%>"><%=cIsReady(isobj) & " " & left(VerObj,10)%></td></tr>
<%next%>
</table>
<h3>■ 其它常见组件</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr class="backs"><td width="380">组件名称及简介</td><td width="120">支持/版本</td></tr>
<%
k=3
for i=0 to 8
call ObjTest(OtT(k,i,0))
%>
<tr><td width="380"><%=OtT(k,i,0) & " <font color='#888888'>" & OtT(k,i,1) & "</font>"%></td><td width="120" title="<%=VerObj%>"><%=cIsReady(isobj) & " " & left(VerObj,10)%></td></tr>
<%next%>
</table>
<%
end sub
sub disklist()
on error resume next
ObjTest("Scripting.FileSystemObject")
if isobj then
set fsoobj=server.CreateObject("Scripting.FileSystemObject")
%>
<h2>磁盘和文件夹</h2>
<h3>■ 服务器磁盘信息</h3>
<table border=0 width=500 cellspacing=1 cellpadding=3>
<tr align=center class="backs">
<td width="100">盘符和磁盘类型</td>
<td width="50">就绪</td>
<td width="110">卷标</td>
<td width="80">文件系统</td>
<td width="80">可用空间</td>
<td width="80">总空间</td>
</tr>
<%
set drvObj=fsoobj.Drives
for each d in drvObj
%>
<tr align="center" class="backq">
<td align="right"><%=cdrivetype(d.DriveType) & " " & d.DriveLetter%>:</td>
<%
if d.DriveLetter = "A" then
Response.Write "<td></td><td></td><td></td><td></td><td></td>"
else
%>
<td><%=cIsReady(d.isReady)%></td>
<td><%=d.VolumeName%></td>
<td><%=d.FileSystem%></td>
<td align="right"><%=cSize(d.FreeSpace)%></td>
<td align="right"><%=cSize(d.TotalSize)%></td>
<%
end if
%>
</tr>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -