ASP無組件上傳圖片的原始碼

來源:互聯網
上載者:User
上傳|上傳圖片|無組件|原始碼

<!--#include file="upload_5xsoft.inc"-->
<%
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 "<script>alert('添加圖片成功!');top.location.href='index.asp';</script>"
  else
   response.write "<script language='javascript'> alert('檔案上傳失敗,大小超過了200K!');history.back(); </script>"
  end if
 else
  response.write "<script language='javascript'> alert('檔案上傳失敗,其不為圖片格式!');history.back(); </script>"
 end if
end if
'--------------------------------------------------------



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。