账号通
    

账号  

密码  

1911

查看

5

回复
主题:[求助]关于下载页中”软件图片“的问题 [收藏主题] 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/4/5 17:27:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

你到ks_cls/kesion.label.commoncls.asp里改下,做下判断就行

 

'下载缩略图(带参数)
    If InStr(F_C, "{=GetDownPhoto") <> 0 Then
     Dim HtmlLabel: HtmlLabel = KSLabel.GetFunctionLabel(F_C, "{=GetDownPhoto")
     Dim HtmlLabelArr:HtmlLabelArr=Split(HtmlLabel,"@@@")
     For I=0 To Ubound(HtmlLabelArr)
      Dim Param: Param = KSLabel.GetFunctionLabelParam(HtmlLabelArr(I), "{=GetDownPhoto")
      Dim LogoWidth: LogoWidth = Split(Param, ",")(0)
      Dim LogoHeight: LogoHeight = Split(Param, ",")(1)
      Dim PhotoUrl:PhotoUrl=RS("PhotoUrl")
      If Not (IsNull(PhotoUrl) Or PhotoUrl = "") Then
       F_C = Replace(F_C,HtmlLabelArr(I), "<div align=""center""><img src=""" & PhotoUrl & """  width=""" & LogoWidth & """ height=""" & LogoHeight & """ border=""0""></div>")
      Else
       F_C = Replace(F_C, HtmlLabelArr(I), "<div align=""center""><img src=""" & DomainStr & "images/nopic.gif""  width=""" & LogoWidth & """ height=""" & LogoHeight & """ border=""0""></div>")
      End If
       Next
      End If

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.04688秒 powered by KesionCMS 9.0