如何使用XMLHTTP制作域名查询系统的代码案例

如何使用xmlhttp制作域名查询系统的代码案例

<%
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=" 
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
%>
　　 

　 
　　 
　 
　 
　　 
　 
域名查询系统:<% if request("domain")>"" then response.Write(request("domain")&"."&request("root")&body) end if%>

　　　　 
　　　　　 
　　　　　　 
　　　　 
　　　　 
　　　　 
　　　　　 
　　　　 
　　　 
 
www.
　　　　　　　　 
　　　　　　　　 
　　　　　　　　　 .cn
　　　　　　　　　 .com
　　　　　　　　　 .net
　　　　　　　　　 .org
　　　　　　　　　 .com.cn
　　　　　　　　　 .net.cn
　　　　　　　　　 .gov.cn
　　　　　　　　 
　　　　　　　 


　　　　　　　 
　　　　　　 
　　　　　　 


　　 
 

　 
　　 
　 

代码我已经在本地测试过了。正常通过。

金典兑换游戏支付平台程序

本软件完全免费，无任何bug。用户可放心使用，网关需单独注册，请联系软件作者。1、关于接口设置：721K 卡易智能点卡接口，易宝支付网银接口。2、关于账户功能：商户信息管理、玩家留言信箱、网关下载、资金管理。3、关于游戏管理：分区管理、添加分区、分组管理、比例模板、补发管理、获取代码。4、关于订单管理：订单查询、渠道管理、结算统计。5、关于数据统计：玩家排名、分区排名、渠道统计。6、程序是 .NE

下载