账号通
    

账号  

密码  

3533

查看

8

回复
主题:求助{=GetPhotoPage(3,5,603,452)} [收藏主题] 转到:  
ahzw_sos 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:52 分
登录次数:2 次
注册时间:2009/11/30
最后登录:2009/11/30
ahzw_sos 发表于:2009/11/30 14:22:00   | 只看该作者 查看该作者主题 楼主 
科汛在线考试系统(NET)
{=GetPhotoPage(3,5,603,452)} 我想改下这个标签的属性,不要那个边框,或都加上颜色也行,请问怎样改?
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rain_y 当前离线

121

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:913 分
登录次数:91 次
注册时间:2008/4/10
最后登录:2012/5/23
rain_y 发表于:2010/1/24 19:43:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
再度希望引起高手的注意!,谢谢
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
rain_y 当前离线

121

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:913 分
登录次数:91 次
注册时间:2008/4/10
最后登录:2012/5/23
rain_y 发表于:2010/1/22 12:44:00   | 只看该作者 查看该作者主题 藤椅 
科汛在线商城系统(NET)
我也修改了,并更新缓存,重新生成,但没有反应
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ahzw_sos 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:52 分
登录次数:2 次
注册时间:2009/11/30
最后登录:2009/11/30
ahzw_sos 发表于:2009/11/30 15:14:00   | 只看该作者 查看该作者主题 板凳 
科汛在线商城系统(NET)
改了一点反应都 没有 我觉得还是不是该这个
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cexoxass 当前离线

405

主题

0

广播

1

粉丝
添加关注
级别:四年级

用户积分:2331 分
登录次数:214 次
注册时间:2009/11/5
最后登录:2012/6/1
cexoxass 发表于:2009/11/30 15:06:00   | 只看该作者 查看该作者主题 报纸 
科汛在线商城系统(NET)

 style='border:1px #999999 solid' border='0'

#999999

这个就是边框颜色 了

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ahzw_sos 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:52 分
登录次数:2 次
注册时间:2009/11/30
最后登录:2009/11/30
ahzw_sos 发表于:2009/11/30 14:38:00   | 只看该作者 查看该作者主题 地板 
科汛智能建站系统
您能帮忙看看是修改那块吗
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ahzw_sos 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:52 分
登录次数:2 次
注册时间:2009/11/30
最后登录:2009/11/30
ahzw_sos 发表于:2009/11/30 14:38:00   | 只看该作者 查看该作者主题 7楼 
科汛在线网校系统
   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) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/11/30 14:31:00   | 只看该作者 查看该作者主题 8楼 
科汛在线考试系统(NET)
看看ks_cls/kesion.label.commoncls.asp这个文件
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ahzw_sos 当前离线

5

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:52 分
登录次数:2 次
注册时间:2009/11/30
最后登录:2009/11/30
ahzw_sos 发表于:2009/11/30 14:23:00   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.18604秒 powered by KesionCMS 9.0