繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP做的DNS LOOKUP程序
- ASP
- asp实现取得数组中的最大值的代码
- asp 将日期格式化为需要的格式
- asp 下产生任意位数随机密码的代码
- asp下返回以千分位显示数字格式化的数值
- asp重定向页面的方法总结
- asp下去除数组中重复的项的方法
- asp下实现 重新排序数字数组的代码
- asp 验证输入网址是否有效并可以访问 与正则验证输入网址
- asp验证Ip格式的函数
- asp实现生成由数字，大写字母，小写字母指定位数的随机数
- asp 格式化sql中的like字符串
- asp 实现显示所有的服务器变量值的函数
- asp 取得用户真实IP，对代理地址仍然有效的函数
- asp 通用数据库连接过程函数
- asp 字符串截取函数
- asp下实现格式化文件大小以MB显示的函数
- asp 下用正则表达式检测邮箱格式的函数
- asp 实现检测字符串是否为纯字母和数字组合的函数
- asp代码实现检测组件是否安装的函数
- asp通过JMAIL实现通用发送函数
用ASP做的DNS LOOKUP程序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 80 ::
收藏到网摘: n/a
运行环境，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下载区就有的吧
希望能对你有所帮助。
评论 (0) All
