ASP图片自动调整大小的问题

来源:百度知道 编辑:UC知道 时间:2024/06/16 01:42:40
我把图片保存到数据库中,想在读取的时候这样设置:

如果图片宽度小于600,则按原始大小显示。

如果图片宽度大于600,则将图片宽度设定为600。

请问该如何实现?谢谢
我不需要从哪里复制粘贴过来的那些答案,那样没有针对性的答案我也会找,只想要一个实用点的答案。谢谢

你哪里看到这个提问嚣张了?那些直接粘贴复制过来的答案就有针对性了?很多时候反而会误导别人。我回答别人的问题,都是认真的看了提问者的问题,然后自己写出有针对性的代码,而且许多代码都是自己实践过的,粘贴复制就能解决问题?那么多高等级的,自己扪心自问有没有真才实学,要找答案还不简单?BAIDU,GOOGLE一下,一天粘贴复制几百来篇,有意义吗?那样就能帮助求助者?
那你厉害,4楼的,你告诉我一下,3楼的是什么意思?我等薄才,看不懂。麻烦请您解释一下!

<%Url=Trim(Request.QueryString("Url"))
IF Url="" Then
Response.Write"图片不存在"
Response.End
End IF
Class ImgWHInfo '获取图片宽度和高度的类,支持JPG,GIF,PNG,BMP
Dim ASO
Private Sub Class_Initialize
Set ASO=Server.CreateObject("ADODB.Stream")
ASO.Mode=3
ASO.Type=1
ASO.Open
End Sub
Private Sub Class_Terminate
Err.Clear
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)
Dim Ret
Ret = ""
While(Num>=Base)
Ret = (Num Mod Base) & Ret
Num = (Num - Num Mod Base)/Base
Wend
Num2Str = Right(Strin