|
主题:求助{=GetPhotoPage(3,5,603,452)} [收藏主题] | 转到: |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
case 2 '图片模型
Content=Node.SelectSingleNode("@picurls").text If IsNull(Content) Then Content = "" ContentArr = Split(Content, "|||") : TotalPage = UBound(ContentArr) + 1 If InStr(TempFileContent, "{=GetPhotoPage") <> 0 Then Dim HtmlLabel:HtmlLabel = KSLabel.GetFunctionLabel(TempFileContent, "{=GetPhotoPage") Dim Param:Param = split(KSLabel.GetFunctionLabelParam(HtmlLabel, "{=GetPhotoPage"),",") Dim Rows:Rows=Param(0) Dim Cols:Cols=Param(1) Dim Width:Width=Param(2) Dim Height:Height=Param(3) Dim r,c,str if ((ubound(ContentArr)+1) mod (cols*rows))=0 then TotalPage=(ubound(ContentArr)+1)\(cols*rows) else TotalPage=(ubound(ContentArr)+1)\(cols*rows) + 1 For I = 1 To TotalPage str="<table cellspacing=""20"" cellpadding=""0"" align=""center"" border=""0"">" if TotalPage<=1 then n=0 else n=(cols*rows)*(I-1) For r=1 to rows str=str & "<tr>" For c=1 To Cols dim thumbsphoto if n<=ubound(ContentArr) Then PicSrc=Split(ContentArr(n), "|")(2) If (Lcase(Left(PicSrc,4))<>"http") Then PicSrc=KS.Setting(2) & PicSrc thumbsphoto="<table cellspacing=""0"" cellpadding=""0"" width=""100%"" align=""center"" border=""0""><tr><td style='border:1px #999999 solid;background:#FFFFFF;padding:10px;text-align:center'><a id="""" href=""" & Split(ContentArr(n), "|")(1) & """ class=""highslide"" onclick=""return hs.expand(this)"" title=""""><img alt='" & Split(ContentArr(n), "|")(0) & "' width='" & width &"' height='" & height & "' src='" & Split(ContentArr(n), "|")(2) & "' style='border:1px #999999 solid' border='0'></a><div style='text-align:center'>" & Split(ContentArr(n), "|")(0) & "</div></td></tr></table>" else thumbsphoto="" |
|
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |