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

　　
第一种样式的WapHeader.asp代码：

<%If Not IsObjInstalled("QuickWAP.XML") Then Response.Redirect "NoSupport.asp"%>
<%
Set XML=Server.CreateObject("QuickWAP.XML")
Set WAP=Server.CreateObject("QuickWAP.WAP")
%>

<%
If Session("ChineseType")<>"" Then
XML.ChineseType=Session("ChineseType")
WAP.ChineseType=Session("ChineseType")
End If
XML.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_WebSiteLogo
Dim W_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfo
Dim W_ArtCataShowClose,W_ArtCataName,W_DownCataShowClose,W_DownCataName,W_CoolSiteCataShowClose,W_CoolSiteCataName
Dim W_BookCataShowClose,WBookCataName,W_BBsCataShowClose,W_BBsCataName,W_BBsCataUrl
Dim W_BookWorryNeed,W_FrieLinkLogoUrl,W_FrieLinkCode
Dim W_HomeArtRecoNum,W_HomeSoftRecoNum,W_HomeCoolSiteRecoNum,W_ArtRecoNum,W_SoftRecoNum
Dim W_CoolSiteRecoNum,W_BookRecoNum,W_TopArtRecoNum,W_TopSoftRecoNum,W_TopCoolSiteRecoNum
Dim WPicCataName,W_PicCataShowClose,W_HomePicRecoNum,W_PicRecoNum,W_TopPicRecoNum
'++++++++++++++++++++++++++++++++++++
Sub HoriNavi() '文章栏目导航
XML.WriteOut "StrSql="Select ClassID,ClassName,ParentPath From NewsClass Where ClassID=" & ArtClassID
XML.MdbDo
If Not XML.RS.Eof Then
   zClassID=XML.RS("ClassID")
   zParentPath=XML.RS("ParentPath")
   zClassName=XML.RS("ClassName")
End If
XML.RS.Close
If zParentPath<>0 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.Close
End If
XML.WriteOut " ->> " & XML.A("","News.asp?ListID=" & zClassID,zClassName) & "sID,zClassName,zParentPath,ParentPath1
XML.StrSql="Select ClassID,ClassName,ParentPath From SoftClass Where ClassID=" & SoftClassID
XML.MdbDo
If Not XML.RS.Eof Then
   zClassID=XML.RS("ClassID")
   zParentPath=XML.RS("ParentPath")
   zClassName=XML.RS("ClassName")
End If
XML.RS.Close
If zParentPath<>0 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.Close
End If
XML.WriteRow " ->> " & XML.A("","SoftDown.asp?ListID=" & zClassID,zClassName)
End If
End Sub
' ==============================================================
'文章栏目侧导航
' ======================================
Sub ArticleClass()
XML.WriteOut "ntID")
End If
XML.StrSql="Select ClassID,ClassName,Child From NewsClass Where ParentID="&ArtClassID
XML.MdbDo
If Not XML.RS.Eof Then
Do While Not XML.RS.Eof
          XML.WriteRow XML.ImgA("Images/RedDot.gif","News.asp?ListID=" & XML.RS("ClassID"),XML.RS("ClassName"))
XML.RS.MoveNext
Loop
ElseIf ArtClassID<>0 Then
XML.StrSql="Select ClassID,ClassName From NewsClass Where ParentID=" & ArtParentID
XML.MdbDo 1
If 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
   Loop
End If
XML.RS1.Close
End If
XML.RS.Close
XML.WriteOut "m zRs
If SoftClassID="" Then
SoftClassID=0
End If
If SoftClassID<>0 Then
XML.StrSql="Select ParentID From SoftClass Where ClassID=" & SoftClassID
SoftParentID=XML.MdbShow("ParentID")
End If
XML.StrSql="Select ClassID,ClassName,Child From SoftClass Where ParentID="& SoftClassID
XML.MdbDo
If Not XML.RS.Eof Then
Do While Not XML.RS.Eof
          XML.WriteRow XML.ImgA("Images/RedDot.gif","SoftDown.asp?ListID=" & XML.RS("ClassID"),XML.RS("ClassName"))
XML.RS.MoveNext
Loop
ElseIf SoftClassID<>0 Then
XML.StrSql="Select ClassID,ClassName From SoftClass Where ParentID=" & SoftParentID
XML.MdbDo 1
If 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
   Loop
End If
XML.RS1.Close
End If
XML.RS.Close
End Sub
''''''''''''''''''''''''''''''''
'首页版块导航
Sub ShowNews(NewClassID)
'版块导航。
XML.WriteOut "    XML.Rs.MoveNext
    If I"
'''''''''''''''''''''''''''''''
XML.WriteOut "ath,Child From NewsClass Where ClassID=" & NewClassID
XML.MdbDo
If 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 if
End If
XML.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 DESC"
Else
XML.StrSql="Select Top 6 D_ID,D_ClassID,D_Title,D_Count,D_Time From NewsData Where d_recycle=false ORDER BY d_id DESC"
End If
XML.EveryPageSize=10
XML.FieldShow="D_Title"
XML.FieldId="D_ID"
XML.GoFileName="NewsShow.asp"
XML.RsInfoPlace="none" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
XML.ErrorPagePath=""
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/RedDot.gif"
XML.MdbList
XML.WriteOut "ype="Complex" Then
   Session("ChineseType")="Complex"
   XML.ChineseType=Session("ChineseType")
   WAP.ChineseType=Session("ChineseType")
