www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > user/user_inc.asp
<% '=================================================================== '= ASP FILENAME : /user/user_func.asp '= CREATED TIME : MAY,4,2003 '= LAST MODIFIED: AUG,24,2003 '= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com '= DESCRIPTION : User register ,login and exit functions '=================================================================== %> <% '== 用户资料修改表单数据校验设置 Dim arrUserMdyDataChk(13) arrUserMdyDataChk(0) = Array("DT_EMAIL" ,"iptEmail" ,"Email") arrUserMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptRealName" ,"真实姓名" ,2 ,4) arrUserMdyDataChk(2) = Array("DT_FIX_LENGTH" ,"iptQuestion" ,"你的密码问题" ,1 ,50) arrUserMdyDataChk(3) = Array("DT_FIX_LENGTH" ,"iptAnswer" ,"你的问题答案" ,1 ,50) arrUserMdyDataChk(4) = Array("DT_FIX_LENGTH" ,"iptWorkShop" ,"所在单位" ,4 ,100) arrUserMdyDataChk(5) = Array("DT_FIX_LENGTH" ,"iptClass" ,"在校班级" ,4 ,20) arrUserMdyDataChk(6) = Array("DT_INT_BETWEEN" ,"selEnroll" ,"入学年份", 1950,2008) arrUserMdyDataChk(7) = Array("DT_INT_BETWEEN" ,"selGrad" ,"毕业年份", 1950,2015) arrUserMdyDataChk(8) = Array("DT_FIX_LENGTH" ,"selWork" ,"职业领域" ,1 ,20) arrUserMdyDataChk(9) = Array("DT_ENUM" ,"selSex" ,"性别" ,"男,女") arrUserMdyDataChk(10) = Array("DT_INT_BETWEEN" ,"selBirthYear" ,"你的出生年份" ,1950,2002) arrUserMdyDataChk(11) = Array("DT_INT_BETWEEN" ,"selBirthMon" ,"你的出生月份" ,1, 12) arrUserMdyDataChk(12) = Array("DT_INT_BETWEEN" ,"selBirthDay" ,"你的出生日期" ,1, 31) arrUserMdyDataChk(13) = Array("DT_FIX_LENGTH" ,"txtContent" ,"用户签名档" ,1, 240) '== 用户资料修改表单名 Dim strUserMdyFormName : strUserMdyFormName = "iptEmail|iptRealName|iptQuestion|iptAnswer|iptWorkShop|iptClass|selEnroll|selGrad|selWork|selSex|selBirthYear|selBirthMon|selBirthDay|txtContent|iptQq|iptTele|iptAddress" '== 用户密码修改表单数据校验设置 Dim arrUserPwdMdyDataChk(2) arrUserPwdMdyDataChk(0) = Array("DT_FIX_LENGTH" ,"iptOldPwd" ,"您的原密码" ,6 ,20) arrUserPwdMdyDataChk(1) = Array("DT_FIX_LENGTH" ,"iptNewPwd" ,"您的新密码" ,6 ,20) arrUserPwdMdyDataChk(2) = Array("DT_FIX_LENGTH" ,"iptNewPwd2" ,"您的确认密码" ,6 ,20) Dim strUserPwdMdyFormName : strUserPwdMdyFormName = "iptOldPwd|iptNewPwd|iptNewPwd2" '== 用户首选签名图设置表单名 Dim strUserFaceSetFormName : strUserFaceSetFormName = "rdoFaceSet" '== 用户卡通签名图设置表单名 Dim strUserCartoonFormName : strUserCartoonFormName = "iptCartoonFace" '== 上传个人图片数据校验 Dim arrUserShowUploadDataChk(0) arrUserShowUploadDataChk(0) = Array("DT_FIX_LENGTH" ,"hidUpFace","用户签名图片文件指定" ,4 ,40) Dim strUseShowUploadFormName : strUseShowUploadFormName = "hidUpFace" %>