用ASP做的DNS LOOKUP程序

时间:2022-09-06 09:12:50

运行环境,NT(SERVER、WORKSTATION)、W2K

服务器上需要安装WSH2.0或者更高版本

如果您的系统目前没有安装WSH2.0,您可以从以下这个地址去下载它

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

里面包含了WSH2.0

下面是源代码

  1. <%@ Language="VBScript" %>  
  2. <% Option Explicit %>  
  3. <%  
  4. If Request.Form("frmHost") = "" Then  
  5.     '设置初始值   
  6.     strIP = Request.ServerVariables("REMOTE_ADDR")  
  7. Else  
  8.     strIP = Request.Form("frmHost")   
  9. End If  
  10. %>  
  11. <html>  
  12. <head>  
  13.     <title>DNS Lookup [v 1.0]</title>  
  14. </head>  
  15. <body bgcolor="#FFFFFF">  
  16. <form Method="POST" Name="frmRDNS">  
  17.     <label for="frmHost"><u>Host:</u></label>  
  18.     <input type="text" name="frmHost" ID="frmHost"  
  19.         value="<%= strIP  %>">  
  20.     <input type="button" name="btnSubmit" ID="btnSubmit"  
  21.         value="Lookup" onClick="document.frmRDNS.submit()">  
  22. </form>  
  23. <font face="arial" size="2" color="#003366">  
  24. <%  
  25. rMethod = uCase(Request.ServerVariables("REQUEST_METHOD"))  
  26. If rMethod = "POST" Then  
  27.     ' Lookup Host  
  28.     strReturn = nsLookup(strIP)  
  29.     If strReturn <> "" Then  
  30.         Response.Write strReturn  
  31.     Else  
  32.         ' A Lame Host is any Valid Host that DNS Cannot Resolve  
  33.         ' See InterNic for Details  
  34.         Response.Write "<b>Lame Host - Could Not Resolve DNS For " _  
  35.             & strIP & "</b><br>"  
  36.     End If  
  37. End If  
  38. Function NSlookup(strHost)  
  39.     'Create Shell Object  
  40.     Set oShell = Server.CreateObject("Wscript.Shell")  
  41.     'Run NSLookup via Command Prompt  
  42.     'Dump Results into a temp text file  
  43.     oShell.Run "%ComSpec% /c nslookup " & strHost _  
  44.         & "> C:\" & strHost & ".txt", 0, True  
  45.     'Open the temp Text File and Read out the Data  
  46.     Set oFS = Server.CreateObject("Scripting.FileSystemObject")  
  47.     Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")  
  48.     tempData = Null  
  49.     Data = Null  
  50.     i = 0  
  51.     Do While Not oTF.AtEndOfStream  
  52.         Data = Trim(oTF.Readline)  
  53.             If i > 2 Then ' Don't want to display local DNS Info.  
  54.                 tempData = tempData & Data & "<BR>"  
  55.             End If  
  56.         i = (i + 1)  
  57.     Loop  
  58.     'Close it  
  59.     oTF.Close  
  60.     'Delete It  
  61.     oFS.DeleteFile "C:\" & strHost & ".txt"  
  62.     Set oFS = Nothing  
  63.     nsLookup = tempData  
  64. End Function  
  65. %>  
  66. </font>  
  67. </body>  
  68. </html>  

代码很简单,我不多说了,如果您对WSH有什么疑问的话,请去下载WSH的电子文档中文版本的,CHINAASP下载区就有的吧

希望能对你有所帮助。