📄 aspcheck.asp
字号:
<%@ language="vbscript" %>
<%' option explicit %>
<%
'####################################
'# #
'# 阳光asp探针 v1.72 #
'# #
'# 玫瑰情缘 http://www.meigui8.cn #
'# 电子邮件 100053555@qq.com #
'# #
'# 转载本程序时请保留这些信息 #
'# #
'####################################
'不使用输出缓冲区，直接将运行结果显示在客户端
response.buffer = true
'声明待检测数组
dim objtotest(26,4)
objtotest(0,0) = "mswc.adrotator"
objtotest(1,0) = "mswc.browsertype"
objtotest(2,0) = "mswc.nextlink"
objtotest(3,0) = "mswc.tools"
objtotest(4,0) = "mswc.status"
objtotest(5,0) = "mswc.counters"
objtotest(6,0) = "iissample.contentrotator"
objtotest(7,0) = "iissample.pagecounter"
objtotest(8,0) = "mswc.permissionchecker"
objtotest(9,0) = "scripting.filesystemobject"
objtotest(9,1) = "(fso 文本文件读写)"
objtotest(10,0) = "adodb.connection"
objtotest(10,1) = "(ado 数据对象)"
objtotest(11,0) = "softartisans.fileup"
objtotest(11,1) = "(sa-fileup 文件上传)"
objtotest(12,0) = "softartisans.filemanager"
objtotest(12,1) = "(softartisans 文件管理)"
objtotest(13,0) = "lyfupload.uploadfile"
objtotest(13,1) = "(刘云峰的文件上传组件)"
objtotest(14,0) = "persits.upload.1"
objtotest(14,1) = "(aspupload 文件上传)"
objtotest(15,0) = "w3.upload"
objtotest(15,1) = "(dimac 文件上传)"
objtotest(16,0) = "jmail.smtpmail"
objtotest(16,1) = "(dimac jmail 邮件收发) <a href='http://www.meigui8.cn'>中文手册下载</a>"
objtotest(17,0) = "cdonts.newmail"
objtotest(17,1) = "(虚拟 smtp 发信)"
objtotest(18,0) = "persits.mailsender"
objtotest(18,1) = "(aspemail 发信)"
objtotest(19,0) = "smtpsvg.mailer"
objtotest(19,1) = "(aspmail 发信)"
objtotest(20,0) = "dkqmail.qmail"
objtotest(20,1) = "(dkqmail 发信)"
objtotest(21,0) = "geocel.mailer"
objtotest(21,1) = "(geocel 发信)"
objtotest(22,0) = "iismail.iismail.1"
objtotest(22,1) = "(iismail 发信)"
objtotest(23,0) = "smtpmail.smtpmail.1"
objtotest(23,1) = "(smtpmail 发信)"
objtotest(24,0) = "softartisans.imagegen"
objtotest(24,1) = "(sa 的图像读写组件)"
objtotest(25,0) = "w3image.image"
objtotest(25,1) = "(dimac 的图像读写组件)"
public isobj,verobj,testobj
'检查预查组件支持情况及版本
dim i
for i=0 to 25
on error resume next
isobj=false
verobj=""
'dim testobj
testobj=""
set testobj=server.createobject(objtotest(i,0))
if -2147221005 <> err then '感谢网友iamfisher的宝贵建议
isobj = true
verobj = testobj.version
if verobj="" or isnull(verobj) then verobj=testobj.about
end if
objtotest(i,2)=isobj
objtotest(i,3)=verobj
next
'检查组件是否被支持及组件版本的子程序
sub objtest(strobj)
on error resume next
isobj=false
verobj=""
testobj=""
set testobj=server.createobject (strobj)
if -2147221005 <> err then '感谢网友iamfisher的宝贵建议
isobj = true
verobj = testobj.version
if verobj="" or isnull(verobj) then verobj=testobj.about
end if
end sub
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>asp探针v1.72－阳光http://www.meigui8.cn</title>
<style>
<!--
body
{
font-family: 宋体;
font-size: 9pt
}
td
{
font-size: 9pt
}
a
{
color: #000000;
text-decoration: none
}
a:hover
{
color: #3f8805;
text-decoration: underline
}
.input
{
border: #111111 1px solid;
font-size: 9pt;
background-color: #f8fff0
}
.backs
{
background-color: #3f8805;
color: #ffffff;
}
.backq
{
background-color: #eefee0
}
.backc
{
background-color: #3f8805;
border: medium none;
color: #ffffff;
height: 18px;
font-size: 9pt
}
.fonts
{
color: #3f8805
}
-->
</style>
</head>
<body>
<a href="mailto:100053555@qq.com">阳光</a>改写的asp探针-<font class=fonts>v1.72</font><br><br>
<font class=fonts>是否支持asp</font>
<br>出现以下情况即表示您的空间不支持asp：
<br>1、访问本文件时提示下载。
<br>2、访问本文件时看到类似“<%@ language="vbscript" %>”的文字。
<br><br>
<font class=fonts>服务器的有关参数</font>
<table border=0 width=450 cellspacing=0 cellpadding=0 bgcolor="#3f8805">
<tr><td>
<table border=0 width=450 cellspacing=1 cellpadding=0>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器名</td><td> <%=request.servervariables("server_name")%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器ip</td><td> <%=request.servervariables("local_addr")%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器端口</td><td> <%=request.servervariables("server_port")%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器时间</td><td> <%=now%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> iis版本</td><td> <%=request.servervariables("server_software")%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 脚本超时时间</td><td> <%=server.scripttimeout%> 秒</td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 本文件路径</td><td> <%=request.servervariables("path_translated")%></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器cpu数量</td><td> <%=request.servervariables("number_of_processors")%> 个</td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器解译引擎</td><td> <%=scriptengine & "/"& scriptenginemajorversion &"."&scriptengineminorversion&"."& scriptenginebuildversion %></td>
</tr>
<tr bgcolor="#eefee0" height=18>
<td align=left> 服务器操作系统</td><td> <%=request.servervariables("os")%></td>
</tr>
</table>
</td></tr>
</table>
<br>
<font class=fonts>组件支持情况</font>
<%
dim strclass
strclass = trim(request.form("classname"))
if "" <> strclass then
response.write "<br>您指定的组件的检查结果："
dim verobj1
objtest(strclass)
if not isobj then
response.write "<br><font color=red>很遗憾，该服务器不支持 " & strclass & " 组件！</font>"
else
if verobj="" or isnull(verobj) then
verobj1="无法取得该组件版本"
else
verobj1="该组件版本是：" & verobj
end if
response.write "<br><font class=fonts>恭喜！该服务器支持 " & strclass & " 组件。" & verobj1 & "</font>"
end if
response.write "<br>"
end if
%>
<br>■ iis自带的asp组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3f8805" width="450">
<tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
<%for i=0 to 10%>
<tr height="18" class=backq>
<td align=left> <%=objtotest(i,0) & "<font color=#888888> " & objtotest(i,1)%></font></td>
<td align=left> <%
if not objtotest(i,2) then
response.write "<font color=red><b>×</b></font>"
else
response.write "<font class=fonts><b>√</b></font> <a title='" & objtotest(i,3) & "'>" & left(objtotest(i,3),11) & "</a>"
end if%></td>
</tr>
<%next%>
</table>
<br>■ 常见的文件上传和管理组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3f8805" width="450">
<tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
<%for i=11 to 15%>
<tr height="18" class=backq>
<td align=left> <%=objtotest(i,0) & "<font color=#888888> " & objtotest(i,1)%></font></td>
<td align=left> <%
if not objtotest(i,2) then
response.write "<font color=red><b>×</b></font>"
else
response.write "<font class=fonts><b>√</b></font> <a title='" & objtotest(i,3) & "'>" & left(objtotest(i,3),11) & "</a>"
end if%></td>
</tr>
<%next%>
</table>
<br>■ 常见的收发邮件组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3f8805" width="450">
<tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
<%for i=16 to 23%>
<tr height="18" class=backq>
<td align=left> <%=objtotest(i,0) & "<font color=#888888> " & objtotest(i,1)%></font></td>
<td align=left> <%
if not objtotest(i,2) then
response.write "<font color=red><b>×</b></font>"
else
response.write "<font class=fonts><b>√</b></font> <a title='" & objtotest(i,3) & "'>" & left(objtotest(i,3),11) & "</a>"
end if%></td>
</tr>
<%next%>
</table>
<br>■ 图像处理组件
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#3f8805" width="450">
<tr height=18 class=backs align=center><td width=320>组 件 名 称</td><td width=130>支持及版本</td></tr>
<%for i=24 to 25%>
<tr height="18" class=backq>
<td align=left> <%=objtotest(i,0) & "<font color=#888888> " & objtotest(i,1)%></font></td>
<td align=left> <%
if not objtotest(i,2) then
response.write "<font color=red><b>×</b></font>"
else
response.write "<font class=fonts><b>√</b></font> <a title='" & objtotest(i,3) & "'>" & left(objtotest(i,3),11) & "</a>"
end if%></td>
</tr>
<%next%>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -