62,046
社区成员
发帖
与我相关
我的任务
分享
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'其他代码没有问题
If Page.IsPostBack = True Then
'这里的代码怎么写?
Else
'这里的代码怎么写?
End If
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim fileThepath As String, UploadURL As String,WJ1 As String ,WJ2 As String
fileName = FileUpload1.FileName '获取要上传的文件的文件名。 'fileName 是模块级变量
fileThepath = FileUpload1.PostedFile.FileName '获取文件所在目录,但实际是文件名+扩展名
UploadURL = Server.MapPath("~\Docx\") '设置上传的目录,
WJ1 = TextBox1.Text '文件名存储变量
WJ2 = TextBox2.Text '文件扩展名变量
'之后将fileName文件拷贝到服务器的目录中,拷贝文件就是找不到fileName文件
'之后存储在数据表中的三个字段中:文件名字段、扩展名字段、文件字段,分别存储 WJ1、WJ2、fileName的数据,这个没有问题了。
End Sub
关键代码给你了,麻烦你给我指导那里的问题,再次谢谢!
if Page.IsPostBack then
return
end if
我没看到你的源代码,我也是猜测,你先试一试,看行不行,不行的话,贴出你的源代码
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim fileThepath As String, UploadURL As String, WJ1 As String, WJ2 As String, fileName As String
fileName = FileUpload1.FileName '获取要上传的文件的文件名。 'fileName 是模块级变量
'fileThepath = FileUpload1.PostedFile.FileName '获取文件所在目录,但实际是文件名+扩展名
UploadURL = Server.MapPath("~\Docx\") '设置上传的目录,
'浏览器设置不同,fileName有可能带路径,如C:\ABC\123.JPG,但我们只需要123.jpg,下面代码去掉路径
Dim start As Integer
start = fileName.LastIndexOf("\")
fileName = fileName.Substring(start + 1)
FileUpload1.SaveAs(UploadURL + fileName)
ScriptManager.RegisterStartupScript(Me, Me.GetType(), "skfjdkfj", "alert('保存成功')", True)
End Sub