<%IfNotIsObjInstalled("QuickWAP.XML")ThenResponse.Redirect"NoSupp..." />
电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

关于WAP20新闻文章系统Newsasp页面导航的修改VIP免费

关于WAP20新闻文章系统Newsasp页面导航的修改_第1页
1/14
关于WAP20新闻文章系统Newsasp页面导航的修改_第2页
2/14
关于WAP20新闻文章系统Newsasp页面导航的修改_第3页
3/14
第一种样式的WapHeader.asp代码:<%IfNotIsObjInstalled("QuickWAP.XML")ThenResponse.Redirect"NoSupport.asp"%><%SetXML=Server.CreateObject("QuickWAP.XML")SetWAP=Server.CreateObject("QuickWAP.WAP")%><%IfSession("ChineseType")<>""ThenXML.ChineseType=Session("ChineseType")WAP.ChineseType=Session("ChineseType")EndIfXML.XhtmlHeaderCSSFile'设置是否支持IE和WAP模拟器浏览。IfLcase(AllowIE)<>"true"AndXML.Displayer="Web"ThenXML.Redirect"ErrorTip.asp"'表示IE浏览器'IfLcase(AllowIE)<>"true"AndXML.Displayer="Wap"ThenXML.Redirect"ErrorTip.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.WriteOut""XML.WriteOut"导航:"&XML.A("","Index.asp","首页")IfArtClassID<>0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql="SelectClassID,ClassName,ParentPathFromNewsClassWhereClassID="&ArtClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS("ClassID")zParentPath=XML.RS("ParentPath")zClassName=XML.RS("ClassName")EndIfXML.RS.CloseIfzParentPath<>0ThenzParentPath=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)&"
"EndIfEndSubSubSoftDownNavi()'下载栏目导航XML.WriteOut"

"&W_DownCataName&"

"XML.WriteOut"导航:->>"&W_DownCataNameIfSoftClassID<>0ThendimzClassID,zClassName,zParentPath,ParentPath1XML.StrSql="SelectClassID,ClassName,ParentPathFromSoftClassWhereClassID="&SoftClassIDXML.MdbDoIfNotXML.RS.EofThenzClassID=XML.RS("ClassID")zParentPath=XML.RS("ParentPath")zClassName=XML.RS("ClassName")EndIfXML.RS.CloseIfzParentPath<>0ThenzParentPath=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.WriteOut"栏目导航
"XML.WriteOut"

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

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

文泉书屋+ 关注
实名认证
内容提供者

热爱教学事业,对互联网知识分享很感兴趣

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部