ajax 등록 사용자 및 양식 제출 효과 코드 예<!--등록 모듈-->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>
<머리>
<title>Ajax - 샘플1</title>
<meta http-equiv=Content-Type content=text/html; charset=utf-8 /> //이 페이지의 인코딩을 UTF-8로 설정했는지 확인하세요. 그렇지 않으면 잘못된 문자가 나타납니다.
<메타 이름=저자 콘텐츠=tonyhl[at]126.com />
<meta http-equiv=pragma 콘텐츠=no-cache/>
<script 언어=javascript type=text/javascript src=reg.js></script>
<link rel=stylesheet href=css.css type=text/css media=all/>
<스타일 유형=텍스트/css>
<!--
#레이어1 {
위치:절대;
너비:200px;
높이:115px;
Z-색인:1;
왼쪽: 409px;
상단: 88px;
}
-->
</style>
</head>
<본문>
<h2>Ajax 애플리케이션 예시: 등록 모듈</h2>
<div id=레이어1>
<div id=msg></div>
</div>
ID: <입력 유형=텍스트 ID=regid />
비밀번호: <입력 유형=비밀번호 id=regpassword />
<입력 이름=f 유형=파일 />
<입력 유형=제출 ID=reg제출 값=등록 onclick=Check() />
<h2>tony ID로 사용자를 등록하면 백그라운드에서 해당 ID가 이미 존재하는지 확인하고 프롬프트 메시지를 반환합니다.<br />
새로 고침 없음 효과를 강조하기 위해 서버 측 프로그램은 자동으로 백만 개의 추가 작업을 수행합니다.
</h2>
</body>
</html>
다음과 같이 코드 코드를 복사합니다.
<!----양식 데이터 제출 스크립트--->REG.JS
함수 GE(a){return document.getElementById(a);}
함수 검사(){
if(GE('regid').value==''){GE('msg').innerHTML='ID는 비워둘 수 없습니다.' return false}
if(GE('regpassword').value==''){GE('msg').innerHTML='비밀번호는 비워둘 수 없습니다.';return false}
var X=new ActiveXObject(Msxml2.XMLHTTP);
만약(X){
GE('regsubmit').disabled=true;
X.onreadystatechange=함수(){
if(X.readyState==4){
if(X.status==200){
평가(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)
}
또 다른{
GE('msg').innerHTML='귀하의 브라우저는 XMLHttpRequest를 지원하지 않습니다'
}
}
<!---프로그램 처리--->reg.asp
다음과 같이 코드 코드를 복사합니다.
<%@ LANGUAGE=VBSCRIPT CODEPAGE=65001%>//CODEPAGE는 650001이어야 합니다. 그렇지 않으면 잘못된 문자가 나타납니다. HTML 텍스트가 있는 경우 UTF-8 인코딩으로 설정해야 합니다. 그렇지 않으면 잘못된 문자가 나타납니다.
<%
희미한 regid, regpassword, str
regid=요청.양식(regid)
regpassword=요청.양식(regpassword)
f=요청.양식(파일)
난 어둡게 해, ii
나는 = 0
i = 0 ~ 1000000의 경우
ii = ii + 나는
다음
regid= 또는 regpassword=이면
str = ID와 PASSWORD를 반드시 입력해야 합니다
또 다른
만약 정규화된 <> tony Then
str = 등록 성공, ID는 & regid &, 비밀번호는 & regpassword&f
또 다른
str = 등록 실패, ID가 이미 존재합니다.
종료 조건
다음과 같은 경우 종료
Response.Write GE('msg').innerHTML=' & str & ';GE('regsubmit').disabled=false
응답.종료
%>