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

' 用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") 

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3552.html