www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > user/user_reg_form.asp

    <%
'===================================================================
'= ASP FILENAME	: /user/user_reg_form.asp
'= CREATED TIME : 2006-5-4
'= LAST MODIFIED: 2006-5-4
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用户注册
'= Change Log    :
'===================================================================
%>

<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "../forum/class_html_form.asp" -->
<!-- #include file = "./user_inc.asp" -->
<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "user/user_reg_form.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "用户注册"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "FormUserRegisterCtl"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'== 页面构造
Call ActionBuild()

'== 在模板中引用的标签变量
Dim TAG_strVerifyCode	'== 表单校验
Dim TAG_objDicUnit		'== 单列记录

'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()
%>
<%
'===================================================================
'= Function    : LoadPageTpl()
'= Time		   : Created At 2006-5-4
'= Description : 加载页面模块
'===================================================================
Function LoadPageTpl()
%>
	<!-- #include file = "../template_c/page_user_reg_form.html.asp" --> 
<%
End Function

'===================================================================
'= Function    : FormUserRegisterCtl() 
'= Time        : Created At Aug,24,2003
'= Input       : None
'= Table	   : 
'= Description : 用户注册
'===================================================================
Sub FormUserRegisterCtl()
	
	Dim clsForm
	Dim strHtmlCode

	GBL_cssIptText = ""

	Set clsForm = New classFormOld
	clsForm.Action = "./user_reg_save.asp?action=FormSaveUserRegister"
	clsForm.Id = "frmFormUserReg"
	clsForm.Name = "frmFormUserReg"
	clsForm.OnSubmit = "return CheckFormUserReg(this)"
	clsForm.ColumnScale = "30%"
	clsForm.MakeForm()
	clsForm.MakeTable "0","3","1","center","90%",GBL_cssFormTable

	clsForm.AddTr GBL_cssFormTitle
	clsForm.AddTitle "新 用 户 注 册",GBL_cssFormTitle

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*申请用户名(2-10位)",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptAccount","10","15"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*有效E-mail地址",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptEmail","40","15"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*真实中文姓名",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptRealName","4","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*用户密码(至少6位)",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddPwd "iptPassword","20","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*密码确认(至少6位)",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddPwd "iptPassword2","20","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*忘记密码提示问题",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptQuestion","50","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*密码取回问题答案",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptAnswer","50","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "QQ号码",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptQq","40","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*工作单位",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptWorkShop","100","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "电话号码",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptTele","100","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "通信地址",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "iptAddress","100","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "<font color=red>*</font>在校班级",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddText "selClass","100","30"

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*入学年份",GBL_cssFormTdLeft,GBL_cssFormTdRight
	Dim i
	clsForm.AddSelect "selEnroll",""
	For i = 1950 To 2008
		clsForm.AddOption i,i,""
	Next

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*毕业年份",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddSelect "selGrad",""
	For i = 1950 To 2015
		clsForm.AddOption i,i,""
	Next

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "*职业领域",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddSelect "selWork",""
	clsForm.AddOption "经营/管理","经营/管理",""
	clsForm.AddOption "销售/业务","销售/业务",""
	clsForm.AddOption "市场营销/公关","市场营销/公关",""
	clsForm.AddOption "客户服务","客户服务",""
	clsForm.AddOption "行政/人事/人力资源","行政/人事/人力资源",""
	clsForm.AddOption "财务/审计/统计","财务/审计/统计",""
	clsForm.AddOption "文职","文职",""
	clsForm.AddOption "翻译","翻译",""
	clsForm.AddOption "计算机/IT","计算机/IT",""
	clsForm.AddOption "电子/通讯","电子/通讯",""
	clsForm.AddOption "设计","设计",""
	clsForm.AddOption "工业/工厂","工业/工厂",""
	clsForm.AddOption "金融/经济","金融/经济",""
	clsForm.AddOption "法律","法律",""
	clsForm.AddOption "机械","机械",""
	clsForm.AddOption "技工","技工",""
	clsForm.AddOption "房地产/土建","房地产/土建",""
	clsForm.AddOption "咨询/顾问","咨询/顾问",""
	clsForm.AddOption "医疗/护理/保健","",""
	clsForm.AddOption "文教体","文教体",""
	clsForm.AddOption "服务业","服务业",""
	clsForm.AddOption "化工/制药/环境/冶金/地质","化工/制药/环境/冶金/地质",""
	clsForm.AddOption "政府机关/事业单位/公务员","政府机关/事业单位/公务员",""
	clsForm.AddOption "其他专业","其他专业",""
	clsForm.AddOption "学生","学生",""


	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "成员性别",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddSelect "selSex",""
	clsForm.AddOption "男","男",""
	clsForm.AddOption "女","女",""

	clsForm.AddTr GBL_cssFormTr
	clsForm.AddTd "用户生日",GBL_cssFormTdLeft,GBL_cssFormTdRight
	clsForm.AddSelect "selBirthYear","年 "
	For i = 1950 To 2000
		clsForm.AddOption i,i,""
	Next
	clsForm.AddSelect "selBirthMon","月 "
	For i = 1 To 12
		clsForm.AddOption i,i,""
	Next
	clsForm.AddSelect "selBirthDay","日"
	For i = 1 To 31
		clsForm.AddOption i,i,""
	Next

	'== check user reg whether or not need check by question
	If GBL_intUserRegMode = 2 Then

		GBL_objPubDB.Clear()
		GBL_objPubDB.TableName = "CLASS_REG"
		GBL_objPubDB.SQLType = "SELECT"
		GBL_objPubDB.AddField "TOP 5 REG_QUESTION",""
		GBL_objPubDB.SQLRSExecute()
		Call ResultExecute(GBL_objPubDB.intErrNum,"user check before reg","ES_ERR")

		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "*校友成员校验",GBL_cssFormTdLeft,GBL_cssFormTdRight
		clsForm.AddLine	"请从校友管理员或班级成员处获取答案"

		If GBL_objPubDB.intRSNum > 0 Then

			For i = 1 To GBL_objPubDB.intRSNum

				clsForm.AddTr GBL_cssFormTr
				clsForm.AddTd "校验问题" & i,GBL_cssFormTdLeft,GBL_cssFormTdRight
				clsForm.AddLine GBL_objPubDB.objPubRS("REG_QUESTION")

				clsForm.AddTr GBL_cssFormTr
				clsForm.AddTd "问题回答" & i,GBL_cssFormTdLeft,GBL_cssFormTdRight
				clsForm.AddText "iptRegQuestion" & i ,"100","30"

				GBL_objPubDB.objPubRS.MoveNext

			Next

		End If
	
	End If

	clsForm.AddTr GBL_cssFormTr & " align=center "
	clsForm.AddSubTd GBL_cssFormTd
	clsForm.AddSub "subUserReg class=form_radio ","提 交","submit"
	clsForm.AddSub "rstUserReg","重 写","reset"

	clsForm.OutPutForm()
	Set clsForm = Nothing

End Sub
%>