写的很简单,只是实现了功能
- <%
- 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))&"<br><br><br><br>" '列出未注册的域名
- End If
- Next
- response.Write "<p><p><p>已注册的域名如下:<br>"
- 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))&"<br><br><br><br>" '列出已注册的域名
- End If
- Next
- Else
- %>
- <form name="form1" method="post" action="">
- <p>
- <input name="domain" type="text" id="domain">
- <input type="submit" name="Submit" value="查询">
- </p>
- <p>
- <input name="yes" type="checkbox" id="yes" value="com">
- .com
- <input name="yes" type="checkbox" id="yes" value="net">
- .net
- <input name="yes" type="checkbox" id="yes" value="org">
- .org </p>
- <p>
- <input name="yes" type="checkbox" id="yes" value="comcn">
- .com.cn
- <input name="yes" type="checkbox" id="yes" value="netcn">
- .net.cn
- <input name="yes" type="checkbox" id="yes" value="orgcn">
- org.cn
- <input name="yes" type="checkbox" id="yes" value="govcn">
- gov.cn </p>
- <p>
- <input name="yes" type="checkbox" id="yes" value="info">
- .info
- <input name="yes" type="checkbox" id="yes" value="biz">
- .biz
- <input name="yes" type="checkbox" id="yes" value="tv">
- .tv
- <input name="yes" type="checkbox" id="yes" value="cc">
- .cc</p>
- <p>
- <input name="yes" type="checkbox" id="yes" value="cn">
- .cn
- <input name="yes" type="checkbox" id="yes" value="name">
- .name </p>
- </form>
- <%
- End If
- %>