<!--#Include File="Function.asp"-->
<%If Not IsObjInstalled("QuickWAP.XML") Then Response.Redirect "NoSupport.asp"%>
<%
Set XML=Server.CreateObject("QuickWAP.XML")
Set WAP=Server.CreateObject("QuickWAP.WAP")
%>
<!--#Include File="WapConfig.asp"-->
<%
If Session("ChineseType")<>"" Then
	XML.ChineseType=Session("ChineseType")
	WAP.ChineseType=Session("ChineseType")
End If
XML.XhtmlHeader CSSFile
'设置是否支持IE和WAP模拟器浏览。
If Lcase(AllowIE)<>"true" And XML.Displayer="Web" Then XML.Redirect "ErrorTip.asp" '表示IE浏览器
'If Lcase(AllowIE)<>"true" And XML.Displayer="Wap" Then XML.Redirect "ErrorTip.asp" '表示WAP模拟器。
%>