回 帖 发 新 帖 刷新版面

主题:上传文件错误

<%@ Import Namespace="System.IO"%>
<script language="VB" runat="server" >
sub Enter_click(sender As Object,E As EventArgs)
dim  Exc as Exception   '定义错误变量,用来捕获错误信息
try
dim filename,filepath as string
filename=path.GetFileName(uploadfile.postedfile.filename)
'filepath是服务器保存上传文件的完整路径
filepath=server.Mappath("upload") &  "\" & filename
uploadfile.PostedFile.SaveAs(filepath)  '保存上传文件到upload文件中
Response.Redirect("index.aspx")
catch Exc
  message.text="保存文件时出错<br>"& Exc.ToString()
  end try
end sub
</script>
<html>
<body>
<h4 align="center">上传文件</h4>
<form enctype="multipart/from-data" runat="server">
选择文件:<input id="uploadfile" type="file" runat="server">
<b><input type="button" id="enter" value="提交" onServerClick="Enter_click" runat="server">
<asp:label id="message" runat="server"/>
</form>
</body>
</html>
0

回复列表 (共1个回复)

沙发

在线博彩平台:www.pb258.com
在线博彩平台:www.jjxtech.com 
在线博彩平台:www.lcmty.com 
在线博彩平台:www.7macau.com
在线博彩平台:www.7macau.net
在线博彩平台:www.bp258.com
在线博彩平台:www.258bp.com

我来回复

您尚未登录,请登录后再回复。点此登录或注册