分享
 
 
 

无组件实现文件上传/下载

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

'==================================================================--

'

' 用ASP实现无组件上传/下载文件

'

' 功能简介

' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况

' 适用于各种数据库,使用ADO的方法连接数据库

' 本示例中使用的是ACCESS数据库:zj.mdb

' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录

' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型

' ,img ole对象 保存上传的文件内容

'

'

'==================================================================

'==================================================================

'

' 上传文件的HTML页: zj_up.htm

'

'==================================================================

<html>

<head>

<title>文件上传保存到数据库中</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>

'==================================================================

'

' 上传文件保存到数据库的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

%>

'==================================================================

'

' 下载数据的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

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有