28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Function GetFileName(FullPath)
Dim Pos
Pos=InstrRev(FullPath,"\")+1
GetFileName = Mid(FullPath, Pos)
End Function
response.buffer=true
formsize=request.totalbytes
formdata=request.binaryread(formsize)
bncrlf=chrB(13) & chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)
response.BinaryWrite divider
datastart=instrb(formdata,bncrlf & bncrlf)+4
response.Write("<br>")
response.Write(datastart)
dataend=instrb(datastart+1,formdata,divider)-datastart
response.Write("<br>")
response.Write(dataend)
mydata=midb(formdata,datastart,dataend)
response.Write("<br>")
response.BinaryWrite formdata
filepath=midb(formdata,InstrB(formdata,chrB(92))-2,instrb(formdata,chrB(46))-InstrB(formdata,chrB(92))+6)
response.Write("<br>")
response.BinaryWrite filepath
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
aa=getString(filepath)
response.Write("<br>")
response.Write aa
response.Write("<br>")
response.Write GetFileName(aa)
set connGraph=server.CreateObject("ADODB.connection")
connGraph.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("test.mdb") & ";uid=;PWD=;"
connGraph.Open
set rec=server.createobject("ADODB.recordset")
rec.Open "SELECT * FROM [images] where id is null",connGraph,1,3
rec.addnew
rec("oicName")=GetFileName(aa)
rec("images").appendchunk mydata
rec.update
rec.close
set rec=nothing
set connGraph=nothing
%>