upfile.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 57 行

<!--#include FILE="conn.asp"-->
<!--#include FILE="uploadclass.inc"-->
<%
'//上传图片
dim upload,formPath,formName,file,pic20060112,editname,bookpic,bookid,upictemp,action

set upload=new upload_5xSoft       ''建立上传对象

if upload.form("filepath")="" then ''得到上传目录
   response.write"请输入要上传至的目录!"
   set upload=nothing
   response.end
else
   formPath=upload.form("filepath")&"pic20060112"&"/"
   if right(formPath,1)<>"/" then formPath=formPath&"/" ''在目录后加(/)
end if


set file=upload.file("file1")  ''得到上传文件

if file.FileSize>0 then        ''如果 FileSize > 0 说明有文件数据
   editname=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)''文件更名
   file.filename=editname
   file.SaveAs Server.mappath(formPath&file.FileName)
end if


action=request.QueryString("action")

select case action 

       '//修改图片
       case "editbkpic"
       bookid=request.QueryString("id")''得到图片ID

       set rs=server.CreateObject("adodb.recordset")
       if bookid<>"" then
          rs.Open "select * from shop_books where bookid="&bookid,conn,1,3
          rs("bookpic")="bookpic" &  "/"  & "pic20060112" & "/" &file.filename  '更新图片
          rs.Update
          rs.Close
          response.redirect"editbook.asp?id="&bookid '返回修改页
       end if

       '//增加图片
       case "addbkpic" 
       upictemp="bookpic" &  "/"  & "pic20060112" & "/" &file.filename
       response.redirect"addbook.asp?pictemp="&upictemp '返回增加页

end select


set rs=nothing      ''删除此数据
set file=nothing    ''删除此文件
set upload=nothing  ''删除此对象
%>