ASP教程打包如何编写一个DNS LOOKUP程序?如何编写一个DNS LOOKUP程序?
首先安装WSH,NT(SERVER、WORKSTATION)、W2K服务器上需要安装WSH2.0或者更高版本。然后,参照下列代码即可:
精彩春风之DNS 浏览
主机:
">
"" Then
Response.Write strReturn
Else
Response.Write "抱歉,这台主机不能解析" _ & strIP & " DNS "
End If...
如何编写一个DNS LOOKUP程序?
首先安装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
%>
精彩春风之DNS 浏览
<%
rMethod = uCase(Request.ServerVariables("REQUEST_METHOD"))
If rMethod = "POST" Then
' 浏览主机
strReturn = nsLookup(strIP)
If strReturn <> "" Then
Response.Write strReturn
Else
Response.Write "抱歉,这台主机不能解析" _ & strIP & " DNS
"
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 & "
"
End If
i = (i + 1)
Loop
oTF.Close
' 关闭
oFS.DeleteFile "C:\" & strHost & ".txt"
' 删除之
Set oFS = Nothing
nsLookup = tempData
End Function
%>
本文档为【ASP教程打包如何编写一个DNS LOOKUP程序?】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。