大j8黑人w巨大888a片,亚洲天堂无码在线播放

運(yùn)行環(huán)境，NT（SERVER、WORKSTATION）、W2K
服務(wù)器上需要安裝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
    '設(shè)置初始值
    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ū)就有的吧
希望能對你有所幫助。

標(biāo)簽：泰州昌都麗江家電維修鐵嶺咸陽昆明溫州

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用ASP做的DNS LOOKUP程序》，本文關(guān)鍵詞用,ASP,做的,DNS,LOOKUP,程序,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。