vbs实现的图片自适应表格,目前最佳解决方案!

用vbs实现的图片自适应代码

 

 1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦. 
2.用VBSCRIPT里的一个函数 loadpicture 
picurl'图片地址 
'取出高宽 

使用图片前选调出来并取得图片大小 
set myImg = loadpicture(server.mappath(picurl))  
 iWidth = round(myImg.width / 26.4583)  
 iHeight = round(myImg.height / 26.4583)  

调用时用iwidth 和iheight判断就可以了,