書き込みの很简单，只是实现了機能
<%
関数形式url(はい)
Mid(yes,5,1)<>"" の場合、
はい1 = 左(はい、3)
はい2 = 右(はい,cint(len(はい))-3)
formaturl = yes1 & "." &はい2
それ以外
formaturl=はい
終了する場合
終了機能
'取得远程网页二进制源代码
関数getBoy(url)
'エラー時は次から再開
Set objXml = Server.CreateObject("Microsoft.XmlHttp")
objXmlを使用した場合
.open "get",url,false,"",""
。送信
getBoy = .responsebody
で終わる
getBoy = BytesToBstr(GetBoy,"GB2312")
objXml = 何も設定しない
end function
'处処理二进制流代コード
関数 BytesToBstr(strBody,CodeBase)
薄暗い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 = コードベース
BytesToBstr = objStream.ReadText
objStream.Close
objStream = 何も設定しない
終了機能
%>
未登録のドメイン名のように下
<%
'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("ドメイン")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询後のソース代コード
If instr(wstr,"未被注册的ドメイン名") <> 0 then ' すでに注册的ドメイン名であるかどうか判断します
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出未注册的ドメイン名
終了の場合
次
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("ドメイン")&"&ext="&yes(i )
wstr = getBoy(url) '获取查询後のソース代コード
If instr(wstr,"既注册的ドメイン名") <> 0 then ' 否か否かが既注册的ドメイン名
Response.Write Request.Form("domain")&"."&formaturl(yes(i))&"<br><br><br><br>" '列出既注册的ドメイン名
終了の場合
次
それ以外の場合は
%>
<form name="form1" method="post" action="">
<p>
<input name="ドメイン" type="text" id="ドメイン">
<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">
。ネット
<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">
政府機関</p>
<p>
<input name="yes" type="checkbox" id="yes" value="info">
。情報
<input name="yes" type="checkbox" id="yes" value="biz">
.biz
<input name="yes" type="checkbox" id="yes" value="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>
<%
終了の場合
%>