519. document.getElementById('nunber_re_m').innerHTML=\class

=msg>\Errors[2] \520. return false; 521. } 522. break; 523. default:

524. document.getElementById('nunber_re').innerHTML='

_error.gif>';

525. document.getElementById('nunber_re_m').innerHTML=\class

=msg>\Errors[1] \526. return false; 527. } 528. }

529. //全表单提交验证 530. function tijiao(){ 531. if (isName()==false){ 532. alert(\名字不能为空\533. return false; 534. }

535. if (name_use==true){ 536. alert(\名字已存在，重新输入\537. return false; 538. }

539. if (sex()==false){ 540. alert(\请选择你的性别\541. return false; 542. }

543. if (password()==false){ 544. alert(\密码必须填写\545. return false; 546. }

547. if (pass_re()==false){

548. alert(\确认密码错误\549. return false; 550. }

551. if (answer()==false){ 552. alert(\安全问题答案必须填写\553. return false; 554. }

555. if (isEmail()==false){ 556. alert(\邮箱地址为空或者错误\557. return false; 558. }

559. if (mail_use==true){

560. alert(\邮箱已经存在，重新输入一个\561. return false; 562. }

563. if(document.getElementById('u_name_zs').value !=\564. if(name_zs()==false){ 565. alert(\真实姓名填写错误\566. return false; 567. } 568. }

569. if(document.getElementById('u_qq').value !=\570. if(qq()==false){ 571. alert(\号码填写错误\572. return false; 573. } 574. }

575. if (document.getElementById('u_alipay').value !=\576. if(alipay()==false){ 577. alert(\支付宝帐号填写错误\578. return false; 579. }

580. }

581. if (document.getElementById('u_nunber').value !=\582. if(nunber()==false){ 583. alert(\身份证号码填写错误\584. return false; 585. } 586. }

587. document.form2.submit(); 588. return true; 589. } 590. 附：

Access重命名数据库表列的方法

一、删除重建法

过程：首先先新建一个目标名的列，然后将原数据复制到新列，删除原列即可 格式：

ALTER TABLE TB_INFO ADD (CONTENT1 varchar2(20));//添加varchar2类型新列 UPDATE TB_INFO SET CONTENT1=CONTENT; //将content列内容复制到content1列 ALTER TABLE TB_INFO DROP COLUMN CONTENT;//删除varchar2类型列 ALTER TABLE TB_INFO RENAME COLUMN CONTENT1 TO CONTENT; 例如：

alter table tb_info add (content1 varchar2(20));//添加varchar2类型新列 update tb_info set content1=content; //将content列内容复制到content1列 alter table tb_info drop column content;//删除varchar2类型列

alter table tb_info rename column content1 to content;//重命名列在Access不可用 二、用Adox重命名Access表名 过程：

Dim Conn,ConnStr,oCat,oTbl

ConnStr = \Set oCat=Server.CreateObject(\ oCat.ActiveConnection = ConnStr

Set oTbl = Server.CreateObject(\

Set oTbl = oCat.Tables(\要重命名的表名：OldTable oTbl.Name = \新表名 Set oCat = Nothing Set oTbl = Nothing