Question

从数据库中读取文件是乱码问题

大家好,
我上传的文件己写入数据库,但通过下面代码读取出的文件是乱码,怎么处理?

<%
set conn=server.CreateObject("ADODB.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("upfile.mdb")
Info_Id=Request("Id")
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM file where Id="&Info_Id
rs.Open sql,conn,3,3
if rs.bof or rs.eof then
response.write "错误：找不到该文件"
response.end
end if

'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType=LCase(trim(contentType))
nFieldSize=field.ActualSize
bytes=field.GetChunk(nFieldSize)
Session("Bytes")=bytes
Session("Type")=contentType
End Function

SetForDisplay RS("filecontent"),rs("filetype")
Response.AddHeader "Content-Disposition", "attachment; filename=" & rs("fileName")
response.contentType=Session("Type")
response.BinaryWrite Session("Bytes")
Session("Type")=""
Session("Bytes")=""
response.End
set rs=nothing
conn.close
set conn=nothing
%>
检察过了没得问题,在每一个页上都加了:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

我要做一个"文件上传和下载"这个功能.哪位友人有源码给我一个啊,感谢! 邮箱:gwm684@126.com

Answer 1

检查一下，网页语言编码要统一到简体中文