|
|
|
'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 strconn
conn.Execute sql
conn.close
response.write "添加图片成功！"
else
response.write ""
end if
else
response.write ""
end if
end if
%>
|
|
