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

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

作者：闵涛 文章来源：闵涛的学习笔记 点击数：1309 更新时间：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打造B、C、D……
    		咸宁网络警察报警平台