今天在给客户的网站做优化的过程中,总是出现乱码,结果搞了一个下午也没解决,最后忽然想到,也许是因为一个网站用了两种编码方式导致的,于是测试了一下,果然是因为这个原因。
解决办法如下:
在Utf-8程序页面的第一行加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Session.CodePage=65001%>
在GB2312程序页面的第一行加上
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
我的代码:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Session.CodePage=936%>
<!--#include file="include/function.asp" -->
<%
refresh=request.querystring("refresh")
classid=request.querystring("classid")
id=request.querystring("id")
is_create=0
fileaddress="/flyhtml/"&id&".html"
if refresh=1 then
is_create=1
else
Set va = new Cls_FSO
if FolderExits("/flyhtml/")=false then
CreateFolder("/flyhtml/")
end if
'response.Write(va.GetFileSize(server.MapPath(fileaddress)))
if FileExits(fileaddress)=true then
if va.GetFileSize(server.MapPath(fileaddress))>1000 then
c_time=va.ShowDatecreated(server.MapPath(fileaddress))
if(DateDiff("d",c_time,Date()))>7 then
is_create=1
end if
else
is_create=1
end if
else
is_create=1
end if
end if