album_inc.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
''===================================================================
'= ASP FILENAME	: /album/album_func.asp
'= CREATED TIME : Nov,08,2003
'= LAST MODIFIED: Nov,08,2003
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : Album public functions and subs and parameter
'= Change Log    :
'==================================================================='
%>

<%
'== 参数定义
Const CONST_ALBUM_TYPE = "个人风采,同学时光,校园追忆,同城岁月"
Dim GBL_strAlbumType : GBL_strAlbumType = array("个人风采","同学时光","校园追忆","同城岁月")


'== 上传相片数据校验设置
Dim arrAlbumAddDataChk(1)
arrAlbumAddDataChk(0) = Array("DT_FIX_LENGTH"	,"iptPicTitle"	,"相片标题"	,1	,20)
arrAlbumAddDataChk(1) = Array("DT_ENUM"			,"selPicType"	,"相片类型"		,"个人风采,同学时光,校园追忆,同城岁月")
'arrAlbumAddDataChk(2) = Array("DT_FIX_LENGTH"	,"file1"	,"相片文件"	,4	,40)
'== 上传表单名
Dim strAlbumAddFormName : strAlbumAddFormName = "iptPicTitle|selPicType"

'== 粘贴相片数据校验设置
Dim arrAlbumPasteDataChk(3)
arrAlbumPasteDataChk(0) = Array("DT_FIX_LENGTH"	,"iptPicTitle"	,"相片标题"	,1	,20)
arrAlbumPasteDataChk(1) = Array("DT_ENUM"		,"selPicType"	,"相片类型"	,"个人风采,同学时光,校园追忆,同城岁月")
arrAlbumPasteDataChk(2) = Array("DT_URL"		,"iptPicUrl"	,"相片文件")
arrAlbumPasteDataChk(3) = Array("DT_FIX_LENGTH"	,"iptPicUrl"	,"相片文件",10,255)
Dim strAlbumPasteFormName : strAlbumPasteFormName = "iptPicTitle|selPicType|iptPicUrl"

'== 查看单张相片数据校验
Dim arrAlbumViewDataChk(0)
arrAlbumViewDataChk(0) = Array("DT_ID","intAlbumId","相片")

'== 发相片评论数据校验
Dim arrAddAlbumReviewDataChk(0)
arrAddAlbumReviewDataChk(0) = Array("DT_CONTENT","txtContent","评论内容",1,240)
'== 发相片评论表单名
Dim arrAddAlbumReviewFormName : arrAddAlbumReviewFormName = "txtContent"

'== 删除相片评论数据校验
Dim arrDelAlbumReviewDataChk(0)
arrDelAlbumReviewDataChk(0) = Array("DT_ID","intAlbumReviewId","相片评论")

'== 删除相片数据校验
Dim arrDelAlbumDataChk(0)
arrDelAlbumDataChk(0) = Array("DT_ID","intAlbumId","相片评论")

''===================================================================
'= Function    : MakeListPhoto()
'= Time		   : Created At 2006-5-6
'= Description : show all photo by list mode
'= Change Log  :
'==================================================================='
Function MakeListPhoto()
	
	Dim strTmp 
	Dim strImgPath

	strImgPath = GBL_strHomeURL & GBL_strImgDir

	strTmp  = "<table border=0 cellpadding=0 cellspacing=0 >"
    strTmp = strTmp & "<tbody> "
    strTmp = strTmp & "	<tr >"
    strTmp = strTmp & "		<td ><img height=17 src=" & strImgPath & "photolist_leftop.gif" 
    strTmp = strTmp & "            width=17></td>"
    strTmp = strTmp & "     <td background=" & strImgPath  & "photolist_top.gif><img height=17 " 
    strTmp = strTmp & "              src=" & strImgPath & "photolist_top.gif width=1></td>"
    strTmp = strTmp & "     <td><img height=17 src=" & strImgPath & "photolist_rightop.gif"
    strTmp = strTmp & "	              width=17></td>"
    strTmp = strTmp & "	</tr>"
    strTmp = strTmp & "<tr>"
    strTmp = strTmp & "		<td background=" & strImgPath & "photolist_left.gif>&nbsp;</td>"
    strTmp = strTmp & "	    <td>[img]</td>"
    strTmp = strTmp & "		<td background=" & strImgPath & "photolist_right.gif>&nbsp;</td>"
    strTmp = strTmp & "</tr>"
    strTmp = strTmp & "<tr> "
    strTmp = strTmp & "		<td><img height=18 src=" & strImgPath & "photolist_leftbottom.gif"
    strTmp = strTmp & "	              width=17></td>"
    strTmp = strTmp & "	<td background=" & strImgPath & "photolist_bottom.gif><img height=18 "
    strTmp = strTmp & "	src=" & strImgPath & "photolist_bottom.gif width=1></td>"
    strTmp = strTmp & "	<td><img height=18 src=" & strImgPath & "photolist_rightbottom.gif"
    strTmp = strTmp & "	width=17></td>"
    strTmp = strTmp & "</tr>"
    strTmp = strTmp & "</tbody>"
    strTmp = strTmp & "</table>"
	
	MakeListPhoto = strTmp

End Function
%>