图片如何实现自动横向和竖向显示

《图片如何实现自动横向和竖向显示》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、[求助]图片如何实现自动横向和竖向显示？(已解决)有些照片是竖向的，即宽度比高度小，1.2版缺省的是横向显示，系统定义图片大小为120x90、240x180等尺寸，因此，竖向的图片就被压扁了，很难看。在skin.asp文件中有下面这段代码控制图片的显示：functionpic_url(pvar,pt)  dimtemp1,pic_var  pic_var=pvar  ifpic_var=""then    pic_var=joekoe_cms.web_upload&"no_pic.gif"  else  

2、  ifinstr(pic_var,"://")<1then      pic_var=joekoe_cms.web_upload&pic_var    endif  endif  selectcaseint(pt)  case1    temp1=""  case2    temp1="

3、1.5)&"src='"&pic_var&"'>"  case3    temp1=""  case4    temp1=""  case5    temp1="

4、'>"  case6    temp1=""  case7    temp1=""  case8    temp1=""  case9    temp1="

5、der=0width="&(pic_w*0.9)&"height="&(pic_h*0.9)&"src='"&pic_var&"'>"  case10    temp1=""  caseelse    temp1=pic_var  endselect  pic_url=temp1endfunction其中的pic_w和pic_h就是系统预先定义好的，如果能判断出要显示的

6、图片的长和宽，将两个值交换一下就可以了，那位能告知取得要显示的图片的长和宽数值的vb代码如何写？自己实现了！方法：在skin.asp文件的最后加入（一定要在最后！）：functionpic_wsize(obj){  img=newImage();  img.src=obj.src;  returnimg.width;}functionpic_hsize(obj){  img=new

7、Image();  img.src=obj.src;  returnimg.height;}然后将pic_url的函数修改如下：functionpic_url(pvar,pt)  dimtemp1,pic_var  pic_var=pvar  ifpic_var=""then    pic_var=joekoe_cms.web_upload&"no_pic.gif"  else    ifinstr(pic_var,"://")<1then      pic_var=joekoe_cms

8、.web_upload&pic_var    endif  endif  selectcaseint(pt)  case1    temp1="