推奨:一般的な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