`
coolmaple
  • 浏览: 34688 次
  • 性别: Icon_minigender_1
  • 来自: 福州
社区版块
存档分类
最新评论

asp简单文件上传源码

ASPMicrosoftAccessHTML
阅读更多

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

<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件上传</title>
</head>

<body>
<form method="POST" action="SaveFile.asp">
文件上传：<input type="file" name="file" size="42">&nbsp;<input type="submit" value="提交" name="bb">
</form>

</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
%>

分享到：
| js操作cookies的类
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics