DDR爱好者之家

无组件实现文件上传/下载
站长资源 2024/11/24 佚名
46 1538
DDR爱好者之家 Design By 杰米
' 用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 
%>
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线

暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。

艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。

《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米