个人中心
gpt4 book ai didi

用ASP做的DNS LOOKUP程序

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 28 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用ASP做的DNS LOOKUP程序由作者收集整理，如果你对这篇文章有兴趣，记得点赞哟.

运行环境，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下载区就有的吧 。

希望能对你有所帮助.

最后此篇关于用ASP做的DNS LOOKUP程序的文章就讲到这里了,如果你想了解更多关于用ASP做的DNS LOOKUP程序的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

28 4 0
文章推荐： asp下多个域名后缀同时查询的域名查询系统
文章推荐： 用ASP实现对ORACLE数据库的操作
文章推荐： 用存储过程、GetRows()、抽取10万条数据的速度测试
文章推荐： asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com