搜索
第一种样式的WapHeader.asp代码：!--#IncludeFile=Function.asp--%IfNotIsObjInstalled(QuickWAP.XML)ThenResponse.RedirectNoSupport.asp%%SetXML=Server.CreateObject(QuickWAP.XML)SetWAP=Server.CreateObject(QuickWAP.WAP)%!--#IncludeFile=WapConfig.asp--%IfSession(ChineseType)ThenXML.ChineseType=Session(ChineseType)WAP.ChineseType=Session(ChineseType)EndIfXML.XhtmlHeaderCSSFile'设置是否支持IE和WAP模拟器浏览。IfLcase(AllowIE)trueAndXML.Displayer=WebThenXML.RedirectErrorTip.asp'表示IE浏览器'IfLcase(AllowIE)trueAndXML.Displayer=WapThenXML.RedirectErrorTip.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.WriteOutdivclass='n3'XML.WriteOut导航:&XML.A(,Index.asp,首页)IfArtClassID0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql=SelectClassID,ClassName,ParentPathFromNewsClassWhereClassID=&ArtClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS(ClassID)zParentPath=XML.RS(ParentPath)zClassName=XML.RS(ClassName)EndIfXML.RS.CloseIfzParentPath0ThenzParentPath=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)&/divEndIfEndSubSubSoftDownNavi()'下载栏目导航XML.WriteOuth2&W_DownCataName&/h2XML.WriteOut导航:->>&W_DownCataNameIfSoftClassID0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql=SelectClassID,ClassName,ParentPathFromSoftClassWhereClassID=&SoftClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS(ClassID)zParentPath=XML.RS(ParentPath)zClassName=XML.RS(ClassName)EndIfXML.RS.CloseIfzParentPath0ThenzParentPath=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.WriteOutdivclass='n3'栏目导航/divXML.WriteOutdivclass='lS1'DimzRsIfArtClassID=ThenArtClassID=0EndIfIfArtClassID0ThenXML.StrSql=SelectParentIDFromNewsClassWhereClassID=&ArtClassIDArtParentID=XML.MdbShow(ParentID)EndIfXML.StrSql=SelectClassID,ClassName,ChildFromNewsClassWhereParentID=&ArtClassIDXML.MdbDoIfNotXML.RS.EofThenDoWhileNotXML.RS.EofXML.WriteRowXML.ImgA(Images/RedDot.gif,News.asp?ListID=&XML.RS(ClassID),XML.RS(ClassName))XML.RS.MoveNextLoopElseIfArtClassID0ThenXML.StrSql=SelectClassID,ClassNameFromNewsClassWhereParentID=&ArtParentIDXML.MdbDo1IfNotXML.RS1.EofThenDoWhileNotXML.RS1.EofXML.WriteRowXML.ImgA(Images/RedDot.gif,News.asp?ListID=&XML.RS1(ClassID),XML.RS1(ClassName))XML.RS1.MoveNextLoopEndIfXML.RS1.CloseEndIfXML.RS.CloseXML.WriteOut/divEndSub'=============================================================='下载栏目侧导航'==============================================================SubSoftDownClass()XML.WriteOuth2栏目导航/h2DimzRsIfSoftClassID=ThenSoftClassID=0EndIfIfSoftClassID0ThenXML.StrSql=SelectParentIDFromSoftClassWhereClassID=&SoftClassIDSoftParentID=XML.MdbShow(ParentID)EndIfXML.StrSql=SelectClassID,ClassName,ChildFromSoftClassWhereParentID=&SoftClassIDXML.MdbDoIfNotXML.RS.EofThenDoWhileNotXML.RS.EofXML.WriteRowXML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID=&XML.RS(ClassID),XML.RS(ClassName))XML.RS.MoveNextLoopElseIfSoftClassID0ThenXML.StrSql=SelectClassID,ClassNameFromSoftClassWhereParentID=&SoftParentIDXML.MdbDo1IfNotXML.RS1.EofThenDoWhileNotXML.RS1.EofXML.WriteRowXML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID=&XML.RS1(ClassID),XML.RS1(ClassName))XML.RS1.MoveNextLoopEndIfXML.RS1.CloseEndIfXML.RS.CloseEndSub'''''''''''''''''''''''''''''''''首页版块导航SubShowNews(NewClassID)'版块导航。XML.WriteOutdivclass='n3'XML.StrSql=Select*FromNewsClassWhereParentID=&NewClassIDXML.MdbDo'执行SQL语句。ForI=0ToXML.Rs.RecordCount-1XML.WriteOutXML.ImgA(,News.asp?ListId