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 %>