TOMMYHU

使用ASP计算出您的计算机哪些端口开着还是关

源码：

<%
If request.Form("scan") <> "" Then
timer1 = timer
response.Write("This is Report: <br><br>")
tmp = Split(request.Form("port"),",")
ip = Split(request.Form(&quot;ip"),",")
For hu = 0 to Ubound(ip)
  If InStr(ip(hu),"-") = 0 Then
   For i = 0 To Ubound(tmp)
    If Isnumeric(tmp(i)) Then
     Call Scan(ip(hu), tmp(i))
    Else
     seekx = InStr(tmp(i), "-")
     If seekx > 0 Then
      startN = Left(tmp(i), seekx - 1 )
      endN = Right(tmp(i), Len(tmp(i)) - seekx )
      If Isnumeric(startN) and Isnumeric(endN) Then
       For j = startN To endN
        Call Scan(ip(hu), j)
       Next
      Else
       Response.Write(startN & " or " & endN & " is not number<br>")
      End If
     Else
      Response.Write(tmp(i) & " is not number<br>")
     End If
    End If
   Next
  Else
   ipStart = Mid(ip(hu),1,InStrRev(ip(hu),"."))
   For xxx = Mid(ip(hu),InStrRev(ip(hu),".")+1,1) to Mid(ip(hu),InStr(ip(hu),"-")+1,Len(ip(hu))-InStr(ip(hu),"-"))
    For i = 0 To Ubound(tmp)
     If Isnumeric(tmp(i)) Then
      Call Scan(ipStart & xxx, tmp(i))
     Else
      seekx = InStr(tmp(i), "-")
      If seekx > 0 Then
       startN = Left(tmp(i), seekx - 1 )
       endN = Right(tmp(i), Len(tmp(i)) - seekx )
       If Isnumeric(startN) and Isnumeric(endN) Then
        For j = startN To endN
         Call Scan(ipStart & xxx,j)
        Next
       Else
        Response.Write(startN & " or " & endN & " is not number<br>")
       End If
      Else
       Response.Write(tmp(i) & " is not number<br>")
      End If
     End If
    Next
   Next
  End If
Next
timer2 = timer
thetime=cstr(int(timer2-timer1))
response.write "<hr>Process in "&thetime&" s"
Else
%>
<p>Only for Enjoy &amp; Challenge ! </p>
<p>You can use this script scan ports, but slow.</p>
<p>My Site: <a href="http://lake2.0x54.org" target="_blank">http://lake2.0x54.org</a></p>
<form name="form1" method="post" action="" onSubmit="form1.submit.disabled=true;">
  <p>Scan IP:&nbsp;
    <input name="ip" type="text" class="TextBox" id="ip" value="127.0.0.1" size="60">
    *Example: 10.0.0.1-2 = 10.0.0.1,10.0.0.2<br>
    Port List:
    <input name="port" type="text" class="TextBox" size="60" value="<%=PortList%>">
    *Example: 1-5 = 1,2,3,4,5<br>
    <br>
    <input name="submit" type="submit" class="buttom" value=" Run ">
    <input name="scan" type="hidden" id="scan" value="111">
</p>
</form>
<%
End If
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
    Response.Write(targetip & ":" & portNum & ".........Close<br>")
   Else
    Response.Write(targetip & ":" & portNum & ".........<font color=red>Open</font><br>")
   End If
  End If
End If
End Sub
%>

源码下载：
25175/25175_upload/2008_01/08010623524637.rar