ASP无组件上传图片的源代码

ASP无组件上传图片的源代码 <% Set conn=Server.CreateObject("Adodb.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("db.mdb") conn.open connstr '---------------------------------------- function getextendname(filename) extname=lcase(filename) extname=right(extname,3) extname=right(extname,3-instr(extname,".")) getextendname=extname end function '--------------------------------------------------- '------------------------------------------------------- function filename() filename=now() filename=replace(filename,"-","") filename=replace(filename,":","") filename=replace(filename," ","") filename=filename end function '---------------------------------------------------------- '------------------------------------------------------------------- set upload=new upload_5xsoft set upfile=upload.file("files") title=upload.form("t1") info=upload.form("t2") if upfile.filesize>0 and upfile.filename<>"" then if instr("jpg,bmp,gif",getextendname(upfile.filename))>0 then if upfile.filesize<204800 then fname=filename&"."&getextendname(upfile.filename) upfile.saveas server.mappath("pic/"&fname) sql="insert into img (title,info,imgpath)values('"+ title +"','"+ info +"','"+ fname +"')" conn.Execute sql conn.close response.write "" else response.write "" end if else response.write "" end if end if '--------------------------------------------------------