關於asp無元件檔案上傳程式

2021-03-31 13:08:54 字數 1759 閱讀 1676

經常有些網友在做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...