快捷導航

無組件實現(xiàn)文件上傳/下載

更新時間：2006年09月08日 00:00:00 作者：

' 用ASP實現(xiàn)無組件上傳/下載文件
'
' 功能簡介
' 將上傳的文件數(shù)據(jù)保存到數(shù)據(jù)庫中,可以處理表單中的多個上傳文件的情況
' 適用于各種數(shù)據(jù)庫,使用ADO的方法連接數(shù)據(jù)庫
' 本示例中使用的是ACCESS數(shù)據(jù)庫:zj.mdb
' 表:tb_img(id int(自增列),path text(255) 保存上傳文件的目錄
' ,fname text(250) 保存上傳的文件名,type test(250) 保存上傳文件的類型
' ,img ole對象保存上傳的文件內(nèi)容
'
'
'==================================================================

'==================================================================
'
' 上傳文件的HTML頁: zj_up.htm
'
'==================================================================

復制代碼代碼如下:

<html>  
<head>  
<title>文件上傳保存到數(shù)據(jù)庫中</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ù)庫的ASP頁: zj_up.asp
'
'==================================================================

復制代碼代碼如下:

<%  
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頁: zj_down.asp
'
'==================================================================

復制代碼代碼如下:

<%  
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  
%>

您可能感興趣的文章: