用化境无组件上传的源码

来源：互联网发布：唱歌跑调怎么办软件编辑：程序博客网时间：2024/04/30 15:32

'upfiles.inc'addimages.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>添加图片

添加图片

'addimages_save.asp<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><% 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")‘取得表单传递多来的参数(因为文件域的编码是二进制所以传统的request.("")已经不能解决问题了这里化境考虑得很周到直接调用upload.form 搞定) title=upload.form("title") des=upload.form("des") 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("../images/"&fname)Set conn=Server.CreateObject("ADODB.Connection")Strconn="driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("mdb/web.mdb")sql="insert into images (title,des,filename)values('"+ title +"','"+ des +"','"+ fname +"')"conn.open strconnconn.Execute sqlconn.close response.write "添加图片成功！" else response.write "" end if else response.write "" end if end if%>