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
投稿猜你喜欢
引子任务调度（Task Scheduling）是很多软件系统中的重要组成部分，字面上的意思是按照一定要求分配运行一些通常时间较长的脚本或程序- 目录什么是分区表分区表应用场景分区表的限制分区类型分区表的使用1、范围分区2、列表分区（list分区）3、列分区4、hash分区5、秘钥分区
- 通配符是一些特殊符号，主要有星号(*)和问号(?)，用来模糊搜索文件，“*”可以匹配任意个数个符号， “？”可以匹配单个字符。当查找文件夹时
- 前言应用在Django的项目中是一个独立的业务模块，可以包含自己的路由，视图，模板，模型.一 创建应用程序创建步骤用manage.py中的子
- 因为项目开发中遇到需要向后台传本周的开始和结束时间，以及上一周的起止时间，就琢磨了半天，总算写出来一套，写篇文章是为了方便自己记忆，也是分享
- 普通关闭我的mysql是自己下载的tar包，自己设定安装目录来安装的。停止mysql服务，说来简单，但不知道的话，还真是挠头。在这和mysq
- Mybatisd对sql表的一对多查询select * fromprojectrecord prleft join projects poo
- 这是模拟淘宝的一个简易的购物商城程序。用户入口具有以下功能：登录认证可以锁定用户密码输入次数大于3次，锁定用户名连续三次输错用户名退出程序可
- 最近越来越多在博客上写些UX相关的内容作为分享，就涉及到跟普通博文不一样的文章建构问题。文章内容固然很重要，但排版、组织也是提高可读性和用户
- window.opener，是通过window.open打开子窗体的父窗体的引用。 比如在父窗体parentForm里面，通过window.
- 使方法一、用IP138数据库查询域名或IP地址对应的地理位置。#-*- coding:gbk -*-import urllib2import
- 我们可以使用Basemap这个工具包来实现中国地图的绘制首先需要加载一些包：import numpy as npimport matplot
- 前言什么算是高层的文件操作呢？普通的文件操作，我们一般只涉及创建文件，文件夹以及写入文件等等。假如我现在需要复制一个文件的内容到另一个文件之
- php var_dump 函数作用是判断一个变量的类型与长度,并输出变量的数值,如果变量有值输的是变量的值并回返数据类型.来看看var_du
- 当需要从 JavaScript 中的数组中获取最后一个元素时，有多种选择，本文将提供 3 种可用方法。1. 数组 length 属性??le
- 每个熟悉python的人都知道，python提供给了我们各种各样原生的数据结构，如list、tuple、set、dict等等。这些形形色色的
- element-ui中el-form自定义验证需求在输入项目名称后，调用后端接口isNameOnly，若已存在，则效果如下图：1.先设置校验
- phpStorm2020 注册码下载地址：https://www.jetbrains.com/phpstorm/注册码如下：M05PN4I3
- Perl 作为一种脚本语言可以实时地生成和执行代码。这种特性可以把代码的编译推迟到运行时，所以又称为“动态代码”。另外， Perl 也如 J
- 本文实例讲述了C#处理MySql多个返回集的方法。分享给大家供大家参考。具体方法如下：关于Mysql返回多个集java和Php的较多，但是C
