Ajax+asp应用实例 注册模块，表单提交
来源：asp之家 时间：2011-04-08 10:47:00
注册模块default.asp
代码如下:
<!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">
<head>
<title>Ajax - Sample1</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>
<link rel="stylesheet" href="css.css" type="text/css" media="all"/>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
width:200px;
height:115px;
z-index:1;
left: 409px;
top: 88px;
}
-->
</style>
</head>
<body>
<h2>Ajax应用实例: 注册模块</h2>
<div id="Layer1">
<div id="msg"></div>
</div>
ID: <input type="text" id="regid" />
Password: <input type="password" id="regpassword" />
<input name="f" type="file" />
<input type="submit" id="regsubmit" value="注册" onclick="Check()" />
<h2>当注册ID为 tony的用户时,后台验证该ID已存在,返回提示信息<br />
为突出显示无刷新效果,服务器端程序将自动进行百万加法运算
</h2>
</body>
</html>
代码如下:
表单数据提交脚本REG.JS
function GE(a){return document.getElementById(a);}
function Check(){
if(GE('regid').value==''){GE('msg').innerHTML='ID不能为空';return false}
if(GE('regpassword').value==''){GE('msg').innerHTML='password 不能为空';return false}
var X=new ActiveXObject("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');
var SendData = 'regid='+GE('regid').value+'®password='+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编码,否则将出现乱码.
<％
Dim regid, regpassword, str
regid=Request.Form("regid")
regpassword=Request.Form("regpassword")
f=Request.Form("file")
Dim i, ii
ii = 0
For i = 0 To 1000000
ii = ii + i
Next
If regid="" or regpassword="" then
str = "ID和PASSWORD必须填写"
Else
If regid <> "tony" Then
str = "注册成功,ID为" & regid & " , 密码为" & regpassword&f
Else
str = "注册失败,ID已经存在"
End If
End if
Response.Write "GE('msg').innerHTML='" & str & "';GE('regsubmit').disabled=false"
Response.End
％>
0
投稿猜你喜欢
SQL Server 数据库故障修复顶级技巧之一
Jmail发信的实例,模块化随时调用
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效
细化解析：怎样把你的MySQL完全中文化
MySQL表设计优化与索引 (八)
纯CSS制作的网页中的lightbox效果
浅析MySQL数据库授权原则
ASP验证码的实现原理及源码
SQL Server中单引号的两种处理技巧
SQL Server 数据页缓冲区的内存瓶颈分析
新浪乐居的人不好！哈哈
带中英文翻译功能的收藏夹
sql server 锁表语句分享
Firefox 3.5 新增加的支持（整理）
Mysql数据库的安全性问题释疑
不要忽略了颜色的可用性
msxml3.dll 错误 ‘800c0005’解决方案
扫盲大讲堂：mysql出错的代码解析及解答
10大实用web应用界面技术[译]
