用ASP做的DNS LOOKUP程序

最爱红苹果123

最爱红苹果123

2016-01-29 17:26

用ASP做的DNS LOOKUP程序,用ASP做的DNS LOOKUP程序
  文章转译自ASP101

运行环境,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
    <titleDNS Lookup [v 1.0]</title
</head
<body bgcolor="#FFFFFF"

<form Method="POST" Name="frmRDNS"
    <label for="frmHost"<uHost:</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 "<bLame 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
展开更多 50%)
分享

猜你喜欢

用ASP做的DNS LOOKUP程序

ASP
用ASP做的DNS LOOKUP程序

用asp做access的远程接口

ASP
用asp做access的远程接口

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

结合asp和存储过程做的搜索程序

Web开发
结合asp和存储过程做的搜索程序

用ASP实现号码转换程序实例

ASP
用ASP实现号码转换程序实例

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

用asp实现的代码批量修改程序

ASP
用asp实现的代码批量修改程序

用ASP.Net编写的查询域名的程序

电脑网络
用ASP.Net编写的查询域名的程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

明明白白文件“关联”

明明白白文件“关联”

Word 2007技巧:三步去掉文档上烦人的横线

Word 2007技巧:三步去掉文档上烦人的横线
下拉加载更多内容 ↓