日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發(fā)教程 > 詳細頁面

用ASP做的DNS LOOKUP程序

用ASP做的DNS LOOKUP程序

更新時間:2022-05-08 文章作者:未知 信息來源:網(wǎng)絡 閱讀次數(shù):

文章轉譯自ASP101

運行環(huán)境,NT(SERVER、WORKSTATION)、W2K

服務器上需要安裝WSH2.0或者更高版本

如果您的系統(tǒng)目前沒有安裝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下載區(qū)就有的吧

希望能對你有所幫助。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 在线a人片天堂免费观看高清 | 亚洲小视频 | 国产精品99re| 欧美 日韩 视频 | 亚洲国产成人久久精品影视 | 成人永久免费视频 | 欧美综合图片一区二区三区 | 99亚洲自拍| 日韩在线国产精品 | 伊人网在线免费观看 | 亚洲国产一区在线二区三区 | 日韩 亚洲 欧美 中文 高清 | 亚洲丁香婷婷综合久久六月 | 在线不卡一区二区 | 69xxx视频| 青青青国产观看免费视频 | 免费99精品国产自在现线观看 | 麻豆日韩区久久综合 | 国产青青在线视频 | 中文字幕免费人成乱码中国 | 成人的天堂视频一区二区三区 | 久久在精品线影院精品国产 | 国产成人做受免费视频 | 99精品在线视频观看 | a级高清毛片 | 91插插插插插| 国产成人亚洲综合一区 | 99精品影院 | 波多野结衣中文字幕一区二区三区 | 99ri精品视频在线观看播放 | 手机看片福利永久国产日韩 | 久久久亚洲精品国产 | 国产一区二区三区四区五区 | 欧美一区二区手机在线观看视频 | 天天操天天舔天天射 | 国产片在线看 | 久久免费视频在线 | 亚洲精品 欧美综合 在线 | 国产精品1024香蕉在线观看 | 国产成人狂喷潮在线观看2345 | 亚洲高清在线观看看片 |