<!--#include file="adovbs.inc" -->
<%
'獲得表單中上傳文件的數據
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10) & chrB(13) & chrB(10)
bncrrt=chrB(13) & chrB(10) & chrB(45) & chrB(45) & chrB(45) & chrB(45)
datastart=instrb(formdata,bncrlf)+4
datalen=instrb(datastart+1,formdata,bncrrt)-datastart
'獲得文件數據
mydata=midb(formdata,datastart,datalen)

'打開數據庫，往里面添加數據
  DbPath = SERVER.MapPath("oa.mdb")
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
  Set rs = Server.CreateObject("ADODB.Recordset")
  sl="select * from upload"
  rs.Open "upload",conn,adOpenDynamic,adLockOptimistic
rs.addnew
rs("xm")=session("yzbxm")
rs("f_topic")=session("yzbtopic")
rs("f_name")=session("yzbwj")
rs("f_date")=date
rs("f_data").appendchunk mydata
rs.update
rs.close

set rs=nothing
conn.Close 
set conn=nothing
response.redirect "getinfo.asp?msg="&session("yzbwj")&"上傳成功!文件為"&datalen&"字節"
response.end

%>