文件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"> <input type="submit" value="提交" name="bb"></form></body></html>文件2.保存上传文件 SaveFile.asp<%dim file,filename,houzuifile = Request.Form("file")if file="" thenresponse.write"<script>alert('请选择要上传的文件！');window.location.href='upload.htm';</script>"elsehouzui=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) & houzuiSet objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1objStream.OpenobjStream.LoadFromFile fileobjStream.SaveToFile Server.MapPath(filename),2objStream.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,2rs.addnewrs("name")=filenamers.updateset rs=nothingconn.closeset conn=nothing//========================================response.write"<script>alert('图片上传成功！');window.location.href='upload.htm';</script>"elseresponse.write"<script>alert('不允许上传" & houzui & "的格式！');window.location.href='upload.htm';</script>"end ifend if%>