ASP利用TCPIP.DNS组件实现域名IP查询
来源:asp之家 发布时间:2010-02-26 11:25:00
标签:TCPIP.DNS,组件,域名,ip
昨天在写“同IP站点查询”工具的时候,需要先用ASP获取查询域名的IP,本来是用WSHSHELL组件,代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Stime=Timer()%> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>ASP域名IP查询</title> </head> <body> <form name="form1" method="post" action=""> <table width="528" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="25" align="right"> </td> <td align="center">ASP域名IP查询</td> <td> </td> </tr> <tr> <td width="96" height="25" align="right">域名:</td> <td width="288" align="center"><input type="text" name="URL" value="<%=Trim(Request.Form("URL"))%>" size="35"> <input type="hidden" name="Search" value="True"></td> <td width="144"><input type="submit" name="Submit" value="查询"></td> </tr> </table> </form> <table width="528" align="center" cellpadding="0" cellspacing="0" border="0"> <tr> <td width="64"> </td> <td width="464"> <%Search=Trim(Request.Form("Search")) If Search="True" Then URL=Trim(Request.Form("URL")) Set objWShell=CreateObject("WScript.Shell") Set objCmd=objWShell.Exec("ping "&url) StrPResult=objCmd.StdOut.Readall() Set objCmd=nothing Set objWShell=nothing On Error Resume Next IP=strCut(StrPResult,"[","]",2) If Err Then Err.Clear IP="<b>此IP未知或域名不可用!</b>" End if Response.Write("<b>查询结果</b><br><br>您查询的域名:"&URL&"<br><br>IP地址为:"&IP&"<br>") 'Response.Write("<p>"&Replace(StrPResult,vbCrLf,"<br>"))'输出详细内容 EndTime=Timer() Response.Write("<br>查询时间共用:"&FormatNumber((EndTime-STime),3,-1)&"</b>秒") End if Function strCut(strContent,StartStr,EndStr,CutType) Dim strHtml,S1,S2 strHtml = strContent On Error Resume Next Select Case CutType Case 1 S1 = InStr(strHtml,StartStr) S2 = InStr(S1,strHtml,EndStr)+Len(EndStr) Case 2 S1 = InStr(strHtml,StartStr)+Len(StartStr) S2 = InStr(S1,strHtml,EndStr) End Select If Err Then strCute = "<b>没有找到需要的内容!</b>" Err.Clear Exit Function Else strCut = Mid(strHtml,S1,S2-S1) End If End Function%> </td> </tr> </table> </body> </html> |
但是运行后一直提示“WshShell.Exec (0x80070005) 拒绝访问”,网上搜了好一会儿,没有找到真正解决问题的办法,但是意外地让我找到了另个一个可以轻易实现这个功能的组件-“TCPIP.DNS组件”,只要两行代码即可,如下:
<%Set DNS=CreateObject("TCPIP.DNS") IP=DNS.GetIPByHost(www.aspxhome.com)%> |
这里把TCPIP.DNS组件上传到网上,需要的朋友可以下载,需要注意的一点:双击安装组件的时候,默认是安装在系统盘,比如"C:\Program Files\PSTRUH\TCPIP\",这里不要修改,否则可能无法使用。
0
投稿
猜你喜欢
- 为了让鼠标移到小图上显示大图,我利用鼠标事件新建了一个层来显示大图.当然之前最好得到XY坐标取得当前鼠标的X,Y坐标:function&nb
- <% dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb") s
- 最近一直在做Dnn模块的开发,过程中碰到这么一个问题,需要同时插入N条数据,不想在程序里控制,但是SQL Sever又不支持数组参数.所以只
- 运行MySQL Server 5.0安装程序“setup.exe”,出现如下界面: 安装向导启动,按“Next”继续:
- 在此之前,我写了两篇关于ASP结合XML的贴子,分别介绍了用XML取代数据库和用XML整合数据库这两方面的技术,让数据库在某种情况下不再是我
- 前段时间跟这suggest项目走,没想到这么一个小小的输入框居然会带来那么多的问题。首先来比较一下几个主流的搜索引擎的suggest效果。为
- 划动门菜单技术:运行代码框<style>body {font-size:12px;font-family:宋体}ul.TabBa
- 首先让我们看下 YUI 是如何处理的:var toObject = function(a) { var o = {
- 建立网站时,有很多理由让你遵循Web标准。企业、开发人员和用户都会从兼容标准的做法中获益。这里列举了一些最令人信服的理由,为什么所有网站都应
- RedHat 9.0下自带的mysql rpm包为mysql-3.23.54a-11.i386.rpm,如果在你安装操作系统时没有安装mys
- 使用ASP做网站虽然有点落伍,但在中国还是有很大市场的,因为大部分国内用户使用Windows Server服务器,在Windows Serv
- 复制代码CREATE FUNCTION fGetStrBySplit ( @Source VARCHAR(max), @Index INT,
- 前几天玩了玩Google的Map API,感觉还不错,很简单。但凡有过任何编程经验的同学,看完以下的教程,都可以在10分钟内掌握它的主要功能
- ASP木马防御: 代码如下:const adTypeBinary=1 dim jpg(1):jpg(0)=CB
- 一、新手常犯的错误在论坛看到很多帖子代码中都有一个共同的基本错误,字段类型错误。程序和数据库是紧紧相连的,数据库字段文本型或时间型的都使用单
- XML(可扩展标记语言)已成为Web应用中数据表示和数据交换的标准,随着Internet的快速发展,尤其是电子商务,Web服务等应用的广泛使
- 很久没有上过天极网,今天偶然兴起跑上去看了一下,看到消息说天极网深圳站隆重上线,于是也顺便去溜了一把,打开页面的时候差点有种不知所措的感觉,
- 这是早上找了点时间写了一个利用404错误达到静态态效果的类,准备在HTTP://PJSKIN.MYSUC.COM中使用的。不过现在没时间去弄
- 代码如下:Class Vector Private vector_datas() Private&n
- 为什么要使用php缓存技术?理由很简单:提高效率。在程序开发中,获取信息的方式主要是查询数据库,除此以外,也可能是通过Web Service