查人人中国名人网上海哪里做康复好:ASP 里如何获取图片的尺寸呀? 谢谢！
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/11 02:48:51
<%
'/////获取ShowImg.asp的绝对路径/////
Dim curFile
curFile=Server.mappath(Request.servervariables("PATH_INFO"))
Dim curfilename,filename
......
这个方法网上流传已久，但是不知道怎么用？安装什么组件呢？
我要得到具体的值，然后用来生成缩略图！
<%
'/////获取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
%>
好象需要安装组件或者自己写类吧，不如用这个简单快捷
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function changephoto()
{
document.all.img1.src=document.all.file1.value;
}
function show ()
{
if (document.all.file1.value=="")
alert ("还没有选择图片");
else
alert ("选择的图片大小：" + document.all.img1.fileSize +"\n宽度：" + document.all.img1.width + "\n高度：" + document.all.img1.height);
}
//-->
</SCRIPT>
<BODY>
<FORM action="" method=POST id=form1 name=form1>
<P><INPUT id=file1 type=file name=file1 onchange="changephoto()"></P>
</FORM>
<a href="Javascript:show()">test</a>
<br>
<img Id="img1" >
</BODY>
</HTML>
略加修改就可以把他们的值提交到服务器