上传图片

    Sub UploadFile(ByVal sender As Object, ByVal e As EventArgs)
        If fileup.PostedFile.ContentLength = 0 Then
            FileInfo.Visible = False
            Exit Sub
        Else
            FileInfo.Visible = True
        End If
        '显示上传文件的信息
        fsize.Text = CStr(fileup.PostedFile.ContentLength)
        ftype.Text = fileup.PostedFile.ContentType
        fname.Text = fileup.PostedFile.FileName
        '储存上传的文件
        Dim filesplit() As String = Split(fileup.PostedFile.FileName, "/")
        Dim filename As String = filesplit(filesplit.Length - 1)
        Dim filename1() As String = Split(filename, ".")
        Dim nametime As String
        nametime = Now()
        nametime = Replace(nametime, ":", "")
        nametime = Replace(nametime, "-", "")
        nametime = Replace(nametime, " ", "")
        filename = nametime + "." + filename1(filename1.Length - 1)
        'Response.Write(filename)
        'Response.End()
        fileup.PostedFile.SaveAs(Server.MapPath(".") & "/images/" & filename)
        Dim strcnn As String
        Dim cmd As OleDbCommand
        Dim myconn As OleDbConnection
        Dim strsql As String
        Dim noid As Integer
        Dim path As String
        noid = CInt(Request("id"))
        strcnn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" + Server.MapPath("../../fluxay/mydbfluxay.mdb")
        myconn = New OleDbConnection(strcnn)
        myconn.Open()
        path = "images/" + filename
        strsql = "update game set path='" + path.ToString + "' where id=" & noid
        'Response.Write(strsql)
        'Response.End()
        cmd = New OleDbCommand(strsql, myconn)
        cmd.ExecuteNonQuery()
        myconn.Close()
        Response.Write("<script>alert('图片保存成功');</script>")
    End Sub