asp简单文件上传源码

最新推荐文章于 2026-04-21 05:14:22 发布

原创最新推荐文章于 2026-04-21 05:14:22 发布 · 1.4k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#asp #file #microsoft #date #action

ASP 专栏收录该内容

4 篇文章

订阅专栏

这是一个简单的ASP文件上传示例，包含两个文件：一个HTML上传界面（upload.htm）和一个保存上传文件的ASP脚本（SaveFile.asp）。用户选择文件后，脚本会检查文件类型是否为.gif, .jpg或.bmp，并将其重命名，保存到服务器，并可选地将文件名写入数据库。" 109914881,10295163,Vue中实现用户离开页面确认提示,"['前端开发', 'Vue', 'JavaScript', '表单交互', '路由跳转']

文件1.上传界面文件 upload.htm

<html>

</body>

</html>

文件2.保存上传文件 SaveFile.asp

<%
dim file,filename,houzui
file = Request.Form("file")

if file="" then
response.write"<script>alert('请选择要上传的文件！');window.location.href='upload.htm';</script>"
else
houzui=mid(file,InStrRev(file, "."))

if houzui=".gif" or houzui=".jpg" or houzui=".bmp" then '允许上传的文件类型
filename=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & houzui

  Set objStream = Server.CreateObject("ADODB.Stream")
  objStream.Type = 1
  objStream.Open
  objStream.LoadFromFile file
  objStream.SaveToFile Server.MapPath(filename),2
  objStream.Close

//============================把文件名写入数据库，如无需要，可删除此段代码！
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mb.mdb")
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select*from img",conn,1,2
  rs.addnew
  rs("name")=filename
  rs.update
  set rs=nothing
  conn.close
  set conn=nothing
//========================================

response.write"<script>alert('图片上传成功！');window.location.href='upload.htm';</script>"
else
response.write"<script>alert('不允许上传" & houzui & "的格式！');window.location.href='upload.htm';</script>"
end if
end if
%>