上传使用<input type="file" ... >。
显示也有两种情况,一是上传之后马上显示(文件还保存在服务器硬盘上),二是将文件从数据库中取出来后显示。不知道你需要哪一种。

解决方案 »

  1.   

    <%@ Page Language="vb" AutoEventWireup="false" Codebehind="upload.aspx.vb" Inherits="VBnet.upload"%>
    <HTML>
    <HEAD>
    <title>upload</title>
    </HEAD>
    <body>
    <form encType="multipart/form-data" runat="server">
    <FONT face="宋体">
    <P><asp:label id="Label1" runat="server">选择一个文件</asp:label><INPUT id="File1" type="file" runat="server"></P>
    <P><asp:checkbox id="Check1" runat="server" Checked Text="显示上传信息"></asp:checkbox><asp:button id="Button1" onclick="Button1_Click" runat="server" Text="上传"></asp:button></P>
    <span id="span1" style="FONT: 8pt verdand" runat="server"></span></FONT></form>
    </SPAN>
    </body>
    </HTML>
    UPLOAD.ASPX代码Sub Button1_Click(ByVal Source As Object, ByVal e As EventArgs)
        Try
         File1.PostedFile.SaveAs(_
                ("D:\..\VBnet\temp\") + fname)
                        Response.Write("<a href=http:\vbnet\temp\" + fname + ">" + fname + "</a>")
                        span1.InnerHtml = "文件成功上传到<b>D:\..\VBnet\temp\" & fname                Catch exc As Exception
                        span1.InnerHtml = "文件没有保存到<b>D:\..\VBnet\temp\" & fname & exc.ToString() & "----" & exc.Message
                    End Try
                End If
            Else
                If fname = "" Then
                    Return
                End If
                If Not (File1.PostedFile Is Nothing) Then
                    File1.PostedFile.SaveAs("D:\..\VBnet\temp\" + fname)
                End If
            End If
        End Sub上面上传保存
    显示的话用
    Response.write "<a href=D:\..\vbnet\temp\" + fname + ">" + fname + "</a>")"
      

  2.   

    <HTML>
    <head>上传图片</head>
    <script lanuage="vb" runat="server">
      sub button1_click(source as object ,e as eventargs)
         dim filename as string
         filename=File1.PostedFile.FileName
        if not(fiel1.postedfile is nothing) then
          try 
               file1.postfile.saveas("c:\temp\"+FileName)
               response.write "上传成功"
          catch exc as exception
               response.write"上传失败"
               response.write "<br>"
               response.write exc.Message 
          end try    else
            if not(file1.postfile is nothing) then
               file1.postfile.saveas("c:\temp\"+fname)
             end if
        end if    
      end sub
    </script>
    <body>
        <form enctype="multipart/form-data" runat="sever">
         <input id="file1" type=file runat="server">
         <br>
        <asp:button id="Button1" onclick="Button1_Click" runat="server" Text="上传"></asp:button>
    </form>
    </body>
    <\HTML>显示的话用
    Response.write "<a href=c:\temp\" + fname + ">" + fname + "</a>")"