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

[求助]图片如何实现自动横向和竖向显示？(已解决) 有些照片是竖向的，即宽度比高度小，1.2版缺省的是横向显示，系统定义图片大小为120x90、240x180等尺寸，因此，竖向的图片就被压扁了，很难看。在skin.asp文件中有下面这段代码控制图片的显示：function pic_url(pvar,pt)??dim temp1,pic_var??pic_var=pvar??if pic_var= then????pic_var=joekoe_cms.web_uploadno_pic.gif??else????if instr(pic_var,://)1 then??????pic_var=joekoe_cms.web_uploadpic_var????end if??end if??select case int(pt)??case 1????temp1=img border=0 width=pic_w height=pic_h src= pic_var ??case 2????temp1=img border=0 width=(pic_w*1.5) height=(pic_h*1.5) src= pic_var ??case 3????temp1=img border=0 src= pic_var ??case 4???? temp1=img border=0 width=(pic_w*0.7) height=(pic_h*0.7) src= pic_var ??case 5???? temp1=img border=0 width=(pic_w*0.5) height=(pic_h*0.5) src= pic_var ??case 6???? temp1=img border=0 width=320 height=240 src= pic_var ??case 7???? temp1=img border=0 width=72 height=100 src= pic_var ??case 8????temp1=img border=0 width=(pic_w*1.2) height=(pic_h*1.2) src= pic_var ??case 9???? temp1=img border=0 width=(pic_w*0.9) height=(pic_h*0.9) src= pic_var ??case 10???? temp1=img border=0 width=(pic_w*2) height=(pic_h*2) src= pic_var ??case else????temp1=pic_var??end select??pic_url=temp1end function其中的pic_w和pic_h就是系统预先定义好的，如果能判断出要显示的图片的长和宽，将两个值交换一下就可以了，那位能告知取得要显示的图片的长和宽数值的vb代码如何写？ 自己实现了！方法：在skin.asp文件的最后加入（一定要在最后！）：script language=javascript function pic_wsize(obj){ ??img=new Image(); ??img.src=obj.src; ??return img.width; } /scriptscript language=javascript function pic_hsize(obj){ ??img=new Image(); ??img.src=obj.src; ??return img.height; } /script然后将pic_url的函数修改如下：function pic_url(pvar,pt)??dim temp1,pic_var??pic_var=pvar??if pic_var= then????pic_var=joekoe_cms.web_uploadno_pic.gif??else????if instr(pic_var,://)1 then??????pic_var=joekoe_cms.web_uploadpic_var????end if??end if??select case int(pt)??case 1???? temp1=img border=0 src= pic_var onload=javascript:if (pic_wsize(this)pic_hsize(this)){this.width=pic_h;this.height=pi