28,407
社区成员
发帖
与我相关
我的任务
分享请叫如何一次上传多个文件到数据库？
一次上传一个文件已经实现，下面是代码，可是如何一次上传多个文件呢？
test.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<form name="form1" ENCTYPE="multipart/form-data" ACTION="testfileupload.asp" METHOD="POST">
<input NAME="picture" TYPE="FILE">
<input NAME="picturex" TYPE="FILE">
<input type="text" name="t1">
<input type="submit">
</form>
</body>
</html>
testupload.asp
<!-- #Include file="../../include/asp/create.Iasp" -->
<!-- #Include file="../../include/asp/opendatabase.Iasp" -->
<%
Response.Buffer=True
'FileDataName=Request("t1")
FileDataSize=Request.TotalBytes '获取提交数据量的总字节数
FileData=Request.BinaryRead(FileDataSize) '保存从客户端读取到的数据
'优化读取到的二进制数据
BnCrLf=chrB(13)&chrB(10)
Divider=LeftB(FileData,Clng(InstrB(FileData,BnCrLf))-1)
Dstart=InstrB(FileData,BnCrLf&BnCrLf)+4
Dend=InstrB(Dstart+1,FileData,Divider)-Dstart
MyData=MidB(FileData,Dstart,Dend)
'创建对象实例
Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select QuoteID,FileName,FileData from TFileUpLoad"
Rs.open sql,dbconn,1,3
'追加数据到数据库
Rs.AddNew
Rs("FileName")="aga"
Rs("FileData").AppendChunk MyData
Rs.Update
'关闭和释放对象
Rs.close
dbconn.close
Set Rs=Nothing
Set dbconn=Nothing
%>
<a href="testshowpic.asp?id=28">显示文件</a>
test.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<form name="form1" ENCTYPE="multipart/form-data" ACTION="testfileupload.asp" METHOD="POST">
<input NAME="picture" TYPE="FILE">
<input NAME="picturex" TYPE="FILE">
<input type="text" name="t1">
<input type="submit">
</form>
</body>
</html>
testupload.asp
<!-- #Include file="../../include/asp/create.Iasp" -->
<!-- #Include file="../../include/asp/opendatabase.Iasp" -->
<%
Response.Buffer=True
'FileDataName=Request("t1")
FileDataSize=Request.TotalBytes '获取提交数据量的总字节数
FileData=Request.BinaryRead(FileDataSize) '保存从客户端读取到的数据
'优化读取到的二进制数据
BnCrLf=chrB(13)&chrB(10)
Divider=LeftB(FileData,Clng(InstrB(FileData,BnCrLf))-1)
Dstart=InstrB(FileData,BnCrLf&BnCrLf)+4
Dend=InstrB(Dstart+1,FileData,Divider)-Dstart
MyData=MidB(FileData,Dstart,Dend)
'创建对象实例
Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select QuoteID,FileName,FileData from TFileUpLoad"
Rs.open sql,dbconn,1,3
'追加数据到数据库
Rs.AddNew
Rs("FileName")="aga"
Rs("FileData").AppendChunk MyData
Rs.Update
'关闭和释放对象
Rs.close
dbconn.close
Set Rs=Nothing
Set dbconn=Nothing
%>
<a href="testshowpic.asp?id=28">显示文件</a>
...全文
请发表友善的回复…
发表回复
