《(2020年)(广告传媒)关于WAP20新闻文章系统Newsasp页面导航的修改》由会员分享,可在线阅读,更多相关《(2020年)(广告传媒)关于WAP20新闻文章系统Newsasp页面导航的修改(14页珍藏版)》请在金锄头文库上搜索。
1、第一种样式的WapHeader.asp代码:%If Session(ChineseType) ThenXML.ChineseType=Session(ChineseType)WAP.ChineseType=Session(ChineseType)End IfXML.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
2、 XML.Redirect ErrorTip.asp 表示WAP模拟器。简繁体切换ThisFileName = http:/ & Request.ServerVariables(server_name) & Request.ServerVariables(script_name)ThisFileAllName = Lcase(ThisFileName & ? & Request.ServerVariables(Query_String) )XML.writeout ThisFileAllName网站信息配置Dim W_WebsiteAppe,W_SuppExpl,W_WebSiteName,W
3、_WebSiteUrl,W_StatMastName,W_StatMastEmail,W_StatMastQQ,W_WebSiteLogoDim W_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfoDim W_ArtCataShowClose,W_ArtCataName,W_DownCataShowClose,W_DownCataName,W_CoolSiteCataShowClose,W_CoolSiteCataNameDim W_BookCataShowClose,W_BookCataName,W_BBsCataShowClose,W_BBsCa
4、taName,W_BBsCataUrlDim W_BookWorryNeed,W_FrieLinkLogoUrl,W_FrieLinkCodeDim W_HomeArtRecoNum,W_HomeSoftRecoNum,W_HomeCoolSiteRecoNum,W_ArtRecoNum,W_SoftRecoNumDim W_CoolSiteRecoNum,W_BookRecoNum,W_TopArtRecoNum,W_TopSoftRecoNum,W_TopCoolSiteRecoNumDim W_PicCataName,W_PicCataShowClose,W_HomePicRecoNum
5、,W_PicRecoNum,W_TopPicRecoNum+Sub HoriNavi() 文章栏目导航XML.WriteOut XML.WriteOut 导航: & XML.A(,Index.asp,首页)If ArtClassID0 Thendim zClassID,zClassName,zParentPath,ParentPath1XML.StrSql=Select ClassID,ClassName,ParentPath From NewsClass Where ClassID= & ArtClassIDXML.MdbDoIf Not XML.RS.Eof Then zClassID=X
6、ML.RS(ClassID) zParentPath=XML.RS(ParentPath) zClassName=XML.RS(ClassName)End IfXML.RS.CloseIf zParentPath0 Then zParentPath=Replace(zParentPath,0,) XML.StrSql=Select ClassID,ClassName,ParentPath From NewsClass Where ClassID in ( & zParentPath & ) XML.MdbDo 1 Do While Not XML.RS1.Eof XML.WriteOut -&
7、gt;> & XML.A(,News.asp?ListID= & XML.RS1(ClassID), XML.RS1(ClassName) XML.RS1.MoveNext Loop XML.RS1.CloseEnd IfXML.WriteOut ->> & XML.A(,News.asp?ListID= & zClassID,zClassName) & End IfEnd SubSub SoftDownNavi() 下载栏目导航XML.WriteOut & W_DownCataName & XML.WriteOut 导航: ->> & W_DownCataNam
8、eIf SoftClassID0 Thendim zClassID,zClassName,zParentPath,ParentPath1XML.StrSql=Select ClassID,ClassName,ParentPath From SoftClass Where ClassID= & SoftClassIDXML.MdbDoIf Not XML.RS.Eof Then zClassID=XML.RS(ClassID) zParentPath=XML.RS(ParentPath) zClassName=XML.RS(ClassName)End IfXML.RS.CloseIf zPare
9、ntPath0 Then zParentPath=Replace(zParentPath,0,) XML.StrSql=Select ClassID,ClassName,ParentPath From SoftClass Where ClassID in ( & zParentPath & ) XML.MdbDo 1 Do While Not XML.RS1.Eof XML.WriteOut ->> & XML.A(,SoftDown.asp?ListID= & XML.RS1(ClassID), XML.RS1(ClassName) XML.RS1.MoveNext Loop X
10、ML.RS1.CloseEnd IfXML.WriteRow ->> & XML.A(,SoftDown.asp?ListID= & zClassID,zClassName)End IfEnd Sub =文章栏目侧导航 =Sub ArticleClass()XML.WriteOut 栏目导航XML.WriteOut Dim zRsIf ArtClassID= ThenArtClassID=0End IfIf ArtClassID0 ThenXML.StrSql=Select ParentID From NewsClass Where ClassID=&ArtClassIDArtPa
11、rentID=XML.MdbShow(ParentID)End IfXML.StrSql=Select ClassID,ClassName,Child From NewsClass Where ParentID=&ArtClassIDXML.MdbDoIf Not XML.RS.Eof ThenDo While Not XML.RS.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,News.asp?ListID= & XML.RS(ClassID),XML.RS(ClassName)XML.RS.MoveNextLoopElseIf ArtClassID
12、0 ThenXML.StrSql=Select ClassID,ClassName From NewsClass Where ParentID= & ArtParentIDXML.MdbDo 1If Not XML.RS1.Eof Then Do While Not XML.RS1.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,News.asp?ListID= & XML.RS1(ClassID),XML.RS1(ClassName) XML.RS1.MoveNext LoopEnd IfXML.RS1.CloseEnd IfXML.RS.CloseXML.WriteOut End Sub =下载栏目侧导航 =Sub SoftDownClass()XML.WriteOut 栏目导航Dim zRsIf SoftClassID= ThenSoftClassID=0End IfIf SoftClassID0 ThenXML.StrSql=Select ParentID From SoftClass Where ClassID= & SoftClassIDSoftParentID=XML.MdbShow(ParentID)End IfXM