Exemple d'utilisateur enregistré ajax et de code d'effet de soumission de formulaire<!--Module d'inscription-->default.asp
Copiez le code comme suit :
<!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>
<tête>
<title>Ajax - Échantillon1</title>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 /> //Veuillez vous assurer de définir l'encodage de cette page sur UTF-8, sinon des caractères tronqués apparaîtront.
<meta name=author content=tonyhl[at]126.com />
<méta http-equiv=pragma content=no-cache/>
<script langage=javascript type=text/javascript src=reg.js></script>
<link rel=stylesheet href=css.css type=text/css media=all/>
<type de style=texte/css>
<!--
#Couche1 {
position : absolue ;
largeur : 200 px ;
hauteur : 115 px ;
indice z : 1 ;
gauche : 409px ;
haut : 88 px ;
}
-->
</style>
</tête>
<corps>
<h2>Exemple d'application Ajax : module d'inscription</h2>
<identifiant div=Couche1>
<div id=msg></div>
</div>
ID : <input type=text id=regid />
Mot de passe : <input type=password id=regpassword />
<nom d'entrée=f type=fichier />
<input type=submit id=regsubmit value=Register onclick=Check() />
<h2>Lors de l'enregistrement d'un utilisateur avec l'ID Tony, l'arrière-plan vérifie que l'ID existe déjà et renvoie un message d'invite<br />
Pour mettre en évidence l'effet de non-actualisation, le programme côté serveur effectuera automatiquement un million d'opérations supplémentaires
</h2>
</corps>
</html>
Copiez le code comme suit :
<!----Script de soumission de données de formulaire--->REG.JS
fonction GE(a){retour document.getElementById(a);}
fonction Vérifier(){
if(GE('regid').value==''){GE('msg').innerHTML='L'ID ne peut pas être vide'; return false}
if(GE('regpassword').value==''){GE('msg').innerHTML='le mot de passe ne peut pas être vide';return false}
var X=nouveau ActiveXObject(Msxml2.XMLHTTP);
si(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=fonction(){
si(X.readyState==4){
si(X.status==200){
eval(X.responseText)
}
autre{GE('msg').innerHTML=X.statusText}
}
else{GE('msg').innerHTML=Soumission des données...}
} ;
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(SendData)
}
autre{
GE('msg').innerHTML='Votre navigateur ne prend pas en charge XMLHttpRequest'
}
}
<!---Traitement du programme--->reg.asp
Copiez le code comme suit :
<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001%>//CODEPAGE doit être 650001, sinon des caractères tronqués apparaîtront. S'il y a du texte HTML, il doit être défini sur le codage UTF-8, sinon des caractères tronqués apparaîtront.
<%
Dim regid, regpassword, str
regid=Request.Form(regid)
regpassword=Request.Form(regpassword)
f=Request.Form(fichier)
Dim je, ii
je = 0
Pour i = 0 à 1 000 000
ii = ii + je
Suivant
Si regid= ou regpassword= alors
str = ID et MOT DE PASSE doivent être renseignés
Autre
Si Regid <> Tony Alors
str = Inscription réussie, l'identifiant est & regid &, le mot de passe est & regpassword&f
Autre
str = L'enregistrement a échoué, l'ID existe déjà
Fin si
Terminer si
Response.Write GE('msg').innerHTML=' & str & ';GE('regsubmit').disabled=false
Réponse.Fin
%>