利用ASP+JMAIL进行邮件群发的新思路

拓风科技

  ’================================================================== ’ ’ 用ASP实现无组件上传/下载文件 ’ ’
功能简介  ’ 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 ’ 适用于各种数据库,使用ADO的方
法连接数据库 ’ 本示例中使用的是ACCESS数据库:zj.mdb ’ 表:tb_img(id int(自增列),path text(255) 保存上传文件的
目录 ’ ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 ’ ,img ole对象 保存上传的文件内容
’ ’  ’==================================================================
’================================================================== ’ ’ 上传文件的HTML页: zj_up.htm ’
’==================================================================   文件上传保存到数据库中           
’================================================================== ’ ’ 上传文件保存到数据库的ASP页:
zj_up.asp ’ ’==================================================================  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.0ersist 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 %>
’================================================================== ’ ’ 下载数据的ASP页: zj_down.asp ’
’==================================================================


转自：  ASP教程采集

拓风科技

  ’================================================================== ’ ’ 用ASP实现无组件上传/下载文件 ’ ’
功能简介  ’ 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 ’ 适用于各种数据库,使用ADO的方
法连接数据库 ’ 本示例中使用的是ACCESS数据库:zj.mdb ’ 表:tb_img(id int(自增列),path text(255) 保存上传文件的
目录 ’ ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 ’ ,img ole对象 保存上传的文件内容
’ ’  ’==================================================================
’================================================================== ’ ’ 上传文件的HTML页: zj_up.htm ’
’==================================================================   文件上传保存到数据库中           
’================================================================== ’ ’ 上传文件保存到数据库的ASP页:
zj_up.asp ’ ’==================================================================  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.0ersist 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 %>
’================================================================== ’ ’ 下载数据的ASP页: zj_down.asp ’
’==================================================================


转自：  ASP教程采集