账号通
    

账号  

密码  

3326

查看

7

回复
主题:[分享][强列要求申精]SQL 之 {$CreateImage({$Field(photourl,Text,0,...,0,)},{$Param(1)},{$Param(2)})} 问世 V8 [收藏主题] 转到:  
theday 当前离线

4

主题

0

广播

0

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

用户积分:6 分
登录次数:3 次
注册时间:2011/9/10
最后登录:2011/9/14
theday 发表于:2011/9/10 19:38:23   | 只看该作者 查看该作者主题 楼主 

  

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



效果如下http://www.chengrenyongpinunion.com/html/xingaibaike/thread_425.html

修改kesion.label.sqlcls.asp



  1.       GetCirLabelContent=GetCirLabelContent &TempStr

  2.     Else
  3.       Exit For
  4.     End If
  5.      KS_RS_Obj.MoveNext
  6.    Next
  7.   GetCirLabelContent=MySplitField(GetCirLabelContent)
  8.   GetCirLabelContent=CreateImage(GetCirLabelContent)
  9.   GetCirLabelContent=CurrClassPosition(GetCirLabelContent)
  10.   GetCirLabelContent=CurrInfoPosition(GetCirLabelContent)
  11.   End Function

  12. Function CreateImage(lpFieldValue)

  13.    
  14.    Dim regEx, Matches, Match
  15.    if instr(lpFieldValue,"CreateImage")<=0 then
  16.    CreateImage=lpFieldValue
  17.    else
  18.    Dim FieldParam,FieldParamArr,mytempValue,mytempNum,mytarget,templpFieldValue,file,filepath,filename,filebasename,fileextname
  19.    Dim T:Set T=New Thumb
  20.    Set regEx = New RegExp
  21.    regEx.Pattern = "{\$CreateImage\([^{\$}]*}"
  22.    regEx.IgnoreCase = True
  23.    regEx.Global = True
  24.    Set Matches = regEx.Execute(lpFieldValue)   
  25.    For Each Match In Matches
  26.     FieldParam    = Replace(Replace(Match.Value,"{$CreateImage(",""),")}","")
  27.     FieldParamArr = Split(FieldParam,",")
  28. file=FieldParamArr(0)
  29. filepath=left(file,instrrev(file,"/"))
  30. filename=mid(file,instrrev(file,"/")+1)
  31. filebasename=split(filename,".")(0)
  32. call T.CreateThumb(FieldParamArr(0),FieldParamArr(1),FieldParamArr(2),1,0,filepath&filebasename&"_S.jpg")
  33. lpFieldValue=Replace(lpFieldValue,Match.Value,filepath&filebasename&"_S.jpg")
  34.    
  35.    Next
  36.    
  37.      CreateImage=lpFieldValue
  38.   end if
  39.   
  40.   End Function





 
  支持(3) | 反对(6) 回到顶部顶端 回到底部底部
lengxue 当前离线

3043

主题

18

广播

4

粉丝
添加关注
级别:大二

用户积分:10431 分
登录次数:1606 次
注册时间:2009/1/13
最后登录:2024/7/7
lengxue 发表于:2011/9/10 20:07:06   | 只看该作者 查看该作者主题 沙发 
 
想旅游就来就爱旅游网
[url]http://bbs.shangrila66.com[/url]
大香格里拉旅游王国
[url]http://www.shangrila66.com[/url]
  支持(5) | 反对(4) 回到顶部顶端 回到底部底部
theday 当前离线

4

主题

0

广播

0

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

用户积分:6 分
登录次数:3 次
注册时间:2011/9/10
最后登录:2011/9/14
theday 发表于:2011/9/11 15:12:35   | 只看该作者 查看该作者主题 藤椅 

基本服务器模式的图片压缩机制,极速访问网页

 
<a href=http://www.chengrenyongpinunion.com/>欢乐谷是亚洲成人用品品牌联盟,上海情趣用品第一品牌</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
otbbs 当前离线

1605

主题

12

广播

2

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

用户积分:8980 分
登录次数:1225 次
注册时间:2006/8/7
最后登录:2023/11/29
otbbs 发表于:2011/9/13 17:16:00   | 只看该作者 查看该作者主题 板凳 
什么用途说来听听。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
theday 当前离线

4

主题

0

广播

0

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

用户积分:6 分
登录次数:3 次
注册时间:2011/9/10
最后登录:2011/9/14
theday 发表于:2011/9/13 17:54:49   | 只看该作者 查看该作者主题 报纸 
科汛在线考试系统(NET)

把一张大图缩成小图,在列表页调用小图,内容页调用大图

 
<a href=http://www.chengrenyongpinunion.com/>欢乐谷是亚洲成人用品品牌联盟,上海情趣用品第一品牌</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
theday 当前离线

4

主题

0

广播

0

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

用户积分:6 分
登录次数:3 次
注册时间:2011/9/10
最后登录:2011/9/14
theday 发表于:2011/9/14 15:42:50   | 只看该作者 查看该作者主题 地板 
 
<a href=http://www.chengrenyongpinunion.com/>欢乐谷是亚洲成人用品品牌联盟,上海情趣用品第一品牌</a>
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
gaoxun09 当前离线

1184

主题

0

广播

0

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

用户积分:1146 分
登录次数:43 次
注册时间:2011/6/24
最后登录:2012/8/6
gaoxun09 发表于:2011/9/15 12:18:18   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cn8151 当前离线

817

主题

5

广播

0

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

用户积分:9288 分
登录次数:135 次
注册时间:2010/4/9
最后登录:2016/3/17
cn8151 发表于:2011/9/15 13:40:51   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.23438秒 powered by KesionCMS 9.0