Question

asp自动生成html文件,生成的是乱码

以下是生成程序代码
<!--#include file="CheckAdmin.asp"-->
<!--#include file="Admin_html_function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<%
if Instr(session("AdminPurview"),"|34,")=0 then
response.write ("<br /><br /><div align=""center""><font style=""color:red; font-size:9pt; "")>您没有管理该模块的权限！</font></div>")
response.end
end if
Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,htmlc,htmld)
if mulu="" then mulu=""&SysRootDir&""
if htmlmulu="" then htmlmulu=""&SysRootDir&""
mulu=replace(mulu, "//", "/")
FilePath=Server.MapPath(mulu)&"\"&FileName
Do_Url="http://"
Do_Url=Do_Url&Request.ServerVariables("server_name")&htmlmulu&filefrom
Do_Url=Do_Url&"?"&htmla&htmlb&"&"&htmlc&htmld
strUrl=Do_Url
set objXmlHttp=Server.createObject("Microsoft.XMLHTTP")
objXmlHttp.open "GET",strUrl,false
objXmlHttp.setRequestHeader "Content-Type","text/HTML" '2009-08-09增加一句
objXmlHttp.send()
binFileData=objXmlHttp.ResponseBody
Set objXmlHttp=Nothing
set objAdoStream=Server.CreateObject("Adodb." & "Stream")
objAdoStream.Type=1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
set objAdoStream=nothing
End Function
%>
搞不懂啊，，，，

Answer 1

你用记事本打开然后另存为，保存类型 文件名.asp 编码 UTF-8.

我把你上面的代码复制到记事本，然后“另存为”，“保存类型”选择“所有文件”，“编码”选择“UTF-8”，去掉你所包含的两个文件（因为我这里没有你的问价），运行结果是红色居中的“您没有管理该模块的权限！”
用记事本只是为了保证文件编码是“UTF-8”。

Answer 2

1、相关的ASP文件
<%@ CODEPAGE=65001 %>
<% Response.CodePage=65001 %>
<% Response.Charset="UTF-8" %>
2、前台文件（比如你的模板）
在DW中，ctrl+J 然后选编码，选UTF-8
ASP中 <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
这句没有作用的。

Answer 3

应该是编码问题吧