第一种样式的WapHeader.asp代码:<%IfNotIsObjInstalled("QuickWAP.XML")ThenResponse.Redirect"NoSupport.asp"%><%SetXML=Server.CreateObject("QuickWAP.XML")SetWAP=Server.CreateObject("QuickWAP.WAP")%><%IfSession("ChineseType")<>""ThenXML.ChineseType=Session("ChineseType")WAP.ChineseType=Session("ChineseType")EndIfXML.XhtmlHeaderCSSFile'设置是否支持IE和WAP模拟器浏览。IfLcase(AllowIE)<>"true"AndXML.Displayer="Web"ThenXML.Redirect"ErrorTip.asp"'表示IE浏览器'IfLcase(AllowIE)<>"true"AndXML.Displayer="Wap"ThenXML.Redirect"ErrorTip.asp"'表示WAP模拟器。'简繁体切换ThisFileName="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("script_name")ThisFileAllName=Lcase(ThisFileName&"?"&Request.ServerVariables("Query_String"))'XML.writeoutThisFileAllName'网站信息配置DimW_WebsiteAppe,W_SuppExpl,W_WebSiteName,W_WebSiteUrl,W_StatMastName,W_StatMastEmail,W_StatMastQQ,W_WebSiteLogoDimW_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfoDimW_ArtCataShowClose,W_ArtCataName,W_DownCataShowClose,W_DownCataName,W_CoolSiteCataShowClose,W_CoolSiteCataNameDimW_BookCataShowClose,W_BookCataName,W_BBsCataShowClose,W_BBsCataName,W_BBsCataUrlDimW_BookWorryNeed,W_FrieLinkLogoUrl,W_FrieLinkCodeDimW_HomeArtRecoNum,W_HomeSoftRecoNum,W_HomeCoolSiteRecoNum,W_ArtRecoNum,W_SoftRecoNumDimW_CoolSiteRecoNum,W_BookRecoNum,W_TopArtRecoNum,W_TopSoftRecoNum,W_TopCoolSiteRecoNumDimW_PicCataName,W_PicCataShowClose,W_HomePicRecoNum,W_PicRecoNum,W_TopPicRecoNum'++++++++++++++++++++++++++++++++++++SubHoriNavi()'文章栏目导航XML.WriteOut"
"XML.WriteOut"导航:"&XML.A("","Index.asp","首页")IfArtClassID<>0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql="SelectClassID,ClassName,ParentPathFromNewsClassWhereClassID="&ArtClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS("ClassID")zParentPath=XML.RS("ParentPath")zClassName=XML.RS("ClassName")EndIfXML.RS.CloseIfzParentPath<>0ThenzParentPath=Replace(zParentPath,"0,","")XML.StrSql="SelectClassID,ClassName,ParentPathFromNewsClassWhereClassIDin("&zParentPath&")"XML.MdbDo1DoWhileNotXML.RS1.EofXML.WriteOut"->>"&XML.A("","News.asp?ListID="&XML.RS1("ClassID"),XML.RS1("ClassName"))XML.RS1.MoveNextLoopXML.RS1.CloseEndIfXML.WriteOut"->>"&XML.A("","News.asp?ListID="&zClassID,zClassName)&""EndIfEndSubSubSoftDownNavi()'下载栏目导航XML.WriteOut"
"&W_DownCataName&"
"XML.WriteOut"导航:->>"&W_DownCataNameIfSoftClassID<>0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql="SelectClassID,ClassName,ParentPathFromSoftClassWhereClassID="&SoftClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS("ClassID")zParentPath=XML.RS("ParentPath")zClassName=XML.RS("ClassName")EndIfXML.RS.CloseIfzParentPath<>0ThenzParentPath=Replace(zParentPath,"0,","")XML.StrSql="SelectClassID,ClassName,ParentPathFromSoftClassWhereClassIDin("&zParentPath&")"XML.MdbDo1DoWhileNotXML.RS1.EofXML.WriteOut"->>"&XML.A("","SoftDown.asp?ListID="&XML.RS1("ClassID"),XML.RS1("ClassName"))XML.RS1.MoveNextLoopXML.RS1.CloseEndIfXML.WriteRow"->>"&XML.A("","SoftDown.asp?ListID="&zClassID,zClassName)EndIfEndSub'=============================================================='文章栏目侧导航'==============================================================SubArticleClass()XML.WriteOut"
栏目导航