if CheckCode <> CStr(Session("CheckCode")) then
msg("您填写的验证码与系统产生的不一致,请重新输入")
end if
if( ChkInvaildWord(oldpass) or ChkInvaildWord(idzwd) or ChkInvaildWord(moldpass)) then
msg("请不要输入非法字符")
end if
if oldpass <> moldpass then
msg("两次密码不相同")
end if
set rs=server.createobject("adodb.recordset")
sql = "select * from account where name = '"&idzwd&"'"
rs.open sql,conn,1,1
If Not(rs.Eof And rs.Bof) Then
msg("注册失败,您输入"&id&"用户名已经被注册,请更换其它用户名")
rs.Close