| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

ASP技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·ASP如何获取真实IP地址
·解密ASP源代码
·Asp中五种连接数据库的方法
·ASP编程技巧大全[1]
·快速打造留言本教程[1]
·ASP中也能解压缩rar文件
·浅谈如何建立三层体系结构的ASP应用程序(2)
·浅谈如何建立三层体系结构的ASP应用程序(1)
·ASP编程技巧大全[2]
·用ASP发送邮件

站内搜索

使用xmlhttp查询域名是否被注的小程序

  提交查询的页面比较简单如下:
  =====
  <HTML>
  <HEAD>
  <META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
  </HEAD>
  <BODY>
  <form method="post" action="return-whois.asp" ID=Form1>
  <input type="text" name="domain" ID=Text1>
  <select name="ext" ID=Select1>
  <option value="com">.com</option>
  <option value="net">.net</option>
  <option value="org">.org</option>
  </select>
  <input type="submit" name="Submit" value="WhoIs" ID=Submit1>
  </form>
  </BODY>
  </HTML>
  ==============
  return-whois.asp
  =======
  <%@ Language=VBScript %>
  <HTML>
  <HEAD>
  <META NAME="GENERATOR" Content="Microsoft Visual Studio 7.0">
  </HEAD>
  <BODY>
  <%
  on error resume next
  Dim Retrieval
  Dim Domain
  Dim TakenHTML
  Function GetURL(url)
  'Response.Write url
  Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
  .Open "GET", url, False, "", ""
  .Send
  GetURL = .ResponseText
  End With
  Set Retrieval = Nothing
  End Function
  Domain = Replace(Request.Form("domain"),"www.","") & "." & Request.Form("ext")
  TakenHTML = GetURL("http://www.internic.net/cgi/whois?whois_nic="&Domain&"&type=domain")
  '这里他通过查找error和no match来判断是否出错,或是否被注,这可能是whois那里返回的takenhtml的功劳
  if InStr(TakenHTML,"Error") > 1 then
  'If the page html contains "Error"
  Response.Write Domain & "出错了!<br><br>"
  else
  if InStr(TakenHTML,"No match") > 1 then
  Response.Write Domain&"还没有被注册<br><br>"
  else
  Response.Write Domain&"已经被注册了<br><br>"
  end if
  end if
  %>

  </BODY>
  </HTML>
  =======
  不过在内部网上好想不行,老是"被注册了",大家试试吧!!




相关文章
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 一个基于WEB的QQ程序
  • 用VB6实现中英文文本的私钥加密
  • 一组VB实用小程序
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • VB中字符串中文的问题
  • 用VB制作屏幕保护程序
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 使用插件功能扩展VB
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有