这种上传图片的代码里如果加个自动缩图的功能可以实现吗
response.end
case 0:
file1=request2.form("ppic")
end select
set rs=server.CreateObject("adodb.recordset")
if request2.form("id")="" then
rs.open "select * from light ",conn,1,3
rs.addnew
else
rs.open "select * from light where id="&request2("id"),conn,1,3
end if
rs("usefor")=trim(request2.form("usefor"))
rs("prname")=trim(request2.form("prname"))
rs("brand")=trim(request2.form("brand"))
rs("room")=trim(request2.form("room"))
rs("model")=trim(request2.form("model"))
rs("area")=trim(request2.form("area"))
rs("lightsource")=trim(request2.form("lightsource"))
rs("sourcenumber")=trim(request2.form("sourcenumber"))
rs("sourcetype")=trim(request2.form("sourcetype"))
rs("power")=trim(request2.form("power"))
rs("technology")=trim(request2.form("technology"))
rs("origin")=trim(request2.form("origin"))
rs("material1")=trim(request2.form("material1"))
rs("material2")=trim(request2.form("material2"))
rs("style")=trim(request2.form("style"))
rs("picname")=trim(request2.form("picname"))
rs("issuer")=Session("adminid")
rs("textarea")=request2.form("textarea")
rs("pictime")=date()
rs("ppic")=request2.form("ppic")
rs.update
response.write "<script language='javascript'>"
response.write "alert('发布成功.');"
response.write "window.location.href='importlist.asp';"
response.write "</script>"
%>
Path = Server.MapPath("ppic") & "" & rs("ppic")'待处理图片路径