<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      用ASP做的DNS LOOKUP程序
                
                  發表時間：2023-07-29             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]文章轉譯自ASP101運行環境，NT（SERVER、WORKSTATION）、W2K服務器上需要安裝WSH2.0或者更高版本如果您的系統目前沒有安裝WSH2.0，您可以從以下這個地址去下載它http...
      文章轉譯自ASP101

      運行環境，NT（SERVER、WORKSTATION）、W2K

      服務器上需要安裝WSH2.0或者更高版本

      如果您的系統目前沒有安裝WSH2.0，您可以從以下這個地址去下載它

      http://www.microsoft.com/msdownload/vbscript/scripting.asp

      里面包含了WSH2.0

      下面是源代碼

      <%@ Language="VBScript" %>
      <% Option Explicit %>
      <%
      If Request.Form("frmHost") = "" Then
          '設置初始值 
          strIP = Request.ServerVariables("REMOTE_ADDR")
      Else
          strIP = Request.Form("frmHost") 
      End If
      %>
      <html>
      <head>
          <title>DNS Lookup [v 1.0]</title>
      </head>
      <body bgcolor="#FFFFFF">

      <form Method="POST" Name="frmRDNS">
          <label for="frmHost"><u>Host:</u></label>
          <input type="text" name="frmHost" ID="frmHost"
              value="<%= strIP  %>">
          <input type="button" name="btnSubmit" ID="btnSubmit"
              value="Lookup" onClick="document.frmRDNS.submit()">
      </form>

      <font face="arial" size="2" color="#003366">
      <%
      rMethod = uCase(Request.ServerVariables("REQUEST_METHOD"))
      If rMethod = "POST" Then
          ' Lookup Host
          strReturn = nsLookup(strIP)
          If strReturn <> "" Then
              Response.Write strReturn
          Else
              ' A Lame Host is any Valid Host that DNS Cannot Resolve
              ' See InterNic for Details
              Response.Write "<b>Lame Host - Could Not Resolve DNS For " _
                  & strIP & "</b><br>"
          End If
      End If

      Function NSlookup(strHost)
          'Create Shell Object
          Set oShell = Server.CreateObject("Wscript.Shell")
          'Run NSLookup via Command Prompt
          'Dump Results into a temp text file
          oShell.Run "%ComSpec% /c nslookup " & strHost _
              & "> C:\" & strHost & ".txt", 0, True

          'Open the temp Text File and Read out the Data
          Set oFS = Server.CreateObject("Scripting.FileSystemObject")
          Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")

          tempData = Null
          Data = Null
          i = 0
          Do While Not oTF.AtEndOfStream
              Data = Trim(oTF.Readline)
                  If i > 2 Then ' Don't want to display local DNS Info.
                      tempData = tempData & Data & "<BR>"
                  End If
              i = (i + 1)
          Loop

          'Close it
          oTF.Close
          'Delete It
          oFS.DeleteFile "C:\" & strHost & ".txt"

          Set oFS = Nothing
          nsLookup = tempData
      End Function
      %>
      </font>

      </body>
      </html>

      代碼很簡單，我不多說了，如果您對WSH有什么疑問的話，請去下載WSH的電子文檔中文版本的，CHINAASP下載區就有的吧

      希望能對你有所幫助。 




              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清