WAP中实现数据库附件下载

Dim connStr As String = class_data.cnstr
        Dim conn As New SqlConnection(connStr)
        Dim sql As String = "select * from gw_fjb where id=" + CStr(Request.QueryString("id"))
        Dim cmd As New SqlCommand(sql, conn)
        conn.Open()
        Dim read As SqlDataReader = cmd.ExecuteReader()
        read.Read()
        Dim tfjmc As String = Trim(read("fjmc"))
        '后缀和类型
        Dim hz() As String = tfjmc.Split(".")
        Dim hzmc As String = "", FILE_MIME As String
        If hz.Length = 2 Then
            hzmc = hz(1)
        End If
        Select Case LCase(hzmc)
            Case "txt"
                FILE_MIME = "text/plain"
            Case "doc"
                FILE_MIME = "application/msword"
            Case "mid"
                FILE_MIME = "audio/midi"
            Case "mp3"
                FILE_MIME = "audio/mpeg"
            Case "gif"
                FILE_MIME = "image/gif"
            Case "jpg"
                FILE_MIME = "image/jpeg"
            Case ".png"
                FILE_MIME = "image/png"
            Case "wml"
                FILE_MIME = "text/vnd.wap.wml"
            Case Else
                tv.Text = "操作失败：不合法的文件类型！"
                Exit Sub
        End Select

        Response.Clear()
        Response.AppendHeader("Content-Disposition", "attachment;filename =" + HttpUtility.UrlEncode(tfjmc))
        Response.ContentType = FILE_MIME
        Response.OutputStream.Write(read("fj"), 0, CInt(read("fjcd")))
        Response.End()
        conn.Close()

在确认服务器正常配置MIME时，还出现＂无法安装＂／＂无效的文件格式＂等错误提示，代表您的手机对应此文件的应用程序不支持此方式的输出．