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"