無(wú)組件實(shí)現(xiàn)文件上傳

《無(wú)組件實(shí)現(xiàn)文件上傳》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、無(wú)組件實(shí)現(xiàn)文件上傳/下載'==================================================================''?用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(idint(自增列),pathtext(255)保存上傳文件的目錄',fnametext(250)保存上傳的文件名,typetest(25

2、0)保存上傳文件的類(lèi)型'???????,imgole對(duì)象保存上傳的文件內(nèi)容'''=================================================================='==================================================================''上傳文件的HTML頁(yè):zj_up.htm''==================================================================

3、tml>?

???????

4、=====================================''?上傳文件保存到數(shù)據(jù)庫(kù)的ASP頁(yè):zj_up.asp''==================================================================<%Response.Expires=0Functionf_Bin2Str(ByValsBin)???DimiI,iLen,iChr,iRe?????????iRe=""???IfNotIsNull(sBin)Then???????iLen=LenB(sBin)?

5、??????ForiI=1ToiLen???????????iChr=MidB(sBin,iI,1)???????????IfAscB(iChr)>127Then???????????????iRe=iRe&Chr(AscW(MidB(sBin,iI+1,1)&iChr))???????????????iI=iI+1???????????Else???????????????iRe=iRe&Chr(AscB(iChr))???????????EndIf???????Next???EndIf??????f_Bin2Str=iR

6、eEndFunctioniConcStr="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurityInfo=False"&_?";DataSource="&server.mappath("zj.mdb")iSql="tb_img"setiRe=Server.CreateObject("ADODB.Recordset")iRe.OpeniSql,iConcStr,1,3iLen=Request.TotalBytessBin=Request.BinaryRead(iLen)iCrlf1=

7、ChrB(13)&ChrB(10)iCrlf2=iCrlf1&iCrlf1iLen=InStrB(1,sBin,iCrlf1)-1iSpc=LeftB(sBin,iLen)sBin=MidB(sBin,iLen+34)iPos1=InStrB(sBin,iCrlf2)-1WhileiPos1>0?iStr=f_Bin2Str(LeftB(sBin,iPos1))?iPos1=iPos1+5?iPos2=InStrB(iPos1,sBin,iSpc)??iPos3=InStr(iStr,";filename=""")+12?I

8、fiPos3>12Then?iStr=Mid(iStr,iPos3)?iPos3=InStr(iStr,Chr(13)&Chr(10)&"Content-Type:")-2?iFn=Left(iStr,iPos3)?IfiFn<>""Then??iRe.AddNew??ire("path"