Ajax 登録ユーザーとフォーム送信効果コードの例<!--Registration module-->default.asp
次のようにコードをコピーします。
<!DOCTYPE html PUBLIC -//W3C//DTD XHTML 1.0 Transitional//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<頭>
<title>Ajax - サンプル 1</title>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 /> //このページのエンコードを必ず UTF-8 に設定してください。そうしないと文字化けが発生します。
<meta name=author content=tonyhl[at]126.com />
<meta http-equiv=pragma content=no-cache/>
<script language=javascript type=text/javascript src=reg.js></script>
<link rel=stylesheet href=css.css type=text/css media=all/>
<スタイルタイプ=テキスト/css>
<!--
#レイヤー1 {
位置:絶対;
幅:200ピクセル;
高さ:115ピクセル;
z インデックス:1;
左: 409ピクセル;
上: 88ピクセル;
}
-->
</スタイル>
</head>
<本文>
<h2>Ajax アプリケーションの例: 登録モジュール</h2>
<div id=Layer1>
<div id=msg></div>
</div>
ID: <input type=text id=regid />
パスワード: <input type=password id=regpassword />
<入力名=f タイプ=ファイル />
<input type=submit id=regsubmit value=登録 onclick=Check() />
<h2>ID tony でユーザーを登録すると、バックグラウンドで ID がすでに存在することが確認され、プロンプト メッセージが返されます。<br />
非リフレッシュ効果を強調するために、サーバー側プログラムは 100 万回の加算操作を自動的に実行します。
</h2>
</body>
</html>
次のようにコードをコピーします。
<!----フォーム データ送信スクリプト--->REG.JS
関数 GE(a){return document.getElementById(a);}
関数 Check(){
if(GE('regid').value==''){GE('msg').innerHTML='ID を空にすることはできません';
if(GE('regpassword').value==''){GE('msg').innerHTML='パスワードを空にすることはできません';return false}
var X=新しいActiveXObject(Msxml2.XMLHTTP);
if(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=function(){
if(X.readyState==4){
if(X.status==200){
eval(X.responseText)
}
else{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML=データを送信中...}
};
X.open('POST','reg.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
var SendData = 'regid='+GE('regid').value+'®password='+GE('regpassword').value+'&file='+GE('f').value
X.send(データ送信)
}
それ以外{
GE('msg').innerHTML='お使いのブラウザは XMLHttpRequest をサポートしていません'
}
}
<!---プログラム処理--->reg.asp
次のようにコードをコピーします。
<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001%>//CODEPAGE は 650001 でなければなりません。そうしないと文字化けが発生します。HTML テキストがある場合は、UTF-8 エンコードに設定する必要があります。そうでないと文字化けが発生します。
<%
Dim regid、regpassword、str
regid=リクエスト.フォーム(regid)
regpassword=リクエスト.フォーム(regpassword)
f=リクエスト.フォーム(ファイル)
ディム i、ii
i = 0
i = 0 ~ 1000000 の場合
ii = ii + i
次
regid= または regpassword= の場合、
str = ID と PASSWORD を入力する必要があります
それ以外
If regid <> tony then
str = 登録成功、ID は & regid &、パスワードは & regpassword&f
それ以外
str = 登録に失敗しました。ID はすでに存在します。
終了の場合
次の場合に終了
Response.Write GE('msg').innerHTML=' & str & ';GE('regsubmit').disabled=false
応答.終了
%>