婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > 用ASP做的DNS LOOKUP程序

用ASP做的DNS LOOKUP程序

熱門標簽:辦理400電話一年多少錢 咸陽銷售外呼系統(tǒng) 常用地圖標注范圍點 離線電子地圖標注軟件注冊 企數(shù)外呼系統(tǒng)能用多久 蘭州智能語音電銷機器人功能 寧夏怎么申請400電話 外呼回撥系統(tǒng)圖片 為什么外呼系統(tǒng)需要預存話費呢
運行環(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ū)就有的吧
希望能對你有所幫助。

標簽:泰州 昌都 麗江 家電維修 鐵嶺 咸陽 昆明 溫州

巨人網(wǎng)絡通訊聲明:本文標題《用ASP做的DNS LOOKUP程序》,本文關鍵詞  用,ASP,做的,DNS,LOOKUP,程序,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《用ASP做的DNS LOOKUP程序》相關的同類信息!
  • 本頁收集關于用ASP做的DNS LOOKUP程序的相關信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 沧源| 罗平县| 敖汉旗| 阳朔县| 尉氏县| 若羌县| 彭泽县| 金山区| 武强县| 于田县| 苍梧县| 姜堰市| 宜春市| 克什克腾旗| 介休市| 衢州市| 格尔木市| 邵武市| 眉山市| 浦城县| 荥经县| 武冈市| 舟曲县| 临江市| 永宁县| 西乡县| 西城区| 隆德县| 九龙城区| 凉山| 武宣县| 时尚| 兴业县| 建昌县| 台南市| 南陵县| 台南县| 红桥区| 长春市| 饶阳县| 尚义县|