<%@ 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>")"
<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>")"
<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>")"
<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>")"