一个ASP处理Ajax提交的表单的实例

昨天看见一位网友需要解决一些关于AJAX的FORM提交的问题,现在把一个实例贴出来,希望对广大爱好者有帮助。
　　
　　default.asp
　　
　　
　　<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
　　<htmlxmlns="http://www.w3.org/1999/xhtml">
　　<head>
　　<title>Ajax-Sample1</title>
　　<metahttp-equiv="Content-Type"content="text/html;charset=utf-8"/>//请一定要将此页的编码设为UTF-8,否则将出现乱码
　　<metaname="author"content="tonyhl[at]126.com"/>
　　<metahttp-equiv="pragma"content="no-cache"/>
　　<scriptlanguage="javascript"type="text/javascript"src="reg.js"></script>
　　<linkrel="stylesheet"href="css.css"type="text/css"media="all"/>
　　<styletype="text/css">
　　
　　</style>
　　</head>
　　<body>
　　<h2>Ajax应用实例:注册模块</h2>
　　<divid="Layer1">
　　<divid="msg"></div>
　　</div>
　　ID:<inputtype="text"id="regid"/>
　　Password:<inputtype="password"id="regpassword"/>
　　<inputname="f"type="file"/>
　　<inputtype="submit"id="regsubmit"value="注册"onclick="Check()"/>
　　<h2>当注册ID为tony的用户时,后台验证该ID已存在,返回提示信息<br/>
　　为突出显示无刷新效果,服务器端程序将自动进行百万加法运算
　　</h2>
　　</body>
　　</html>
　　REG.JS
　　functionGE(a){returndocument.getElementById(a);}
　　functionCheck(){
　　if(GE('regid').value==''){GE('msg').innerHTML='ID不能为空';returnfalse}
　　if(GE('regpassword').value==''){GE('msg').innerHTML='password不能为空';returnfalse}
　　varX=newActiveXObject("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');
　　varSendData='regid='+GE('regid').value+'&regpassword='+GE('regpassword').value+'&file='+GE('f').value
　　X.send(SendData)
　　}
　　else{
　　GE('msg').innerHTML='你的浏览器不支持XMLHttpRequest'
　　}
　　}
　　
　　reg.asp
　　
　　
　　<%@LANGUAGE="VBSCRIPT"CODEPAGE="65001"%>//CODEPAGE必须为650001,否则也出现乱码,如果有HTML文字,一定设为UTF-8编码,否则将出现乱码.
　　<%
　　Dimregid,regpassword,str
　　regid=Request.Form("regid")
　　regpassword=Request.Form("regpassword")
　　f=Request.Form("file")
　　Dimi,ii
　　ii=0
　　Fori=0To1000000
　　ii=ii+i
　　Next
　　Ifregid=""orregpassword=""then
　　str="ID和PASSWORD必须填写"
　　Else
　　Ifregid<>"tony"Then
　　str="注册成功,ID为"&regid&",密码为"&regpassword&f
　　Else
　　str="注册失败,ID已经存在"
　　EndIf
　　Endif
　　Response.Write"GE('msg').innerHTML='"&str&"';GE('regsubmit').disabled=false"
　　Response.End
　　%>
　　
　　这个实例本人认为比较全面,是我用AJAX表单提交的初学实例,相当够用!如有错误,请指正!谢谢!

分享到：