UC知道ASP图片自动调整大小的问题
来源：百度知道 编辑：UC知道 时间：2024/06/16 07:17:35
我把图片保存到数据库中，想在读取的时候这样设置：
如果图片宽度小于600，则按原始大小显示。
如果图片宽度大于600，则将图片宽度设定为600。
请问该如何实现？谢谢
我不需要从哪里复制粘贴过来的那些答案，那样没有针对性的答案我也会找，只想要一个实用点的答案。谢谢
你哪里看到这个提问嚣张了？那些直接粘贴复制过来的答案就有针对性了？很多时候反而会误导别人。我回答别人的问题，都是认真的看了提问者的问题，然后自己写出有针对性的代码，而且许多代码都是自己实践过的，粘贴复制就能解决问题？那么多高等级的，自己扪心自问有没有真才实学，要找答案还不简单？BAIDU，GOOGLE一下，一天粘贴复制几百来篇，有意义吗？那样就能帮助求助者？
那你厉害，4楼的，你告诉我一下，3楼的是什么意思？我等薄才，看不懂。麻烦请您解释一下！
如果图片宽度小于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