一款不错的asp木马 黑色界面(28)

报。"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify
(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            regEx.Pattern = "[^.]\bExe"&"cute\b"
            If regEx.Test(filetxt) Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>Exec"&"ute</td><td><font 
color=red>e"&"xecute()函数可以执行任意ASP代码
</font><br>"&infiles&"</td><td>"&GetDateCreate(filepath)
&"<br>"&GetDateModify(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            regEx.Pattern = "\.(Open|Create)TextFile\b"
            If regEx.Test(filetxt) Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>.CreateTextFile|.OpenTextFile</td><td>
使用了FSO的CreateTextFile|OpenTextFile读写文
件"&infiles&"</td><td>"&GetDateCreate(filepath)&"<br>"&GetDateModify
(filepath)&"</td></tr>"
                Sun = Sun + 1
                temp="-=| 同上 |=-"
            End If
            regEx.Pattern = "\.SaveToFile\b"
            If regEx.Test(filetxt) Then
                Report = 
Report&"<tr><td>"&temp&"</td><td>.SaveToFile</td><td>使用了Stream的
SaveToFile函数写文件"&infiles&"</td><td>"&GetDateCreate(filepath)