转至繁体中文版     | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告:     敏韬网|教学资源学习资料永久免费分享站!  [mintao  2008年9月2日]        
您现在的位置: 学习笔记 >> 图文教程 >> 站长学院 >> Web开发 >> 正文
ASP利用TCPIP.DNS组件实现域名IP查询方法详解         ★★★

ASP利用TCPIP.DNS组件实现域名IP查询方法详解

作者:闵涛 文章来源:闵涛的学习笔记 点击数:1071 更新时间:2010/7/15 14:56:28

ASP利用TCPIP.DNS组件实现域名IP查询方法详解

以下是代码片段:
<%@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   'www.mintao.net
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.mintao.net)%>

      希望以上关于ASP利用TCPIP.DNS组件实现域名IP查询方法详解对你有用。
没有相关教程
教程录入:mintao    责任编辑:mintao 
  • 上一篇教程:

  • 下一篇教程:
  • 【字体: 】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口
      注:本站部分文章源于互联网,版权归原作者所有!如有侵权,请原作者与本站联系,本站将立即删除! 本站文章除特别注明外均可转载,但需注明出处! [MinTao学以致用网]
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)

    同类栏目
    · Web开发  · 网页制作
    · 平面设计  · 网站运营
    · 网站推广  · 搜索优化
    · 建站心得  · 站长故事
    · 互联动态
    更多内容
    热门推荐 更多内容
  • 没有教程
  • 赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题,因而无法显示。

    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

    站长:MinTao ICP备案号:鄂ICP备11006601号-18

    闵涛站盟:医药大全-武穴网A打造BCD……
    咸宁网络警察报警平台