如果是直接上传的asp文件只要加上%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%就正常了。。
如果是html文件不用加代码也正常
但是如果是后台生成的前台静态文件就是乱码
我加在前台模板htm文件里，还是一样乱码。那我想应该不是在这里修改，是在生成过程中了

    '################ 生成htm结束 ################
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    set fr=fso.opentextfile(server.mappath("temp/index1.htm"))
    pencat=fr.readall
    fr.close
    pencat=replace(pencat,"[JE_WEBNAME]",title)
    pencat=replace(pencat,"[JE_ZFZQ]",ZFZQ)
    pencat=replace(pencat,"[JE_QFJE]",QFJE)
    pencat=replace(pencat,"[JE_ADLIST]",list)
    if mpage>1 then
        pencat=replace(pencat,"[JE_PAGE]",pagefy)
    else
        pencat=replace(pencat,"[JE_PAGE]","")
    end if
    pencat=replace(pencat,"[JE_CUXIAO]",CUXIAO)
    pencat=replace(pencat,"[JE_NEW]",NEWADD)
    pencat=replace(pencat,"[JE_PUBLISH]",publish)
    
    pencat=replace(pencat,"[JE_JZSD]",JZSD)
    pencat=replace(pencat,"[JE_XY]",XYPH)
    pencat=replace(pencat,"[JE_DMFF]",DMFF)
    pencat=replace(pencat,"[JE_FW]",FWPH)
    pencat=replace(pencat,"[JE_HITS]",HIST)
    pencat=replace(pencat,"[JE_LINK]",LINK)
    
    Set fout = fso.CreateTextFile(server.mappath("../../"&filename&".html"),true,true)
    fout.Write pencat
    fout.close
    '************** 生成htm页 结束 ***************

这是页面下的一段代码，但我不知道怎么改，谁能帮我看看吗？