ตัวอย่างผู้ใช้ที่ลงทะเบียน ajax และโค้ดเอฟเฟกต์การส่งแบบฟอร์ม<!--Registration module-->default.asp
คัดลอกรหัสรหัสดังต่อไปนี้:
<!DOCTYPE html สาธารณะ -//W3C//DTD XHTML 1.0 การเปลี่ยนผ่าน//EN http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd>
<html xmlns=http://www.w3.org/1999/xhtml>
<หัว>
<title>อาแจ็กซ์ - ตัวอย่างที่ 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>
<ลิงค์ rel=stylesheet href=css.css type=text/css สื่อ=ทั้งหมด/>
<ประเภทสไตล์=ข้อความ/css>
-
#เลเยอร์1 {
ตำแหน่ง:แน่นอน;
ความกว้าง:200px;
ความสูง:115px;
ดัชนี z:1;
ซ้าย: 409px;
ด้านบน: 88px;
-
-
</สไตล์>
</หัว>
<ร่างกาย>
<h2>ตัวอย่างแอปพลิเคชัน Ajax: โมดูลการลงทะเบียน</h2>
<div id=เลเยอร์1>
<div id=msg></div>
</div>
รหัส: <ประเภทอินพุต=ข้อความ id=regid />
รหัสผ่าน: <input type=password id=regpassword />
<ชื่ออินพุต=ประเภท f=ไฟล์ />
<ประเภทอินพุต=ส่ง id=regsubmit value=ลงทะเบียน onclick=ตรวจสอบ() />
<h2>เมื่อลงทะเบียนผู้ใช้ด้วย ID tony พื้นหลังจะตรวจสอบว่ามี ID อยู่แล้วและส่งกลับข้อความแจ้ง<br />
เพื่อเน้นเอฟเฟกต์ไม่รีเฟรช โปรแกรมฝั่งเซิร์ฟเวอร์จะดำเนินการเพิ่มเติมนับล้านโดยอัตโนมัติ
</h2>
</ร่างกาย>
</html>
คัดลอกรหัสรหัสดังต่อไปนี้:
<!----สคริปต์การส่งข้อมูลแบบฟอร์ม--->REG.JS
ฟังก์ชั่น GE(a){return document.getElementById(a);}
ตรวจสอบฟังก์ชัน () {
if(GE('regid').value==''){GE('msg').innerHTML='ID ไม่สามารถเว้นว่างได้'; return false}
if(GE('regpassword').value==''){GE('msg').innerHTML='passwordไม่สามารถเว้นว่าง';return false}
var X = ActiveXObject ใหม่ (Msxml2.XMLHTTP);
ถ้า(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=function(){
ถ้า(X.readyState==4){
ถ้า(X.สถานะ==200){
eval (X.responseText)
-
อื่น ๆ {GE('msg').innerHTML=X.statusText}
-
else{GE('msg').innerHTML=กำลังส่งข้อมูล...}
-
X.open('POST','reg.asp',true);
X.setRequestHeader('ประเภทเนื้อหา','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, รหัสผ่านใหม่, str
regid=คำขอแบบฟอร์ม(regid)
regpassword=คำขอแบบฟอร์ม(regpassword)
f=Request.Form(ไฟล์)
ติ่มซำ ฉัน ii
ฉัน = 0
สำหรับ i = 0 ถึง 1000000
ii = ii + ฉัน
ต่อไป
ถ้า regid= หรือ regpassword= แล้ว
str = ต้องกรอก ID และ PASSWORD
อื่น
หากลงทะเบียน <> โทนี่แล้ว
str = การลงทะเบียนสำเร็จ ID คือ & regid & รหัสผ่านคือ & regpassword&f
อื่น
str = การลงทะเบียนล้มเหลว มี ID อยู่แล้ว
สิ้นสุดถ้า
จบถ้า
Response.Write GE('msg').innerHTML=' & str & ';GE('regsubmit').disabled=false
การตอบสนองสิ้นสุด
-