推奨：一般的なASP機能：lastDay（）プログラムコード％ '関数：array'sourceに値が存在するかどうかを決定：http：//www.cncms.com/asp.asp関数Inarray（svalue、aarray）dim x inanaray = aarrayの各xのfals
<％
エラーの再開時に次に再開します
プライベートd_exsit
薄暗い検索
薄暗いドメイン
dim dackhtml
関数geturl（url）
set retireval = server.createObject（microsoft.xmlhttp）
検索付き
.open get、url、false 、、、
。送信
getUrl = .ResponsEtext
で終わります
set retireval = Nothing
エンド関数
ドメイン=置き換え（request.form（domain）、www。、）＆。 ＆request.form（ext）
domain = .comまたはrequest.form（domain）= thenの場合
respons.write（<script> alert（ '記入するのを忘れたものを見てください？ドメイン名に記入しませんでしたか？'）; javascript：history.back（1）</script>）
Response.End
ifを終了します
'teckhtml = getUrl（http://www.internic.net/cgi/whois?whois_nic =＆domain &&type=domain）
akedhtml = geturl（http://www.china-channel.com/checkdomain.asp?action=whois＆domain =＆domain）
d_exsit = 1
If strunt（sakehtml、エントリなし）> 1次に
Response.Writeドメインと何かがうまくいかなかったので、返してください！ <br> <br>
それ以外
If strunt（削除、一致なし）> 1 then％>
おめでとうございます、登録するドメイン名はまだ登録されていません<p> <a href =＃>
ドメイン名の登録を開始するには、ここをクリックしてください</a> </p> </font>
<％else％>
<font color = red> <br>ごめんなさい</font>登録するドメイン名は既に登録されています！ <p> </p>ドメイン名</font>で再試行してください
<form method = post action = search.asp name = checkdomain id = form1>
www。<入力タイプ=テキスト名= domain id = text1>
<select name = ext id = select1>
<オプション値= com selected> .com </option>
<オプション値= net> .net </option>
<オプション値= org> .org </option>
<オプション値= com.cn> .com.cn </option>
<オプション値= net.cn> .net.cn </option>
<オプション値= org.cn> .org.cn </option>
<オプション値= cc> .cc </option>
<オプション値= TV> .tv </option>
<オプション値= biz> .biz </option>
<オプション値= info> .info </option>
</select>
<入力タイプ= submit name = submit value = query id = submit1 onclick = return submitchecken（）;>
</form>以下は、このドメイン名の詳細な登録情報<br> </font>
<表> <tr> <td> <pre> <％= dowith（）％> </pre> </td> </tr> </table> </font>
<％end if
ifを終了します
functiondowith（）
dim lstrurl
dim pagebefore
薄暗いpageafter
薄暗いtempcontent
Dim Pagestart
DIMPAGEEND
薄暗い温度
pageafter = <pre>
pagebefore = </pre>
tempContent = teckhtml
d_exsit <> 0の場合
pagestart = strunt（1、tempcontent、pageafter、1）
pagestart = 0の場合
dowith = <font color = red>予期しないエラー2！</font>
d_exsit = 3
出口機能
それ以外
pagestart = pagestart + len（pageafter） + 1
PageEnd = instr（pagestart、tempcontent、pagebefore、1）
PageEnd = 0の場合
dowith = <font color = red>予期しないエラー！</font>
d_exsit = 3
出口機能
それ以外
PageEnd = PageEnd -Pagestart 'コンテンツの長さを取得します
tempContent = Mid（tempContent、Pagestart、PageEnd）
ifを終了します
ifを終了します
set pageregexp = new regexp
pageregexp.global = true
pageregexp.pattern = <[^>]*>
tempcontent = pageregexp.replace（tempcontent、）
PagereGexp =何も設定しません
dowith = tempcontent
ifを終了します
エンド関数
％>
共有：ASPの共通機能：Checkboxscript（）プログラムコード％ '関数：指定されたチェックボックスの値を確認するために使用されます'ソース：http：//www.cncms.com/asp.asp checkboxscript（byval formelement、byval elementvalue）checkboxscript = script = javascript type = text/javascript vbcrlf string.prototyte。 Checkbo