一个ASP木马程序的源代码(6)

   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.aspcool.com/lanmu/'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
  %＞