菜鸟请教：文件上传问题

结合现在的时间
uploadfile1.PostedFile.SaveAs(strBaseLocation+Now.DayOfYear.ToString()+uploadfile.PostedFile.ContentLength );

string name=DateTime.Now.Year.ToString()+DateTime.Now.Month.ToString()+DateTime.Now.Day.ToString()+DateTime.Now.Hour.ToString()+DateTime.Now.Minute.ToString()+DateTime.Now.Second.ToString()+DateTime.Now.Millisecond.ToString();

fileUpLoad.PostedFile.SaveAs(filename+num)

filename = 当然时间带秒数

Dim lenstr As Int32
        lenstr = myfile.PostedFile.ContentLength
        '取得上传图片的数据
        Dim streamstr As Stream
        streamstr = myfile.PostedFile.InputStream
        '设置缓冲区的大小
        Dim imagebytes(lenstr) As Byte
        '写入数据
        streamstr.Read(imagebytes, 0, lenstr) If lenstr = 0 Then            mysql = "insert into gongqiu_table(xydl,xyzl,xinxileixing,text,content,cpname,cpgg,cpprice,cpshuliang,image,stand,cname,data) values ( '" + m + "','" + n + "','" + p + "','" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "',null,'" + Session("stand") + "','" + Session("cname") + "','" & System.DateTime.Now.ToShortDateString() & "')"            Dim cmd As New SqlCommand(mysql, conn)
            'cmd.Parameters.Add("@imagefile", imagebytes)
            cmd.ExecuteNonQuery()        Else            mysql = "insert into gongqiu_table(xydl,xyzl,xinxileixing,text,content,cpname,cpgg,cpprice,cpshuliang,image,stand,cname,data) values ( '" + m + "','" + n + "','" + p + "','" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "',@imagefile,'" + Session("stand") + "','" + Session("cname") + "','" & System.DateTime.Now.ToShortDateString() & "')"
            Dim cmd As New SqlCommand(mysql, conn)
            cmd.Parameters.Add("@imagefile", imagebytes)
            cmd.ExecuteNonQuery()
        End If

<%@ Page Language="VB" Debug="true"%>
<%@ import namespace="System.IO" %>
<%@ import namespace="System.Data" %>
<%@ import namespace="System.Data.SqlClient" %>
<script language="VB" Runat="server">

    '图片上传VB版
    Private Sub SavePhoto(sender As object,e As EventArgs)

        '取得所上传文件的长度
        Dim LenStr As Int16
        LenStr = photo.PostedFile.ContentLength

        '取得上传图片的数据
        Dim streamStr As Stream
        streamStr = photo.PostedFile.InputStream

        '设置缓冲区大小
        Dim imageBytes(LenStr) As Byte

        '写入文件数据
        streamStr.Read(imageBytes,0,LenStr)

        Dim conn As New SqlConnection("server=127.0.0.1;database=zdsw1;password=111111;user id=zdsw")

        Dim cmd As New SqlCommand("insert into Upload (image) values (@image)",conn)

        cmd.Parameters.Add("@title",title.Value)
        cmd.Parameters.Add("@imageFile",imageBytes)

        conn.Open()
        cmd.ExecuteNonQuery()
        Response.Write("成功")
        conn.Close()
        Response.End()

    End Sub
</script><html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>上传图片</title>
</head><body>
<form Runat="server" enctype="multipart/form-data" method="post" Name="upload">
<p>文件名称：<input type="text" ID="title" size="20" Runat="server"></p>
<p>图片路径：<input type="file" ID="photo" size="31" Runat="server"></p>
<p><input type="Button" ID="Sav" value="提交" OnServerclick="SavePhoto" Runat="server"><input type="reset" value="全部重写" name="B2"></p>
</form>
</body></html>

if(this.File1.PostedFile.FileName!="")
{
string destPath="";
try
{
//取得上传文件在服务器存放的目录
string dir=Server.MapPath("../Photo");
if(!Directory.Exists(dir))
{
Directory.CreateDirectory(dir);
}
//取得上传文件的文件名(不包括路径)
string fileName=System.IO.Path.GetFileName(this.File1.PostedFile.FileName);
//合并路径和文件名
//重新命名文件
string strSave=dir+"/"+this.txtempid.Text + System.IO.Path.GetExtension(fileName);
this.File1.PostedFile.SaveAs(strSave);

}
catch(Exception err)
{
Response.Write(err.Message);

}
}

调试易

菜鸟请教：文件上传问题

解决方案 »