ASP はドメイン名クエリ用のデータベース インターフェイス コードを実装します。
<%
エラー時は次から再開
プライベート d_exit
ディム・リトリーブ
ディムドメイン
Dim TakenHTML
関数 GetURL(url)
取得 = Server.CreateObject(Microsoft.XMLHTTP) を設定します。
検索あり
.Open GET、URL、False、、
。送信
GetURL = .ResponseText
で終わる
取得 = なしを設定します
終了機能
ドメイン = Replace(Request.Form(ドメイン),www.,) & . Request.Form(ext)
Domain=.com または Request.Form(domain)= の場合
Response.Write (<script>alert( '何を記入するのを忘れたか見てください? ドメイン名を記入しませんでしたか? ');javascript:history.back(1)</script>)
応答.終了
終了する場合
'TakenHTML = GetURL()
TakenHTML = GetURL(= & ドメイン)
d_exsit=1
if InStr(TakenHTML,Noentry) > 1 then
Response.Write Domain & エラーが発生しました。戻ってください。 <br><br>
それ以外
if InStr(TakenHTML,No match) > 1 then %>
おめでとうございます。登録しようとしているドメイン名 <% =Domain %> はまだ登録されていません<p>< a href=# onClick=MM_openBrWindow( '../formmail/domain.htm ', ' ', 'scrollbars=auto) 、幅=500、高さ=500 ')>
ここをクリックしてドメイン名の登録を開始してください</a></p></font>
<% その他 %>
<font color=red& gt;<br>申し訳ありません</font> 登録しようとしているドメイン名 <% =Domain %> はすでに登録されています。 <p></p>ドメイン名を変更して再試行してください。</font>
<フォームメソッド=ポストアクション=search.asp名=チェックドメインID=Form1>
タイプ=テキスト名=ドメインID=テキスト1>
<select name=ext id=Select1>
<option value=com selected>.com</option>
<option value=net>.net</option>
<option value=org>.org</option>
<option value=com.cn>.com.cn</option>
<option value=net.cn>.net.cn</option>
<option value=org.cn>.org.cn</option>
<option value=cc>.cc</option>
<option value=tv>.tv</option>
<option value=biz>.biz</option>
<option value=info>.info</option>
</選択>
<input type=submit name=Submit value= query id=Submit1 onClick = return submitchecken();>
</form>このドメイン名の詳細な登録情報は次のとおりです<BR></font>
<table><tr><td><PRE><% =dowith() %></PRE></td></tr></table></font>
<% 終了の場合
終了する場合
関数 dowith()
Dim lStrURL
前のページを暗くする
薄暗いページ以降
ディムテンプコンテンツ
薄暗いページスタート
薄暗いページエンド
薄暗い気温
ページアフター = <PRE>
ページ前 = </PRE>
tempcontent = TakenHTML
d_exsit<>0 の場合、
pagestart = InStr(1,tempcontent, pageafter,1)
ページスタート = 0 の場合
dowith = <font color=red>予期しないエラー 2!</font>
d_exsit = 3
終了関数
それ以外
ページスタート = ページスタート + Len(pageafter) + 1
pageend = InStr(pagestart, tempcontent, pagebefore,1)
ページエンド = 0 の場合
dowith = <font color=red>予期しないエラー!</font>
d_exsit = 3
終了関数
それ以外
pageend = pageend - pagestart 'コンテンツの長さを取得します
tempcontent = Mid(tempcontent, pagestart, pageend)
終了の場合
終了の場合
pageregexp = 新しい正規表現を設定します
pageregexp.Global = True
pageregexp.Pattern = <[^>]*>
tempcontent = pageregexp.Replace(tempcontent, )
pageregexp = なしを設定します
dowith=tempcontent
終了の場合
終了機能
%>