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、& 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

8、 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

9、=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 -

10、 & 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.St

11、rSql=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,ClassNam

12、e 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 SoftDo

13、wnClass()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 N

14、ot 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

15、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

16、.MdbDo執(zhí)行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

17、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(Clas

18、sID) & ,% 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

19、 (&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 設置顯示的數(shù)據(jù)集合信息的位置topb

20、ottomnone,默認是topXML.DBOrderNumber=True 設置數(shù)據(jù)記錄前是否顯示自動編號數(shù)字。新增較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.Ch

21、ineseType=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.Writ

22、eOut 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)WA

23、P.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(

24、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

25、,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_HomeArtRecoN

26、um,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(

27、,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.Cl

28、oseIf 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 XM

29、L.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,ParentPat

30、h 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 Wh

31、ere 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 ArticleC

32、lass()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

33、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.

34、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.

35、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

36、 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

37、.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執(zhí)行SQL語句

38、。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,Class

39、Name,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=ChildI