繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 使用XMLHTTP制作域名查询系统
- ASP
- 利用ASP将HTML格式数据传输给Excel 的技巧
- 用ASP CSS实现随机背景
- 用ASP实现在线文章翻译的功能
- 动态网页爱好者来看：Asp过滤HTML的函数
- 自动去除字符中含有html代码的几个ASP函数
- 用ASP对网页进行简单的保护
- ASP网页开发过程中的几个小技巧
- ASP动态网页制作中使用SQL语句的方法
- ASP开发中存储过程应用全接触
- 入门：初学ASP动态网页制作常用错误处理
- ASP动态网页下UTF-8页面乱码的解决方法
- 小技巧：解决ASP脚本运行超时的方法
- 动态网页制作技术ASP开发中的常见问题
- 动态网页技术ASP日期和时间函数示例
- ASP程序实现保存参数值的分页功能
- 用ASP寻找到真实IP地址的方法
- ASP中文显示解决技巧及创建对象方法
- ASP实例：Asp 防止网页频繁刷新一法
- 将ASP动态网页转换成HTM静态页面的方法
- 技巧：得到刚刚插入的记录的自动编号值一例
ASP 中的 使用XMLHTTP制作域名查询系统
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 26 ::
收藏到网摘: n/a
<%
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
%>
<%
if request("domain")<>"" then
'url="http://panda.www.net.cn/cgi-bin/Whois.cgi?domain="&request("domain")&"&"&request("root")&"=yes&work=whois&referer=http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")
url="http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&request("domain")&"&ext="&request("root")
wstr=getHTTPPage(url)
'www.knowsky.com
'response.write Instr (wstr,"可以注册")
if instr(lcase(wstr),"已被注册的域名")>0 then
body="域名已经被注册"
elseif instr(lcase(wstr),"未被注册的域名")>0 then
body="域名未被注册"
else
body="网络延迟,请重新查找"
end if
end if
%>
<table width="40%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
<tr>
<td height="26" bgcolor="efefef">域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><form name="form1" method="post" action=""><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<td height="36"> <div align="center">www.
<input type="text" name="domain">
<select name="root" id="select">
<opti
评论 (0) All
