| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 585 人关注过本帖
标题:[求助]如何在上傳文件的同時上傳表單内容?
只看楼主 加入收藏
fzlklmy
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-29
收藏
 问题点数:0 回复次数:3 
[求助]如何在上傳文件的同時上傳表單内容?

我要直接把文件寫道數據庫裏,現在可以寫進去了,但是不能傳表單的内容,有知道的拜托說下
这个是录入页:

<html>
<head>
<title>文件上传保存到数据库中</title>
</head>
<body>
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp">
<p>
<input type="text" name="textfield">
说明</p>
<p>
<input type="file" name="file">
<input type="submit" name="Submit" value="上传">
</p>
</form>
</body>
</html>

这个是上传页面:

<%
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

%>
<body><a href="zj_down.asp">下载</a></body>

这个是下载页面:
<%
Response.Buffer=true
Response.Clear
set iConcStr=server.CreateObject("adodb.connection")
iConcStr.open "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
%>
这个是我在网上找的程序,但是它上传后只能识别个别的文件扩展名,怎么让它能自己识别呢?
主要的还是怎么能让它在传文件的同时还可以传表单的内容?

数据库:
ACCESS数据库:zj.mdb
表:tb_img(id int(自增列)
path text(255) 保存上传文件的目录
fname text(250) 保存上传的文件名
type test(250) 保存上传文件的类型
img ole对象 保存上传的文件内容
sm text(200) 文件说明
搜索更多相关主题的帖子: 文件 
2006-04-21 10:28
piaoxue
Rank: 3Rank: 3
来 自:地球
等 级:论坛游侠
威 望:3
帖 子:606
专家分:113
注 册:2005-9-19
收藏
得分:0 
传文件的同时还可以传表单?
什么意思? 你都用request方法获取客户端的信息不就可以吗!!

我是做平面设计、网站制作、网站推广、主机域名等业务的站长。有需要的给我站内信吧。
2006-04-21 10:33
fzlklmy
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-29
收藏
得分:0 
我要做的是把文件传到数据库,作为附件,以后还可以下载
这里面用了Request.BinaryRead(iLen)
再用request还可以吗?
现在就是怎么传我做不出来了```
2006-04-21 10:52
fzlklmy
Rank: 1
等 级:新手上路
帖 子:44
专家分:0
注 册:2006-3-29
收藏
得分:0 
没有人知道吗?
郁闷```我想了三天了都``
2006-04-21 12:01
快速回复:[求助]如何在上傳文件的同時上傳表單内容?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024952 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved