上传文件的问题 请高手指点下
我用的是FILEUPLOAD 控件。想实现的是。点了确定后。根据上传的路径。把 文件读出来写到一个字符串。然后放到数据库的以个字段里。谁帮忙提供个代码谢谢啊
------解决方案--------------------//圖片上傳
string picName = " ";
if (uploadpic.Value.Length != 0)
{
picName = System.IO.Path.GetFileName(uploadpic.PostedFile.FileName);
}
string picExt = " ";
if (picName.Length > 0)
{
picExt = picName.Substring(picName.Length - 4, 4);
}
string picSavePath = "..\\AtthFiles\\News\\ ";
string picPath = System.Web.HttpContext.Current.Request.MapPath(picSavePath) + "news_picture_ " + maxid + picExt;
string PathDB_pic;
这是我的上传图片的 (文件一样), 理解应该没问题吧! uploadpic是我的fileupload控件
------解决方案--------------------uploadpic.PostedFile.SaveAs(picPath);
漏了一点点不好意思!
------解决方案-------------------- <%@ Import Namespace= "System.IO " %>
<%@ Import Namespace= "System.Data " %>
<%@ Import Namespace= "System.Data.OleDb " %>
<script language= "VB " runat= "server ">
Sub Enter_Click(sender As Object, e As EventArgs)
'只有客户提交了文件和文件说明才继续执行
If uploadfile.PostedFile.FileName <> " " And Intro.Text <> " " Then
'第一步:获取上传的文件的各种信息,以备后面使用***********************
'下面变量分别表示文件的名称,文件MIME类型,和文件说明和文件大小
Dim filename,fileContentType,fileintro As String
Dim filesize as Long
'Path.GetFileName方法可以从任何一个路径字符串中获取文件名称
filename= Path.GetFileName(uploadfile.PostedFile.FileName)
filesize=uploadfile.PostedFile.ContentLength
fileContentType=uploadfile.PostedFile.ContentType
fileintro=intro.Text
'第二步:利用Stream对象将上传的文件保存到二进制数组中*******************
Dim buffer(filesize) As Byte '建立一个和文件大小一致的二进制数组
Dim objStream As Stream '定义一个Stream对象变量
objStream=uploadfile.PostedFile.InputStream '读取上传文件到Stream对象中
objStream.Read(buffer,0,filesize) '读取整个文件到buffer数租中
'第三步:将二进制数组中的数据保存到数据库中********************************
Dim conn As New OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( "temp.mdb "))
Dim cmd As New OleDbCommand( "Insert Into uploadfile(filename,filesize,filebody,fileintro,fileContentType,submit_date) Values(@filename,@filesize,@filebody,@fileintro,@fileContentType,@Submit_Date) ", conn)
'给参数赋值
cmd.Parameters.Add(New OleDbParameter( "@filename ", OleDbType.Char,50))
cmd.Parameters( "@filename ").Value=filename
cmd.Parameters.Add(New OleDbParameter( "@filesize ", OleDbType.Integer))
cmd.Parameters( "@filesize ").Value=filesize
cmd.Parameters.Add(New OleDbParameter( "@filebody ", OleDbType.Binary))
cmd.Parameters( "@filebody ").Value=Buffer '这里是保存文件内容的二进制数组
cmd.Parameters.Add(New OleDbParameter( "@fileintro ", OleDbType.Char,250))
cmd.Parameters( "@fileintro ").Value=fileintro
cmd.Parameters.Add(New OleDbParameter( "@fileContentType ", OleDbType.Char,50))
cmd.Parameters( "@fileContentType ").Value=fileContentType
cmd.Parameters.Add(New OleDbParameter( "@submit_date ", OleDbType.Date))
cmd.Parameters( "@submit_date ").Value=Now()
'执行操作,插入记录
conn.open()
cmd.ExecuteNonQuery()
conn