Sub UpLoad(Src As Object, E As EventArgs) If UploadFile.PostedFile.ContentLength=0 then ShowUpLoadFile.innerText="上传失败或文件不存在!" Else '获取文件名 dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\") dim FileName as String=Temp(Temp.Length-1) '保存文件 UploadFile.PostedFile.SaveAs(Server.MapPath(".") & "\Files\" & FileName) '显示上传结果 ShowUpLoadFile.InnerHtml="文件上传成功!<br>上传文件名:" & FileName End If End Sub利用ASP.NET向服务器上传文件 http://dev.csdn.net/develop/article/21/21376.shtm
url = url.Substring(0,url.LastIndexOf("/")+1);
Response.Write (url);
If UploadFile.PostedFile.ContentLength=0 then
ShowUpLoadFile.innerText="上传失败或文件不存在!"
Else
'获取文件名
dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")
dim FileName as String=Temp(Temp.Length-1)
'保存文件
UploadFile.PostedFile.SaveAs(Server.MapPath(".") & "\Files\" & FileName)
'显示上传结果
ShowUpLoadFile.InnerHtml="文件上传成功!<br>上传文件名:" & FileName
End If
End Sub利用ASP.NET向服务器上传文件
http://dev.csdn.net/develop/article/21/21376.shtm