账号通
    

账号  

密码  

1892

查看

3

回复
主题:SQL 之 {$CreateImage({$Field(photourl,Text,0,...,0,)},{$Param(1)},{$Param(2)})} 问世 For V6 [收藏主题] 转到:  
linksy 当前离线

188

主题

0

广播

1

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

用户积分:2516 分
登录次数:158 次
注册时间:2007/6/14
最后登录:2015/12/16
linksy 发表于:2009/10/13 22:54:00   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

SQL 之 {$CreateImage({$Field(photourl,Text,0,...,0,)},{$Param(1)},{$Param(2)})} 问世 For V6


 


该功能用于在自定义SQL 中动态处理图片


 


修改kesion.label.sqlcls.asp
      GetCirLabelContent=GetCirLabelContent &TempStr
    Else
      Exit For
    End If
     KS_RS_Obj.MoveNext
   Next
  GetCirLabelContent=MySplitField(GetCirLabelContent)
  GetCirLabelContent=CreateImage(GetCirLabelContent)
  GetCirLabelContent=CurrClassPosition(GetCirLabelContent)
  GetCirLabelContent=CurrInfoPosition(GetCirLabelContent)
  End Function


 


Function CreateImage(lpFieldValue)
  
   Dim regEx, Matches, Match
   if instr(lpFieldValue,"CreateImage")<=0 then
   CreateImage=lpFieldValue
   else
   Dim FieldParam,FieldParamArr,mytempValue,mytempNum,mytarget,templpFieldValue,file,filepath,filename,filebasename,fileextname
   Dim T:Set T=New Thumb
   Set regEx = New RegExp
   regEx.Pattern = "{\$CreateImage\([^{\$}]*}"
   regEx.IgnoreCase = True
   regEx.Global = True
   Set Matches = regEx.Execute(lpFieldValue)  
   For Each Match In Matches
    FieldParam    = Replace(Replace(Match.Value,"{$CreateImage(",""),")}","")
    FieldParamArr = Split(FieldParam,",")
 
 file=FieldParamArr(0)
 filepath=left(file,instrrev(file,"/"))
 filename=mid(file,instrrev(file,"/")+1)
 filebasename=split(filename,".")(0)
 call T.CreateThumb(FieldParamArr(0),FieldParamArr(1),FieldParamArr(2),1,0,filepath&filebasename&"_S.jpg")
 
 lpFieldValue=Replace(lpFieldValue,Match.Value,filepath&filebasename&"_S.jpg")
 
  
   Next
  
     CreateImage=lpFieldValue
  end if
 
  End Function

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

1387

主题

7

广播

2

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

用户积分:5750 分
登录次数:328 次
注册时间:2007/11/8
最后登录:2021/5/15
5kcn 发表于:2009/10/14 11:15:00   | 只看该作者 查看该作者主题 沙发 
科汛在线网校系统
楼主详细说明一下这个有什么作用啊 ?
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
linksy 当前离线

188

主题

0

广播

1

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

用户积分:2516 分
登录次数:158 次
注册时间:2007/6/14
最后登录:2015/12/16
linksy 发表于:2009/10/14 13:41:00   | 只看该作者 查看该作者主题 藤椅 

比如在自定义sql中使用了{$Field(photourl,Text,0,...,0,)},如果其过大,用JS来伪缩放,但打开还是慢。

这时就需要aspjpeg.pertiser 来时行真实压缩,而不改变{$Field(photourl,Text,0,...,0,)}本身,因些,该函数迫切需要。

 

 

 

 

 

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

215

主题

0

广播

0

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

用户积分:1301 分
登录次数:26 次
注册时间:2009/9/21
最后登录:2010/1/15
zyhoo 发表于:2009/10/14 9:34:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.10938秒 powered by KesionCMS 9.0