مثال لمستخدم مسجل في ajax ورمز تأثير إرسال النموذج<!--وحدة التسجيل-->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>أياكس - Sample1</title>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 /> // يرجى التأكد من ضبط ترميز هذه الصفحة على UTF-8، وإلا ستظهر أحرف مشوهة.
<اسم التعريف = محتوى المؤلف =tonyhl[at]126.com />
<meta http-equiv=pragma content=no-cache/>
<لغة البرنامج النصي=نوع جافا سكريبت=نص/جافا سكريبت src=reg.js></script>
<link rel=stylesheet href=css.css type=text/css media=all/>
<نوع النمط=نص/css>
<!--
#الطبقة1 {
الموقف:مطلق؛
العرض: 200 بكسل؛
الارتفاع: 115 بكسل؛
مؤشر z:1;
اليسار: 409 بكسل؛
أعلى: 88 بكسل؛
}
-->
</نمط>
</الرأس>
<الجسم>
<h2>مثال لتطبيق Ajax: وحدة التسجيل</h2>
<معرف div=Layer1>
<div معرف=msg></div>
</div>
المعرف: <نوع الإدخال=معرف النص=ريجيد />
كلمة المرور: <نوع الإدخال = معرف كلمة المرور = كلمة المرور />
<اسم الإدخال = نوع f = ملف />
<نوع الإدخال=معرف الإرسال=قيمة regsubmit=التسجيل عند النقر=التحقق () />
<h2>عند تسجيل مستخدم بمعرف توني، تتحقق الخلفية من وجود المعرف بالفعل وترجع رسالة سريعة<br />
لتسليط الضوء على تأثير عدم التحديث، سيقوم البرنامج الموجود على جانب الخادم تلقائيًا بإجراء مليون عملية إضافة
</h2>
</الجسم>
</html>
انسخ رمز الكود كما يلي:
<!----البرنامج النصي لتقديم بيانات النموذج--->REG.JS
الدالة GE(a){return document.getElementById(a);}
فحص الوظيفة (){
if(GE('regid').value==''){GE('msg').innerHTML='لا يمكن أن يكون المعرّف فارغًا';
if(GE('regpassword').value==''){GE('msg').innerHTML='لا يمكن أن تكون كلمة المرور فارغة';return false}
var X=new ActiveXObject(Msxml2.XMLHTTP);
إذا (س) {
GE('regsubmit').disabled=true;
X.onreadystatechange=function(){
إذا (X.readyState==4){
إذا (X.status==200){
تقييم (X.responseText)
}
آخر{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML=جاري إرسال البيانات...}
};
X.open('POST','reg.asp',true);
X.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
فار SendData = 'regid='+GE('regid').value+'®password='+GE('regpassword').value+'&file='+GE('f').value
X.send(SendData)
}
آخر{
GE('msg').innerHTML='متصفحك لا يدعم XMLHttpRequest'
}
}
<!---معالجة البرنامج--->reg.asp
انسخ رمز الكود كما يلي:
<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001%>// يجب أن يكون CODEPAGE 650001، وإلا ستظهر أحرف مشوهة. إذا كان هناك نص HTML، فيجب ضبطه على ترميز UTF-8، وإلا ستظهر أحرف مشوهة.
<%
خافت ريجيد، كلمة المرور، شارع
regid=Request.Form(regid)
regpassword=Request.Form(regpassword)
f=Request.Form(ملف)
خافت أنا، ثانيا
ط = 0
لأني = 0 إلى 1000000
الثاني = الثاني + أنا
التالي
إذا كان regid= أو regpassword= إذن
يجب ملء str = ID وPASSWORD
آخر
إذا ريجيد <> توني ثم
str = تم التسجيل بنجاح، المعرف هو & regid &، كلمة المرور هي & regpassword&f
آخر
str = فشل التسجيل، المعرف موجود بالفعل
نهاية إذا
انتهي إذا
Response.Write GE('msg').innerHTML=' & str & ';GE('regsubmit').disabled=false
الاستجابة.النهاية
%>