选建立一个HTM文件(MAIN.HTM),下面为它的代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP_ACP"%>
上传图片UP.ASP
<%option explicit%>
<%
dim conn,DBPath
dim rs,sql
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs=server.CreateObject("ADODB.Recordset")
sql="select * from photo"
rs.open sql,conn,3,2
dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
datastart=instrb(formdata,bncrlf & bncrlf)+4
dataend=instrb(datastart+1,formdata,divider)-datastart
mydata=midb(formdata,datastart,dataend)
rs.addnew
rs("img").appendchunk=mydata
rs.update
rs.close
'释放对象以及重新定向到main.html页面
set rs=nothing
set conn=nothing
response.Redirect("main.html")
%>
还要有一个DB数据库
