 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
下面是源代码 <%@ 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下载区就有的吧 希望能对你有所帮助。 返回类别: 教程 上一教程: 用PRERENDER解决DATAGRID分页最后一页行数不满的排版问题 下一教程: 两款比较典型的ASP木马防范方式 您可以阅读与"用ASP做的DNS LOOKUP程序"相关的教程: · 结合ASP和存储过程做的搜索程序 · 用ASP开发一个在线考试程序（五） · ASP程序暂停指定的时间后再继承执行 · 优化ASP程序 · 《 优化你的ASP程序 》 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
