复制代码 代码如下: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 %>
