利用ASPUPLOAD,ASPJPEG实现图片上传自动生成缩略图(2)


conn.execute strSQL 

set upload=nothing  '删除对象 
typeid=Request.QueryString("typeid") 
response.write "<SCRIPT language=JavaScript>alert('文件上传成功,返回!');" 
response.write "this.location.href='addfile.asp?typeid="&typeid&"';</SCRIPT>" 

function HTMLEncode2(fString) 
fString = Replace(fString, CHR(13), "") 
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") 
fString = Replace(fString, CHR(10), "<BR>") 
HTMLEncode2 = fString 
end function 
%>