<%
Function GetPageCharset(str)
obj_url=str
Set objXML = CreateObject("MSXML2.ServerXMLHTTP")
objXML.Open "GET", obj_url, false
objXML.Send()
header = objXml.GetAllResponseHeaders
Set objXML = Nothing
header=nohtml(lcase(header))
if instr(header,"charset=")>0 then
header_str=split(header,"charset=")
header1=replace(header_str(1)," ","")
charset_str=split(header1,"server:")
charset=charset_str(0)
else
'charset="utf-8"
end if
GetPageCharset=header
End Function
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
nohtml=replace(nohtml,"&nbsp;"," ")
nohtml=replace(nohtml," ","")
set re=nothing
End Function
'pushurl换成要获取的目标网址
pushurl="http://"&Request.ServerVariables("SERVER_NAME")
obj_PageCharset=GetPageCharset(pushurl)
if instr(obj_PageCharset,"charset=utf-8")>0 then
response.write "当前页面为UTF-8编码"
end if
if instr(obj_PageCharset,"charset=gb2312")>0 then
response.write "当前页面为gb2312编码"
end if
%>