我上传了一张很大的产品图以后，在显示缩略图的时候我想要根据实际图的大小同比列缩放到100*100以内，请问如何实现。。
我目前的代码如下：

<%
         img=rs("news_content")
         if isnull(img) or (img="") then
         img="<img src=""images/none.gif"" border=0>"
         else
         if instr(img,"[img]") then
             img = Replace(img, "[img]","<img src=")
             img = Replace(img, "[/img]"," border=0 alt='点击放大' width=100 height=98>")
         else
             img = Replace(img, "[uploadimg]","<img src=admin_product\upload/")
             img = Replace(img, "[/uploadimg]"," border=0 alt='点击放大' width=100 height=98>")
         end if
         end if
         Response.Write("<a href=big.asp?id="&rs("id")&" target=_blank>"+img+"</a>")
     %>