asp如何编写一个DNS LOOKUP程序？
来源：asp之家 发布时间：2009-11-07 18:47:00
首先安装WSH，NT（SERVER、WORKSTATION）、W2K服务器上需要安装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 浏览</title>
</head>
<body bgcolor="#FFFFFF">
<form Method="POST" Name="frmRDNS">
<label for="frmHost"><u>主机:</u></label>
<input type="text" name="frmHost" ID="frmHost"
value="<％= strIP ％>">
<input type="button" name="btnSubmit" ID="btnSubmit"
value="浏览" onClick="document.frmRDNS.submit()">
</form>
<font face="arial" size="2" color="#003366">
<％
rMethod = uCase(Request.ServerVariables("REQUEST_METHOD"))
If rMethod = "POST" Then
' 浏览主机
strReturn = nsLookup(strIP)
If strReturn <> "" Then
Response.Write strReturn
Else
Response.Write "<b>抱歉,这台主机不能解析" _ & strIP & " DNS </b><br>"
End If
End If
Function NSlookup(strHost)
' 创建Shell对象
Set oShell = Server.CreateObject("Wscript.Shell")
oShell.Run "％ComSpec％ /c nslookup " & strHost _
& "> C:\" & strHost & ".txt", 0, True
' 通过命令提示符执行 NSLookup,并将结果转存到临时文本文件中
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
oTF.Close
' 关闭
oFS.DeleteFile "C:\" & strHost & ".txt"
' 删除之
Set oFS = Nothing
nsLookup = tempData
End Function
％>
</font>
</body>
</html>
0
投稿猜你喜欢
大家都在关注视觉的盛宴，西方的美学；今天就分享下，中国最为古老的美，也是身边随处可见的美学–中国汉字书法之美；古文者，仓颉做造也。仰观奎星园- 以前写JS程序的时候，经常碰到了定位的问题。但每次都看到一半，找到需要的属性就了事了。今天下了狠心，要花点时间，彻底地弄明白他。以下内容看着
- 假如你拥有一个庞大的网站，内容又多，那么来访者往往很难找到自己所需要的东东，这时候你就需要一个站内搜索来帮助来访者更快的找到索要的资料了！现
- <％ &nbs
- 用ASP判断一个字符串中只包含字母和数字要怎么做啊？ for s=1 to len(trim(use
- 木马原理：入侵者使用诸如ASP图片木马生成器之类的工具将一张正常的图片与一个ASP木马文件合并成一个图片文件（即将对网站有害的ASP代码插在
- 小小程序猿SQL Server认知的成长 1.没毕业或工作没多久，只知道有数据库、SQL这么个东东，浑然分不清SQL和Sql Server
- 在工作实践和学习中，如何开启 MySQL 数据库的远程登陆帐号算是一个难点的问题，以下内容便是在工作和实践中总结出来的两大步骤，能帮助DBA
- 下面提供生成XML的Google SiteMap代码[ASP版本]。这个代码是生成全站文件链接的地图：<％Server.S
- 我想大多数的人在编写ASP程序的时候，都碰到过类似的错误信息： Error Number ->
- 今天在看罗素的《西方哲学史》时，忽然想到了这个想法，我认为可以从另外一个角度来看“用户体验“的影响因素。上面这个图是我今天思考的一部分，这是
- 向数据库加入字符类型的数据时，我老爱写错数据中含有单引号的语句而导致操作失败像：正确的SQL语句：INSERT baby
- ASP里两种常用的生成文件的方式是：利用ADODB.Stream生成文件和利用Scripting.FileSystemObject（fso）
- 每个浏览器都有自己的默认样式，这是一段预定义的CSS，用以简单地呈现网页。在Firefox中的地址栏中输入resource://gre/re
- 通信信息包是发送至MySQL服务器的单个SQL语句，或发送至客户端的单一行。在MySQL 5.1服务器和客户端之间最大能发送的可能信息包为1
- 由于Oracle自身比较复杂，在Linux环境下安装要涉及很多方面的因素。本文分两个方面介绍在Linux RedHat 6.0环境下Orac
- 1.用CSS实现布局让我们一起来做一个页面，首先，我们需要一个布局。请使用CSS控制3个div，实现如下图的布局。考察应试者的基本布局知识—
- 请问如何使用CDONTS组件来发送电子邮件？我们可以在IIS4下使用CDONTS来完成。首先要确认是否安装了SMTP服务（OPTIONPAC
- 如何在ASP.NET中使用ADO.NET连接数据库？以连接Access数据库为例，步骤如下：一、我们来用有源ODBC DSN的方法和无源OL
- 相信大家都知道html和css，知道html结构和css表现分离，知道html语义化，这些都是这几年的热门关键字。语义化的html在国内也是
