<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->
<%
'注册验证
LocalValid
'整合应用注册
'i_Syn_Notify_Reg t_UserName,t_UserPass,t_UserMail 


dim t_UserID,t_UserName,t_UserPass,t_ReUserPass,t_UserNickName,t_UserMail,t_UserSex
'本地注册验证
Sub LocalValid()
	'验证数据
	if Request.QueryString("t")="username" then
			t_UserName = Get_SafeStr(Request.QueryString("d")) '验证账号
			if not ValidReg(t_UserName,vAccount) then RW "此账号格式错误！":Rend
			if not CheckRepeatUserName(t_UserName) then RW "此账号已经被注册！":Rend
			RW "true"
	elseif Request.QueryString("t")="usermail" then
			t_UserMail = Get_SafeStr(Request.QueryString("d")) '验证账号
			if not ValidReg(t_UserMail,vEmail) then RW "此邮箱地址格式错误！":Rend
			if not CheckRepeatMail(t_UserMail) then RW "此邮箱地址已经被注册！":Rend
			RW "true"
	elseif Request.QueryString("t")="usernickname" then
			t_UserNickName = Get_SafeStr(Request.QueryString("d")) '验证账号
			if not ValidReg(t_UserNickName,vNickName) then RW "昵称格式有错误！":Rend
			if not CheckRepeatNick(t_UserNickName) then RW "此昵称已经被注册！":Rend
			RW "true"
	else
		RW "true"
	end if
End Sub
%>