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"

%>