很多客户咨询说网上有不少生成缩略图的ASP组件,若您使用的是虚拟空间不支持注册第三方组件组件,可能会感觉自己的网站失色不少。我们结合网上资源写了个无组件生成缩略图程序,仅供参考。还是先看看基础部分吧。首先,我们知道在页面中显示图片是如下代码:
src是图片路径,border控制图片边缘宽度,width是图片的长度,height是图片的高度。缩略图的生成其实就是在原始尺寸上缩放。但一般为了尽量少失真,我们都会按比例缩放。于是,获取图片的长宽尺寸也就成了生成缩略图的重点。
下面便是编写无组件生成缩略图的步骤:
1.无组件获取图片大小
利用ADODB.stream获取图片尺寸的通用类
<%
'//////////// GPS:Get Picture Size //////////////
'//////////////利用ADODB.stream获取图片尺寸//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
End Sub
Private Function Bin2Str(Bin)
Dim I, Str
For I=1 to LenB(Bin)
clow=MidB(Bin,I,1)
if AscB(clow)<128 then
Str = Str & Chr(ASCB(clow))
Else
I=I+1
if I <= LenB(Bin) then Str = Str & Chr(ASCW(MidB(Bin,I,1)&clow))
end If
Next
Bin2Str = Str
End Function
Private Function Num2Str(num,base,lens)
'GPS (2005-8-11)
dim ret
ret = ""
while(num>=base)
ret = (num mod base) & ret
num = (num - num mod base)/base
wend
Num2Str = right(string(lens,"0") & num & ret,lens) End Function
Private Function Str2Num(str,base)
'GPS (2005-8-11)
dim ret
ret = 0
for i=1 to len(str)
ret = ret *base + cint(mid(str,i,1))
next
Str2Num=ret
End Function
Private Function BinVal(bin)
'GPS (2002-8-11)
dim ret
ret = 0
for i = lenb(bin) to 1 step -1
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal=ret
End Function
Private Function BinVal2(bin)
'GPS (2002-8-11)
dim ret
ret = 0
for i = 1 to lenb(bin)
ret = ret *256 + ascb(midb(bin,i,1))
next
BinVal2=ret
End Function
'///以下是调用代码///
Function getImageSize(filespec)
'GPS (2002-8-11)
dim ret(3)
aso.LoadFromFile(filespec)
bFlag=aso.read(3)
select case hex(binVal(bFlag))
case "4E5089":
aso.read(15)
ret(1)=BinVal2(aso.read(2))
aso.read(2)
ret(2)=BinVal2(aso.read(2))
case "464947":
aso.read(3)
ret(0)="GIF"
ret(1)=BinVal(aso.read(2))
ret(2)=BinVal(aso.read(2))
case "535746":
aso.read(5)
binData=aso.Read(1)
sConv=Num2Str(ascb(binData),2 ,8)
nBits=Str2Num(left(sConv,5),2)
sConv=mid(sConv,6)
while(len(sConv) binData=aso.Read(1) sConv=sConv&Num2Str(ascb(binData),2 ,8) wend ret(0)="SWF" ret(1)=int(abs(Str2Num(mid(sConv,1*nBits+1,nBits),2)-Str2Num(mid(sConv,0*nBits+1,nBits),2))/20) ret(2)=int(abs(Str2Num(mid(sConv,3*nBits+1,nBits),2)-Str2Num(mid(sConv,2*nBits+1,nBits),2))/20) case "FFD8FF": do do: p1=binVal(aso.Read(1)): loop while p1=255 and not aso.EOS if p1>191 and p1<196 then exit do else aso.read(binval2(aso.Read(2))-2) do:p1=binVal(aso.Read(1)):loop while p1<255 and not aso.EOS loop while true aso.Read(3) ret(0)="JPG" ret(2)=binval2(aso.Read(2)) ret(1)=binval2(aso.Read(2)) case else: if left(Bin2Str(bFlag),2)="BM" then aso.Read(15) ret(0)="BMP" ret(1)=binval(aso.Read(4)) ret(2)=binval(aso.Read(4)) else ret(0)="" end if end select ret(3)="width=""" & ret(1) &""" height=""" & ret(2) &"""" End Function End Class %> 将以上代码复制生成GPS.asp文件,这样无组件获取图片尺寸的通用类就OK了。 2.获取图片路径 由于不只一张图片,以及图片需分类存放,我们在数据库中设计了一个存放图片相对路径的字段ImgURL。我们把上传的图片都放在一个名为images的文件夹中(至于如何无组件上传图片心晴就不在多说了)。现在我们先设计一个ShowImg.asp页面用来显示缩略图及相关信息。具体设计如下:图片,图片格式,图片尺寸,图片大小,点击次数。 下面,我们获取图片的绝对路径。代码如下: <% '/////获取ShowImg.asp的绝对路径///// Dim curFile curFile=Server.mappath(Request.servervariables("PATH_INFO")) Dim curfilename,filename '/////图片相对路径(存于数据库中) cufilename=rs("ImgURL") '/////因为ShowImg.asp与images在同一目录,所以我们用instrrev获取images的路径///// filename=left(curFile,instrrev(curFile,"\"))&cufilename '/////建立GPS类实体///// Dim GetPicSize Set GetPicSize=new GPS Set fs=Server.CreateObject("Scripting.FileSystemObject") '/////获取图片类型///// Dim PicSuffixName PicSuffixName=fs.GetExtensionName(filename) Dim PD '//Picture Dimension Dim PWidth,PHeight Select Case PicSuffixName Case "gif","bmp","jpg","png": '/////调用GPS通用类中的GetImageSize函数获取图片尺寸///// PD=GetPicSize.GetImageSize(filename) PWidth=PD(1) '//获取图片宽度 PHeight=PD(2) '//获取图片高度 Case "swf" PD=GetPicSize.GetImageSize(filename) PWidth=PD(1) '//获取Flash宽度 PHeight=PD(2) '//获取Flash高度 Case Else End Select Set fs=Nothing Set GetPicSize=Nothing %> 将上面的代码复制到
当然,有人会说,获取路径不一定要用PATH_INFO,直接用server.mappath()不就可以了嘛,呵呵,萝卜青菜各有所爱,主要是我用PATH_INFO可以实现FSO的一些功能而用server.mappath()没有搞定,所以一直使用这个。
3.定义缩略图尺寸
这部分代码就是仁者见仁,智者见智了。首先,我们需要规定缩略图显示尺寸范围,譬如:300X260,代码可以这样写:
<%
Dim PXWidth,PXHeight
Dim Pp '//Proportion
If PWidth=0 Or PWidth="" Then
PXWidth=0
PXHeight=0
Else
Pp=FormatNumber(PWidth/PHeight,2) '//长宽比
End If
If PWidth>=PHeight Then
If PWidth>=300 Then
PXWidth=300
PXHeight=FormatNumber(300/Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
Else
If PHeight>=260 Then
PXHeight=260
PXWidth=FormatNumber(260*Pp,0)
Else
PXWidth=PWidth
PXHeight=PHeight
End If
End If
%>
将上面的代码紧接第二步写下即可。调用时代码如下:
border="0" width=<%=PXWidth%>
height=<%=PXHeight%>>
至于图片格式可以用得到,图片尺寸可以写成
<%
response.write PXWidth&"X"&PXHeight
%>
图片大小可以用FSO.GetFileSize(filename)来实现,而点击次数可以简单地用SQL语句实现,具体编码就不再累述了。
这样,一个无组件生成缩略图程序就写好了。
先用office2003或者2007编辑好word的样式,然后另存为xml,将xml翻译为FreeMarker 模板,最后用java来解析FreeMarker模板并输出Doc。经测试这样方式生成的word文档完全符合office标准,样式、内容控制非常便利,打印也不会变形,生成的文档和office中编辑文档完全一样。 AD:客户要求用程序生成标准的word文档,要能打印,而且不能变形,以前用过很多解决方案,都在客户严格要求下牺牲的无比惨烈。 POI读word文档还行,写文档实在不敢恭维,复杂的样式很难控制不提,想象一下一个20多页,嵌套很多表格和图像的word文档靠POI来写代码输出,对程序员来说比去山西挖煤还惨,况且文档格式还经常变化。 iText操作Excel还行。对于复杂的大量的word也是噩梦。 直接通过JSP输出样式基本不达标,而且要打印出来就更是惨不忍睹。 Word从2003开始支持XML格式,用XML还做就很简单了。 大致的思路是先用office2003或者2007编辑好word的样式,然后另存为xml,将xml 翻译为FreeMarker模板,最后用java来解析FreeMarker模板并输出Doc。经测试这样方式生成的word文档完全符合office标准,样式、内容控制非常便利,打印也不会变形,生成的文档和office中编辑文档完全一样。 看看实际效果 首先用office【版本要2003以上,以下的不支持xml格式】编辑文档的样式,图中红线的部分就是我要输出的部分:
将编辑好的文档另存为XML 再用Firstobject free XML editor将xml中我们需要填数据的地方打上FreeMarker标记
这篇文章主要介绍了PHP使用imagick读取PDF第一页生成png缩略图的两种方法,使用了PHP扩展php_imagick,需要的朋友可以参考下 一、ImageMagick是什么 ImageMagick是一套功能强大、稳定而且免费的工具集和开发包,可以用来读、写和处理超过185种基本格式的图片文件,包括流行的TIFF, JPEG, GIF, PNG, PDF以及PhotoCD 等格式。利用ImageMagick,你可以根据web应用程序的需要动态生成图片, 还可以对一个(或一组)图片进行改变大小、旋转、锐化、减色或增加特效等操作,并将操作的结果以相同格式或其它格式保存。 二、php_imagick什么 一个可以供PHP调用ImageMagick功能的PHP扩展。使用这个扩展可以使PHP具备和ImageMagick相同的功能。 三、PDF生成png缩略图的两种方法 第一种: 代码如下:/** * PDF2PNG * @param $pdf 待处理的PDF文件 * @param $path 待保存的图片路径 * @param $page 待导出的页面-1为全部0为第一页1为第二页 * @return 保存好的图片路径和文件名 */ function pdf2png($pdf,$path,$page=0) { if(!is_dir($path)) { mkdir($path,true); } if(!extension_loaded('imagick')) { echo '没有找到imagick!' ; return false; } if(!file_exists($pdf)) { echo '没有找到pdf' ; return false; } $im = new Imagick(); $im->setResolution(120,120); //设置图像分辨率 $im->setCompressionQuality(80); //压缩比 $im->readImage($pdf."[".$page."]"); //设置读取pdf的第一页 //$im->thumbnailImage(200, 100, true); // 改变图像的大小 $im->scaleImage(200,100,true); //缩放大小图像
粉丝身份证:https://www.wendangku.net/doc/355327527.html,/ 制作印章:https://www.wendangku.net/doc/355327527.html,/print.php 邮址图片生成:https://www.wendangku.net/doc/355327527.html,/email.php 条形码生成:https://www.wendangku.net/doc/355327527.html,/barcode.php Kiss学堂颁发结业证:https://www.wendangku.net/doc/355327527.html,/kiss/cert.php 生成头像:https://www.wendangku.net/doc/355327527.html,/ImageDIY/DIYChooseImg.aspx?ImgSize=96x96x1邮件:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=1 聊天图标:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=2 博客图标:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=3 网络书签:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=5 朋友圈:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=4 按扭:https://www.wendangku.net/doc/355327527.html,/Sevice.aspx?TypeID=11 生成拼凑图:https://www.wendangku.net/doc/355327527.html,/letters/ 一个曰本武士刀劈出你需要的字: https://www.wendangku.net/doc/355327527.html,/generators/animated/ninjatext.asp 生成几种卡通人物对话动态图片: https://www.wendangku.net/doc/355327527.html,/generators/animated/talking_squirrel.asp 香烟盒生成,可以做警告图片: https://www.wendangku.net/doc/355327527.html,/generators/cigarette_packet/generator.cig 支持多种域名的Email图标的生成:https://www.wendangku.net/doc/355327527.html,/email/ 在线favicon生成器:https://www.wendangku.net/doc/355327527.html,/e/favicon.cgi 支持各种类型图片的生成,可以选择设置的条件非常灵活: https://www.wendangku.net/doc/355327527.html,/tchinese/ 支持大量中文字体签名图标生成:https://www.wendangku.net/doc/355327527.html,/font/