写法问题请教

[cloudgamer]

ratio1 = maxWidth / Width
ratio2 = maxHeight / Height
If ratio1 < ratio2 Then
Width = Width * ratio1
Else
Width = Width * ratio2
End If

有简便点的写法吗
这样感觉有点笨

[yan11cn]

VBScript好像没有像C语言那种 Width *= (ratio1 > ratio2 ? ratio1 : ratio2 )简洁的写法吧...
上面的写法虽然平庸，但是思路清晰，没有拒人于千里之外之外的感觉，也是有好处的~

[cloudgamer]

	oUpFileStream.Position = file.FileStart
	set oFileStream = CreateObject("Adodb.Stream")
    With oFileStream
		.Type=1
		.Mode=3
		.Open
		oUpFileStream.copyto oFileStream, file.FileSize
		.Position = 0
		.Type = 1
		bytes = .Read()
		.Close
    End With

这个是把无组件文件上传的数据读出成Binary数据
有更简单的方法吗

[hookee]

ratio1 = maxWidth / Width 
ratio2 = maxHeight / Height 
Width = Width * ratio1 * (1-Sgn(ratio1-ratio2))/2 + Width * ratio2 * (1-Sgn(ratio2-ratio1))/2

[gxq323]

[Quote=引用 3 楼 hookee 的回复:]
VBScript code
ratio1= maxWidth/ Width
ratio2= maxHeight/ Height
Width= Width* ratio1* (1-Sgn(ratio1-ratio2))/2+ Width* ratio2* (1-Sgn(ratio2-ratio1))/2
[/Quote]最近不见hookee老大在论坛了，你们写的代码比较经典，开帖发几页吧，学习学习

[yan11cn]

学习了 看来函数库先得掌握且融汇贯通

[cloudgamer]

[Quote=引用 3 楼 hookee 的回复:]
VBScript code
ratio1= maxWidth/ Width
ratio2= maxHeight/ Height
Width= Width* ratio1* (1-Sgn(ratio1-ratio2))/2+ Width* ratio2* (1-Sgn(ratio2-ratio1))/2
[/Quote]

感觉更复杂呢

[cloudgamer]

If ratio1 > ratio2 Then ratio1 = ratio2
Width = Width * ratio1

这样好点