經常有些網友在做asp程式的時候需要做檔案上傳程式,
用的最多的就是稻香老農的無元件上傳元件吧。
可是在今年8月份左右,瑞星竟然報他是病毒,
連伺服器上的也無一倖免啊,後來我就決頂自己搞乙個。
在研究了稻香老農的無元件上傳元件後,發先這裡面主要使用了乙個adodb.stream元件,在仔細研究了這個類後,我用了較少的**
實現了乙個,核心**如下:
『建立乙個adodb.stream物件獲取post來的資料。
set readdata = server.createobject("adodb.stream")
readdata.type =1
readdata.mode =3
readdata.open
readdata.write request.binaryread(request.totalbytes)
readdata.position=0
『移到alldata中去
alldata=readdata.read
『根據http post格式抽取有用資料,datastart為開始位置dataend為結束位置
bncrlf=chrb(13) & chrb(10)
divider=leftb(alldata,clng(instrb(alldata,bncrlf))-1)
datastart=instrb(alldata,bncrlf&bncrlf)+4
dataend=instrb(datastart+1,alldata,divider)-datastart
『建立輸出流正式抽取資料放到outdata中去
set outdata = server.createobject("adodb.stream")
outdata.type = 1
outdata.open
readdata.position = datastart-1
readdata.copyto outdata,dataend-2
『建立finfodata用來提取檔案資訊流
set finfodata=server.createobject("adodb.stream")
finfodata.type = 1
finfodata.mode =3
finfodata.open
readdata.position =0
readdata.copyto finfodata,datastart-1
readdata.close
set readdata=nothing
『用gb2312編碼方式放入strinfo
finfodata.position = 0
finfodata.type = 2
finfodata.charset ="gb2312"
strfinfo=finfodata.readtext
finfodata.close
set finfodata=nothing
』取地檔名
nstart=instr(1,strfinfo,"filename=""",1)+10
nend=instr(nstart,strfinfo,"""",1)
filename=mid(strfinfo,nstart,nend-nstart)
filename=getfilename(filename)
extname=getextname(filename)
outdata.close
set outdata=nothing
ASP無元件檔案上傳 資料庫儲存
asp無元件檔案上傳 資料庫儲存 可能有不少的朋友介紹了很多無元件檔案上傳的例子,我也談談我的初次的示例,以下為本人初次使用的示例 第一步 建立資料庫images 第二步 建立資料表image,表結構如下 id 主鍵,自動列 imagename varchar 50 檔案的名稱 imagetype ...
簡潔的asp無元件驗證碼生成程式
response.buffer true with response expires 1 addheader pragma no cache addheader cache ctrol no cache end with dim a 10,10 a 0,1 0x3c 數字0 a 0,2 0x66 a...
多表單域無元件檔案上傳的例子
最近經常有人問到這類問題,在此轉貼一下,內容 userid text 儲存上傳檔案的使用者id filecontenttype text 用來儲存上傳檔案的型別,eg application msword 主要用來使使用者能正確 此檔案 filecontent ole object 儲存檔案資料 2...