' 用ASP實(shí)現(xiàn)無(wú)組件上傳/下載文件
'
' 功能簡(jiǎn)介
' 將上傳的文件數(shù)據(jù)保存到數(shù)據(jù)庫(kù)中,可以處理表單中的多個(gè)上傳文件的情況
' 適用于各種數(shù)據(jù)庫(kù),使用ADO的方法連接數(shù)據(jù)庫(kù)
' 本示例中使用的是ACCESS數(shù)據(jù)庫(kù):zj.mdb
' 表:tb_img(id int(自增列),path text(255) 保存上傳文件的目錄
' ,fname text(250) 保存上傳的文件名,type test(250) 保存上傳文件的類型
' ,img ole對(duì)象 保存上傳的文件內(nèi)容
'
'
'==================================================================
'==================================================================
'
' 上傳文件的HTML頁(yè): zj_up.htm
'
'================================================================== 復(fù)制代碼 代碼如下:
html>
head>
title>文件上傳保存到數(shù)據(jù)庫(kù)中/title>
/head>
body>
form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
p>
input type="file" name="file">
input type="submit" name="Submit" value="上傳">
/p>
/form>
/body>
/html>
'==================================================================
'
' 上傳文件保存到數(shù)據(jù)庫(kù)的ASP頁(yè): zj_up.asp
'
'================================================================== 復(fù)制代碼 代碼如下:
%
Response.Expires=0
Function f_Bin2Str(ByVal sBin)
Dim iI, iLen, iChr, iRe
iRe = ""
If Not IsNull(sBin) Then
iLen = LenB(sBin)
For iI = 1 To iLen
iChr = MidB(sBin, iI, 1)
If AscB(iChr) > 127 Then
iRe = iRe Chr(AscW(MidB(sBin, iI + 1, 1) iChr))
iI = iI + 1
Else
iRe = iRe Chr(AscB(iChr))
End If
Next
End If
f_Bin2Str = iRe
End Function
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" _
";Data Source=" server.mappath("zj.mdb")
iSql="tb_img"
set iRe=Server.CreateObject("ADODB.Recordset")
iRe.Open iSql,iConcStr,1,3
iLen=Request.TotalBytes
sBin=Request.BinaryRead(iLen)
iCrlf1 = ChrB(13) ChrB(10)
iCrlf2 = iCrlf1 iCrlf1
iLen = InStrB(1, sBin, iCrlf1) - 1
iSpc = LeftB(sBin, iLen)
sBin = MidB(sBin, iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
While iPos1 > 0
iStr = f_Bin2Str(LeftB(sBin, iPos1))
iPos1 = iPos1 + 5
iPos2 = InStrB(iPos1, sBin, iSpc)
iPos3 = InStr(iStr, "; filename=""") + 12
If iPos3 > 12 Then
iStr = Mid(iStr, iPos3)
iPos3 = InStr(iStr, Chr(13) Chr(10) "Content-Type: ") - 2
iFn = Left(iStr, iPos3)
If iFn > "" Then
iRe.AddNew
ire("path")=left(iFn,instrrev(iFn,"\"))
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1)
iRe("type") = Mid(iStr, iPos3 + 18)
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1)
iRe.Update
End If
End If
sBin = MidB(sBin, iPos2 + iLen + 34)
iPos1 = InStrB(sBin, iCrlf2) - 1
Wend
iRe.close
set iRe=Nothing
%>
'==================================================================
'
' 下載數(shù)據(jù)的ASP頁(yè): zj_down.asp
'
'================================================================== 復(fù)制代碼 代碼如下:
%
Response.Buffer=true
Response.Clear
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" _
";Data Source=" server.mappath("zj.mdb")
set iRe=server.createobject("adodb.recordset")
iSql="tb_img"
iRe.open iSql,iconcstr,1,1
Response.ContentType=ire("type")
Response.BinaryWrite iRe("img")
iRe.close
set iRe=Nothing
%>
您可能感興趣的文章:- asp無(wú)組件生成驗(yàn)證碼 GIF圖片格式
- Asp無(wú)組件生成縮略圖的代碼
- Asp無(wú)組件上傳進(jìn)度條解決方案
- 無(wú)組件上傳圖片之文件采用方案
- 在無(wú)組件的情況下，如何上傳圖片？
- 無(wú)組件生成縮略圖
- ASP無(wú)組件分頁(yè)實(shí)現(xiàn)思路及代碼
