?? upload.asp
字號:
<!--#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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -