|
|
| 一个ASP木马程序的源代码(6) |
| 作者：不详 来源：不详 发布时间：2006-8-13 0:33:11 发布人：chinazhan |
 减小字体
 增大字体
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
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
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.60－阿江＜a href='http://www.ajiang.net＜/TITLE＞' target=_blank＞http://www.ajiang.net＜/TITLE＞＜/a＞
＜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:info@ajiang.net"＞阿江＜/a＞改写的ASP探针-＜font class=fonts＞V1.60＜/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＞ ＜%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%＞＜/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
%＞
做人要厚道，请注明转自chinazhan中国站长(www.ChinaZhan.com)。
|
| |
|
[]
[返回上一页]
[打 印]
[收 藏] |
|
| ∷相关文章评论∷ （评论内容只代表网友观点，与本站立场无关！） [更多评论...] |
|
|
设为首页
加入收藏
联系我们
