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

     <%
'===================================================================
'= ASP FILENAME	: /board/board_inc.asp
'= CREATED TIME : MAY,4,2003
'= LAST MODIFIED: SEP,1,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 留言板公用函数和变量定义
'= Change Log:
'===================================================================
Dim intSmileFace : intSmileFace = 30
GBL_intImgWidth2 = 350

'==  添加留言数据校验设置
Dim arrAddBoardDataChk(2)
arrAddBoardDataChk(0) = Array("DT_FIX_LENGTH"	,"iptTitle"		,"留言主题"			,1	,20)
arrAddBoardDataChk(1) = Array("DT_FIX_LENGTH"	,"iptSmileFace"	,"表情图标文件名"	,1	,20)
arrAddBoardDataChk(2) = Array("DT_CONTENT"		,"txtContent"	,"留言内容" 		,1	,1000)
'== 添加留言表单名
Dim strAddBoardFormName : strAddBoardFormName = "iptTitle|iptSmileFace|txtContent"


'==  修改留言(form)数据校验设置
Dim arrMdyBoardFormDataChk(1)
arrMdyBoardFormDataChk(0) = Array("DT_ID"			,"BoardId"		,"该留言" 			)
arrMdyBoardFormDataChk(1) = Array("DT_ID"			,"intPageNow"	,"该页码参数" 		)

'==  修改留言(database)数据校验设置
Dim arrMdyBoardDataChk(2)
arrMdyBoardDataChk(0) = Array("DT_FIX_LENGTH"	,"iptTitle"		,"留言主题"			,1	,20)
arrMdyBoardDataChk(1) = Array("DT_FIX_LENGTH"	,"iptSmileFace"	,"表情图标文件名"	,1	,20)
arrMdyBoardDataChk(2) = Array("DT_CONTENT"		,"txtContent"	,"留言内容" 		,1	,1000)
'== 修改留表单名
Dim strMdyBoardFormName : strMdyBoardFormName = "iptTitle|iptSmileFace|txtContent"

'==  删除留言数据校验设置
Dim arrDelBoardDataChk(1)
arrDelBoardDataChk(0) = Array("DT_ID"			,"BoardId"		,"该留言" 			)
arrDelBoardDataChk(1) = Array("DT_ID"			,"intPageNow"	,"该页码参数" 		)
%>