asp 文件上传(无组件上传)

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

文件上传： 

文件2.保存上传文件 SaveFile.asp<%dim file,filename,houzuifile = Request.Form("file")if file="" thenresponse.write""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={SQL Server};Server=(Local);UID=sa;PWD=123;"&"database=db_search;"set rs=server.CreateObject("adodb.recordset")rs.open "select*from img",conn,1,2rs.addnewrs("name")=filenamers.update

rs.Closeset rs=nothingconn.Closeset conn=nothing

'========================================response.write""elseresponse.write""end ifend if%>