ASP网页编程之一个ASP处置Ajax提交的表单的实例
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在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="tonyhl126.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为移动电话互联网客户服务。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。
页:
[1]