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()
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时,还出现"无法安装"/"无效的文件格式"等错误提示,代表您的手机对应此文件的应用程序不支持此方式的输出.