你所在的位置：首页　>　网站建设技术　>　详情查看

写的很简单，只是实现了功能

<%
Function formaturl(yes)
If mid(yes,5,1)<>"" then
yes1 = left(yes,3)
yes2 = right(yes,cint(len(yes))-3)
formaturl = yes1 & "." & yes2
else
formaturl=yes
end if
End Function
'取得远程网页二进制源代码
Function getBoy(url)
'on error resume next
Set objXml = Server.CreateObject("Microsoft.XmlHttp")
with objXml
   .open "get",url,false,"",""
   .send
   getBoy = .responsebody
end with
getBoy = BytesToBstr(GetBoy,"GB2312")
Set objXml = nothing
end function

'处理二进制流代码
Function BytesToBstr(strBody,CodeBase)
         dim objStream
         set objStream = Server.CreateObject("Adodb.Stream")
         objStream.Type = 1
         objStream.Mode =3
         objStream.Open
         objStream.Write strBody
         objStream.Position = 0
         objStream.Type = 2
         objStream.Charset = CodeBase
         BytesToBstr = objStream.ReadText
         objStream.Close
         set objStream = nothing
End Function
%>
未注册的域名如下
<%
'www.knowsky.com如果提交了查询
If Request.Form("yes") <> "" Then
yes = replace(Request.Form("yes")," ","")   '去除复选框字符串中的空格
yes = split(yes,",")   '实例化一个数组yes，将用逗号隔开的yes数组赋值给yes新数组

For i = 0 to ubound(yes)    '遍历数组循环开始
   url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
   wstr = getBoy(url)   '获取查询后的源代码
   If instr(wstr,"未被注册的域名") <> 0 Then    '判断是否为已经注册的域名
    Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"



"   '列出未注册的域名
   End If  
Next
response.Write "

已注册的域名如下：
"
For i = 0 to ubound(yes)    '遍历数组循环开始
   url = "http://panda.www.net.cn/cgi-bin/Check.cgi?domain="&Request.Form("domain")&"&ext="&yes(i)
   wstr = getBoy(url)   '获取查询后的源代码
   If instr(wstr,"已被注册的域名") <> 0 Then    '判断是否为已经注册的域名
    Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"



"   '列出已注册的域名
   End If  
Next

Else

%>

上一篇：不用 url rewrite 实现asp伪静态

下一篇：一个AJAX局部刷新的例子