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

<%
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，将用逗

[1] [2] [3] 下一页