<%@codepage="65001"%><%
On Error Resume Next
Response.ContentType = "image/jpeg"
Response.Expires = 0
strImg = request("p")
swidth = request("w")
width=175
height=175
If IsEmpty(request("w")) Or Not IsNumeric(swidth) Then
	If IsEmpty(request("h")) Or Not IsNumeric(sHeight) Then
		sWidth=width
	Else
		sWidth=9999
	End If
Else
	sWidth=Int(sWidth)
End If
sHeight = request("h")
If IsEmpty(request("h")) Or Not IsNumeric(sHeight) Then
	If sWidth=width Then
		sHeight=height
	Else
		sHeight=9999
	End If
Else
	sHeight=Int(sHeight)
End If
strimg="."&strimg
Set fso = CreateObject("Scripting.FileSystemObject")
	If Not fso.FileExists(server.MapPath(strImg)) then
		Response.Redirect("/member/product/nopic.png")
	Else
		'Response.Redirect(strImg)
		path = strImg
		Set Jpeg = Server.CreateObject("Persits.Jpeg")
		Jpeg.Open(Server.MapPath(path))
		Jpeg.Quality =100
			If (Jpeg.OriginalHeight>sHeight Or Jpeg.OriginalWidth>sWidth) Then
				If Jpeg.OriginalHeight/sHeight<Jpeg.OriginalWidth/sWidth Then
					Jpeg.Width = sWidth
					Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
				Else
					Jpeg.Height = sHeight
					Jpeg.Width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight
				End If
				Jpeg.SendBinary
			Else
				Response.Redirect(strImg)
			End If
	End If
	Set Jpeg = Nothing
Set fso = Nothing
%>