用ASP做的DNS LOOKUP程序 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 用ASP做的DNS LOOKUP程序

用ASP做的DNS LOOKUP程序 时间：2004/11/7 2:53:00来源：本站整理作者：蓝点我要评论(0): 文章转译自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

%>

    DNS Lookup [v 1.0]

    Host:


        value="<%= strIP  %>">


        value="Lookup" onClick="document.frmRDNS.submit()">

<%

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 "Lame Host - Could Not Resolve DNS For " _

            & strIP & "
"

    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 & "
"

            End If

        i = (i + 1)

    Loop

    'Close it

    oTF.Close

    'Delete It

    oFS.DeleteFile "C:\" & strHost & ".txt"

    Set oFS = Nothing

    nsLookup = tempData

End Function

%>

代码很简单，我不多说了，如果您对WSH有什么疑问的话，请去下载WSH的电子文档中文版本的，CHINAASP下载区就有的吧

希望能对你有所帮助。

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。