www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > album/album_inc.asp
<% ''=================================================================== '= 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 style='padding:0px 0px 0px 0px; ' >" strTmp = strTmp & "<tbody> " strTmp = strTmp & " <tr style='padding:0px 0px 0px 0px; '>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; '><img height=17 src=" & strImgPath & "photolist_leftop.gif" strTmp = strTmp & " width=17></td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; ' background=" & strImgPath & "photolist_top.gif><img height=17 " strTmp = strTmp & " src=" & strImgPath & "photolist_top.gif width=1></td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; '><img height=17 src=" & strImgPath & "photolist_rightop.gif" strTmp = strTmp & " width=17></td>" strTmp = strTmp & " </tr>" strTmp = strTmp & "<tr style='padding:0px 0px 0px 0px; '>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; ' background=" & strImgPath & "photolist_left.gif> </td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; ' >[img]</td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; ' background=" & strImgPath & "photolist_right.gif> </td>" strTmp = strTmp & "</tr>" strTmp = strTmp & "<tr> " strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; '><img height=18 src=" & strImgPath & "photolist_leftbottom.gif" strTmp = strTmp & " width=17></td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; ' background=" & strImgPath & "photolist_bottom.gif><img height=18 " strTmp = strTmp & " src=" & strImgPath & "photolist_bottom.gif width=1></td>" strTmp = strTmp & " <td style='padding:0px 0px 0px 0px; '><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 %>