|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.ajax今天瞥见一名网友必要办理一些关于AJAX的FORM提交的成绩,如今把一个实例贴出来,但愿对宽大喜好者有匡助。
<!--注册模块-->default.asp
<P><!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">
<!--
#Layer1{
position:absolute;
width:200px;
height:115px;
z-index:1;
left:409px;
top:88px;
}
-->
</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="注册"/>
<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+®password=+GE(regpassword).value+&file=+GE(f).value
X.send(SendData)
}
else{
GE(msg).innerHTML=你的扫瞄器不撑持XMLHttpRequest
}
}
<!---程序处置--->reg.asp
<P><%@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为"®id&",暗码为"®password&f
Else
str="注册失利,ID已存在"
EndIf
Endif
Response.Write"GE(msg).innerHTML="&str&";GE(regsubmit).disabled=false"
Response.End
%>
这个实例自己以为对照周全,是我用AJAX表单提交的初学实例,相称够用!若有毛病,请斧正!感谢!
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|