关于WAP20新闻文章系统Newsasp页面导航的修改.doc

第一种样式的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 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_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_BBsCataName,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,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=XML.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 ->> & 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_DownCataNameIf 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 zParentPath0 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 XML.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=&ArtClassIDArtParentID=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 ArtClassID0 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 IfXML.StrSql=Select ClassID,ClassName,Child From SoftClass Where ParentID=& SoftClassIDXML.MdbDoIf Not XML.RS.Eof ThenDo While Not XML.RS.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID= & XML.RS(ClassID),XML.RS(ClassName)XML.RS.MoveNextLoopElseIf SoftClassID0 ThenXML.StrSql=Select ClassID,ClassName From SoftClass Where ParentID= & SoftParentIDXML.MdbDo 1If Not XML.RS1.Eof Then Do While Not XML.RS1.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID= & XML.RS1(ClassID),XML.RS1(ClassName) XML.RS1.MoveNext LoopEnd IfXML.RS1.CloseEnd IfXML.RS.CloseEnd Sub首页版块导航Sub ShowNews(NewClassID)版块导航。XML.WriteOut XML.StrSql=Select * From NewsClass Where ParentID= & NewClassIDXML.MdbDo执行SQL语句。For I=0 To XML.Rs.RecordCount-1 XML.WriteOut XML.ImgA(,News.asp?ListId= & XML.RS(ClassId),XML.RS(ClassName) XML.Rs.MoveNext If IXML.Rs.RecordCount-1 Then If I=4 Or I=8 Or I=12 Then XML.WriteRow Else XML.WriteOut End IfNextXML.WriteOut XML.WriteOut If NewClassID 0 ThenXML.StrSql=Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID= & NewClassIDXML.MdbDoIf Not XML.RS.Eof Then if XML.RS(ClassID)0 then if XML.RS(Child)0 then ChildID= XML.StrSql=select ClassID from NewsClass where ParentID= & XML.RS(ClassID) & or ParentPath like & XML.RS(ParentPath) & , & XML.RS(ClassID) & ,% XML.MdbDo 1 do while not XML.RS1.eof if ChildID= then ChildID=XML.RS1(0) else ChildID=ChildID & , & XML.RS1(0) end if XML.RS1.movenext loop else ChildID=NewClassID end if end ifEnd IfXML.RS.Close XML.StrSql=Select Top 6 D_ID,D_ClassID,D_Title,D_Count,D_Time From NewsData Where d_classid in (&ChildID&) and d_recycle=false ORDER BY d_id DESCElseXML.StrSql=Select Top 6 D_ID,D_ClassID,D_Title,D_Count,D_Time From NewsData Where d_recycle=false ORDER BY d_id DESCEnd IfXML.EveryPageSize=10XML.FieldShow=D_TitleXML.FieldId=D_IDXML.GoFileName=NewsShow.aspXML.RsInfoPlace=none 设置显示的数据集合信息的位置topbottomnone,默认是topXML.DBOrderNumber=True 设置数据记录前是否显示自动编号数字。新增较V1.5XML.ErrorPagePath=XML.DbListTypeMode=9 当为9时，可以设置DbListImgPath的属性值。XML.DbListImgPath=Images/RedDot.gifXML.MdbListXML.WriteOut End Sub以下设置简繁体。FontType=Request.QueryString(FontType)If FontType=Simple Then Session(ChineseType)=Simple XML.ChineseType=Session(ChineseType) WAP.ChineseType=Session(ChineseType)ElseIf FontType=Complex Then Session(ChineseType)=Complex XML.ChineseType=Session(ChineseType) WAP.ChineseType=Session(ChineseType)End If以下为文件正文。XML.WriteOut XML.WriteOut XML.WriteOut XML.Img(images/NewLogo.gif,)XML.WriteOut XML.WriteOut XML.WriteOut XML.IA(images/home.gif,Index.asp)XML.WriteOut XML.IA(images/SimpleFont.gif,?FontType=Simple)XML.WriteOut XML.IA(images/ComplexFont.gif,?FontType=Complex)XML.WriteOut XML.WriteOut XML.WriteOut %第二种样式的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 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_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_BBsCataName,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,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=XML.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 ->> & 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_DownCataNameIf 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 zParentPath0 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 XML.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=&ArtClassIDArtParentID=XML.MdbShow(ParentID)End IfXML.StrSql=Select ClassID,ClassName,Child From NewsClass Where ParentID=&ArtClassIDXML.MdbDoIf Not XML.RS.Eof ThenFor I=0 To XML.RecordCount-1If (I+4)Mod 4=3 Then XML.WriteOut Else XML.WriteOut XML.WriteOut XML.ImgA(,News.asp?ListID= & XML.RS(ClassID),XML.RS(ClassName)XML.RS.MoveNextNextElseIf ArtClassID0 ThenXML.StrSql=Select ClassID,ClassName From NewsClass Where ParentID= & ArtParentIDXML.MdbDo 1If Not XML.RS1.Eof ThenFor I=0 To XML.RecordCount-1If (I+4)Mod 4=3 Then XML.WriteOut Else XML.WriteOut XML.WriteOut XML.ImgA(,News.asp?ListID= & XML.RS1(ClassID),XML.RS1(ClassName) XML.RS1.MoveNext NextEnd 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 IfXML.StrSql=Select ClassID,ClassName,Child From SoftClass Where ParentID=& SoftClassIDXML.MdbDoIf Not XML.RS.Eof ThenDo While Not XML.RS.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID= & XML.RS(ClassID),XML.RS(ClassName)XML.RS.MoveNextLoopElseIf SoftClassID0 ThenXML.StrSql=Select ClassID,ClassName From SoftClass Where ParentID= & SoftParentIDXML.MdbDo 1If Not XML.RS1.Eof Then Do While Not XML.RS1.Eof XML.WriteRow XML.ImgA(Images/RedDot.gif,SoftDown.asp?ListID= & XML.RS1(ClassID),XML.RS1(ClassName) XML.RS1.MoveNext LoopEnd IfXML.RS1.CloseEnd IfXML.RS.CloseEnd Sub首页版块导航Sub ShowNews(NewClassID)版块导航。XML.WriteOut XML.StrSql=Select * From NewsClass Where ParentID= & NewClassIDXML.MdbDo执行SQL语句。For I=0 To XML.Rs.RecordCount-1 XML.WriteOut XML.ImgA(,News.asp?ListId= & XML.RS(ClassId),XML.RS(ClassName) XML.Rs.MoveNext If IXML.Rs.RecordCount-1 Then If I=4 Or I=8 Or I=12 Then XML.WriteRow Else XML.WriteOut End IfNextXML.WriteOut XML.WriteOut If NewClassID 0 ThenXML.StrSql=Select ClassID,ClassName,ParentPath,Child From NewsClass Where ClassID= & NewClassIDXML.MdbDoIf Not XML.RS.Eof Then if XML.RS(ClassID)0 then if XML.RS(Child)0 then ChildID= XML.StrSql=select ClassID from NewsClass where ParentID= & XML.RS(ClassID) & or ParentPath like & XML.RS(ParentPath) & , & XML.RS(ClassID) & ,% XML.MdbDo 1 do while not XML.RS1.eof if ChildID= then ChildID=XML.RS1(0) else ChildI