filepath就是在上传时定义了,也是在更新事件里呢

==

Sub updateinfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles updateinfo.Click
Dim u As String = Session("username")
Dim filename, filepath As String
filename = Path.GetFileName(uploadfile.PostedFile.FileName)
filepath = Server.MapPath(".\images\dvimages\") & filename
uploadfile.PostedFile.SaveAs(filepath)

Dim uname As String = username.Text
Dim upwd As String = userpwd.Text
Dim uaddr As String = useraddr.Text
Dim usex As String = usersex.Text
Dim uborn As String = userborn.Text
Dim uqq As String = userqq.Text
Dim uemail As String = useremail.Text
Dim umsn As String = usermsn.Text
Dim uface As String = userface.ImageUrl

If uploadfile.Value.ToString() = "" Then
Dim strsql As String
strsql = "update users set username='" & uname & "',userpwd='" & upwd & "',useraddr='" & uaddr & "',usersex='" & usex & "',userborn='" & uborn & "',userqq='" & uqq & "',useremail='" & uemail & "',usermsn='" & umsn & "' where username='" & u & "'"
Dim cmd As New SqlCommand(strsql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

message.Text = "更改成功!"
Else
Dim strsql As String
strsql = "update users set username='" & uname & "',userpwd='" & upwd & "',useraddr='" & uaddr & "',usersex='" & usex & "',userborn='" & uborn & "',userqq='" & uqq & "',useremail='" & uemail & "',usermsn='" & umsn & "',userface='.\images\dvimages\" & filename & "' where username='" & u & "'"
Dim cmd As New SqlCommand(strsql, conn)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

message.Text = "更改成功!"
End If

End Sub

If uploadfile.Value.ToString() = "" Then
Dim filename, filepath As String
filename = Path.GetFileName(uploadfile.PostedFile.FileName)
filepath = Server.MapPath(".\images\dvimages\") & filename
uploadfile.PostedFile.SaveAs(filepath)
Else
......
End If

这样试试

OK了,你不用看代码了,我把uploadfil.PostedFile.SaveAs(filepath)这句应该放到else里面了,刚又试了一下,没事了,

太谢谢你了,我又学了一样~~

谢谢偶像"仰望星空"了,已经完全没事了,我各种情况都试了,一切OK,非常感谢!!!

不客气

谁让你老灌水了

呵呵,仰望星空说的对,记住,以后别老灌水了.~~~

这句话好像说得有点过份.!!