reg.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<!--#include file="../Inc/Cl_ClsEmail.asp"-->
<!--#include file="../Inc/Cl_ClsCount.asp"-->
<!--#include file="../Inc/Cl_Md5.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<%
Const ChannelID=0
if UserTableType = "Dvbbs" then Response.Redirect BbsDir&"Reg.asp"
if Cl.Web_Info(11)="Close" then
	response.Redirect Cl.WebDir&"Showerr.asp?action=Close"
	response.end
end if
if Cl.Web_Setting(21)<>"Yes" then Call Cl.OutErr(0,Cl.Language.selectSingleNode("//Reg/Stop").text)
Dim Action
Dim UserName,Password,PwdConform,Question,Answer,Sex,Email
Dim UserReName,IDCard,BirthDay,CityInfo,ZipCode,UserTelePhone,UserAddRess
Dim SchoolAge,UserWorking,UserHomePhone,UserMobile
Dim UserIM,CheckNum,CheckUrl,sqlReg,rsReg
Dim PageTitle
Dim RsGroup,sChargeType,sValidDays,sGroupPoint
Action=Lcase(Trim(Request("Action")))
If Action<>"active" And Action<>"check" And Action<>"post" And Action<>"apply" Then Action="main"
PageTitle=Cl.Language.selectSingleNode("//Reg/Title/"&Action&"").text
Select Case Lcase(Action)
Case "active"
	Reg_Active
Case "check"
	Reg_Check
Case "post"
	Reg_Post
	TempStr=RegSuccess
Case "apply"
	Call Template.Load(-2,3)
	TempStr=Template.Html
	TempStr=Replace(TempStr,"{$limlength}",Split(Cl.Web_Setting(22),"|")(0))
	TempStr=Replace(TempStr,"{$maxlength}",Split(Cl.Web_Setting(22),"|")(1))
Case Else
	Call Template.Load(-2,2)
	TempStr=Template.Html
End Select
Cl.Path = Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; " & PageTitle
Cl.Title= Cl.Web_info(1) & " &gt;&gt; " & PageTitle
Response.write Template.ReplaceAllFlag(TempStr)
CloseAllObj
Sub Reg_Post()
	UserName		= Trim(request.form("UserName"))
	Password		= Trim(request.form("Password"))
	PwdConform		= Trim(request.form("PwdConform"))
	Question		= Trim(request.form("Question"))
	Answer			= Trim(request.form("Answer"))
	Sex				= Cl.GetClng(request.form("Sex"))
	Email			= Trim(request.form("Email"))
	UserIM			=sRIM(Trim(Request.form("Homepage")))&"|||"&sRIM(Trim(Request.form("QQ")))&"|||"&sRIM(Trim(Request.form("ICQ")))&"|||"&sRIM(Trim(Request.form("MSN")))&"|||"&sRIM(Trim(Request.form("AIM")))&"|||"&sRIM(Trim(Request.form("YaHoo")))&"|||"&sRIM(Trim(Request.form("UC")))
	UserIM			= Server.HTMLencode(UserIM)
	UserReName		= Trim(request.form("UserReName"))
	IDCard			= Trim(request.form("IDCard"))
	BirthDay		= Trim(request.form("BirthDay"))
	CityInfo			=Server.HTMLencode(sRIM(Trim(request.form("Country")))&"|||"&sRIM(Trim(request.form("Province")))&"|||"&sRIM(Trim(request.form("City"))))
	ZipCode			= Trim(Request.form("ZipCode"))
	UserTelePhone	= Trim(request.form("UserTelePhone"))
	UserAddRess		= Trim(request.form("UserAddRess"))
	SchoolAge		= Trim(request.form("SchoolAge"))
	UserWorking		= Trim(request.form("UserWorking"))
	UserHomePhone	= Trim(request.form("UserHomePhone"))
	UserMobile		= Trim(request.form("UserMobile"))
	Dim ObjErr
	Dim MaxLen,MiniLen,NameLen,PassLen
	MaxLen	= Cint(Split(Cl.Web_Setting(22),"|")(1))
	MiniLen	= Cint(Split(Cl.Web_Setting(22),"|")(0))
	NameLen	= Cl.strLength(UserName)
	PassLen = Cl.strLength(Password)
	Set ObjErr = Cl.Language.selectSingleNode("//User/ErrMsg")
	if BirthDay<>"" then
		if Not IsDate(BirthDay) then
		Call Cl.OutErr(0,ObjErr.selectSingleNode("BairthDay").text)
		end if
	end if
	if IDCard<>"" then
		if Not Isnumeric(IDCard) or len(Cstr(IDCard))<15 then
			Call Cl.OutErr(0,ObjErr.selectSingleNode("IDCard").text)
		end if
	end If
	if NameLen > MaxLen or NameLen < MiniLen then
		ErrMsg=ObjErr.selectSingleNode("NameLen").text
		ErrMsg=Replace(ErrMsg,"{$MaxLen}",MaxLen)
		ErrMsg=Replace(ErrMsg,"{$MiniLen}",MiniLen)
		Call Cl.OutErr(0,ErrMsg)
	else
		if Instr(UserName,chr(32))>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"