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

<%
Functionformaturl(yes)
Ifmid(yes,5,1)<>""then
yes1=left(yes,3)
yes2=right(yes,cint(len(yes))-3)
formaturl=yes1&"."&yes2
else
formaturl=yes
endif
EndFunction
'取得远程网页二进制源代码
FunctiongetBoy(url)
'onerrorresumenext
SetobjXml=Server.CreateObject("Microsoft.XmlHttp")
withobjXml
.open"get",url,false,"",""
.send
getBoy=.responsebody
endwith
getBoy=BytesToBstr(GetBoy,"GB2312")
SetobjXml=nothing
endfunction

'处理二进制流代码
FunctionBytesToBstr(strBody,CodeBase)
dimobjStream
setobjStream=Server.CreateObject("Adodb.Stream")
objStream.Type=1
objStream.Mode=3
objStream.Open
objStream.WritestrBody
objStream.Position=0
objStream.Type=2
objStream.Charset=CodeBase
BytesToBstr=objStream.ReadText
objStream.Close
setobjStream=nothing
EndFunction
%>
未注册的域名如下
<%
'.cn
<inputname="yes"type="checkbox"id="yes"value="netcn">
.net.cn
<inputname="yes"type="checkbox"id="yes"value="orgcn">
org.cn
<inputname="yes"type="checkbox"id="yes"value="govcn">
gov.cn</p>
<p>
<inputname="yes"type="checkbox"id="yes"value="info">
.info
<inputname="yes"type="checkbox"id="yes"value="biz">
.biz
<inputname="yes"type="checkbox"id="yes"value="tv">
.tv
<inputname="yes"type="checkbox"id="yes"value="cc">
.cc</p>
<p>
<inputname="yes"type="checkbox"id="yes"value="cn">
.cn
<inputname="yes"type="checkbox"id="yes"value="name">
.name</p>
</form>
<%
EndIf
%>