End If
'以下为文件正文。
XML.WriteOut "
XML.WriteOut "pHeader.asp代码：

<%If Not IsObjInstalled("QuickWAP.XML") Then Response.Redirect "NoSupport.asp"%>
<%
Set XML=Server.CreateObject("QuickWAP.XML")
Set WAP=Server.CreateObject("QuickWAP.WAP")
%>

<%
If Session("ChineseType")<>"" Then
XML.ChineseType=Session("ChineseType")
WAP.ChineseType=Session("ChineseType")
End If
XML.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_WebSiteLogo
Dim W_WebSiteKeyword,W_WebSiteIntr,W_WebSiteCopyInfo
Dim W_ArtCataShowClose,W_ArtCataName,W_DownCataShowClose,W_DownCataName,W_CoolSiteCataShowClose,W_CoolSiteCataName
Dim W_BookCataShowClose,W_BookCataName,W_BBsCataShowClose,W_BBsCataName,W_BBsCataUrl
Dim W_BookWorryNeed,W_FrieLinkLogoUrl,W_FrieLinkCode
Dim W_HomeArtRecoNum,W_HomeSoftRecoNum,W_HomeCoolSiteRecoNum,W_ArtRecoNum,W_SoftRecoNum
Dim W_CoolSiteRecoNum,W_BookRecoNum,W_TopArtRecoNum,W_TopSoftRecoNum,W_TopCoolSiteRecoNum
Dim W_PicCataNameW_PicCataShowClose,W_HomePicRecoNum,W_PicRecoNum,W_TopPicRecoNum
'++++++++++++++++++++++++++++++++++++
Sub HoriNavi() '文章栏目导航
XML.WriteOut "ect ClassID,ClassName,ParentPath From NewsClass Where ClassID=" & ArtClassID
XML.MdbDo
If Not XML.RS.Eof Then
   zClassID=XML.RS("ClassID")
   zParentPath=XML.RS("ParentPath")
   zClassName=XML.RS("ClassName")
End If
XML.RS.Close
If zParentPath<>0 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.Close
End If
XML.WriteOut " ->> " & XML.A("","News.asp?ListID=" & zClassID,zClassName) & "me,zParentPath,ParentPath1
XML.StrSql="Select ClassID,ClassName,ParentPath From SoftClass Where ClassID=" & SoftClassID
XML.MdbDo
If Not XML.RS.Eof Then
   zClassID=XML.RS("ClassID")
   zParentPath=XML.RS("ParentPath")
   zClassName=XML.RS("ClassName")
End If
XML.RS.Close
If zParentPath<>0 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.Close
End If
XML.WriteRow " ->> " & XML.A("","SoftDown.asp?ListID=" & zClassID,zClassName)
End If
End Sub
' ==============================================================
'文章栏目侧导航
' ==================================================
Sub ArticleClass()
XML.WriteOut "If
XML.StrSql="Select ClassID,ClassName,Child From NewsClass Where ParentID="&ArtClassID
XML.MdbDo
If Not XML.RS.Eof Then
For I=0 To XML.RecordCount-1
If (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.MoveNext
Next
ElseIf ArtClassID<>0 Then
XML.StrSql="Select ClassID,ClassName From NewsClass Where ParentID=" & ArtParentID
XML.MdbDo 1
If Not XML.RS1.Eof Then
For I=0 To XML.RecordCount-1
If (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
   Next
End If
XML.RS1.Close
End If
XML.RS.Close
XML.WriteOut "
Sub SoftDownClass()
XML.WriteOut "Select ClassID,ClassName,Child From SoftClass Where ParentID="& SoftClassID
XML.MdbDo
If Not XML.RS.Eof Then
Do While Not XML.RS.Eof
          XML.WriteRow XML.ImgA("Images/RedDot.gif","SoftDown.asp?ListID=" & XML.RS("ClassID"),XML.RS("ClassName"))
XML.RS.MoveNext
Loop
ElseIf SoftClassID<>0 Then
XML.StrSql="Select ClassID,ClassName From SoftClass Where ParentID=" & SoftParentID
XML.MdbDo 1
If 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
   Loop
End If
XML.RS1.Close
End If
XML.RS.Close
End Sub
''''''''''''''''''''''''''''''''
'首页版块导航
Sub ShowNews(NewClassID)
'版块导航。
XML.WriteOut "XML.WriteOut XML.ImgA("","News.asp?ListId=" & XML.RS("ClassId"),XML.RS("ClassName"))   
    XML.Rs.MoveNext
    If I"
'''''''''''''''''''''''''''''''
XML.WriteOut "关于我们      便捷服务       自信AI       AI导航        抽奖活动©2010-2026 宁波自信网络信息技术有限公司  版权所有客服电话：[phone]  投诉电话：[phone]浙公网安备33021202000488号   浙ICP备2021020529号-1  |  浙B2-20240490  关注我们 ：