<%@ CODEPAGE=65001 %> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: (zx.asd)&(sipo)&(月上之木) '// 版權所有: RainbowSoft Studio '// 技術支持: rainbowsoft@163.com '// 程序名稱: '// 程序版本: '// 單元名稱: wap.asp '// 開始時間: 2006-3-19 '// 最后修改: 2011-7-23 '// 備 注: WAP模塊 '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Response.Buffer=True %> <% Response.CacheControl="no-cache" %> <% ZC_ISWAP=True If ZC_DISPLAY_COUNT_WAP=0 Then Response.Redirect ZC_BLOG_HOST ShowError_Custom="Call ShowError_WAP(id)" Response.Cookies("CheckMobile")="true" %> <% Call System_Initialize() If TemplateDic.Exists("TEMPLATE_WAP_ARTICLE_COMMENT")=False Then Call TemplateDic.add("TEMPLATE_WAP_ARTICLE_COMMENT",LoadFromFile(BlogPath &"zb_system\wap\template\wap_article_comment.html","utf-8")) If TemplateDic.Exists("TEMPLATE_WAP_ARTICLE-MULTI")=False Then Call TemplateDic.add("TEMPLATE_WAP_ARTICLE-MULTI",LoadFromFile(BlogPath &"zb_system\wap\template\wap_article-multi.html","utf-8")) If TemplateDic.Exists("TEMPLATE_WAP_ARTICLE-MULTI-ISTOP")=False Then Call TemplateDic.add("TEMPLATE_WAP_ARTICLE-MULTI-ISTOP",LoadFromFile(BlogPath &"zb_system\wap\template\wap_article-multi-istop.html","utf-8")) If TemplateDic.Exists("TEMPLATE_WAP_SINGLE")=False Then Call TemplateDic.add("TEMPLATE_WAP_SINGLE",LoadFromFile(BlogPath &"zb_system\wap\template\wap_single.html","utf-8")) If TemplateDic.Exists("TEMPLATE_WAP_ARTICLE_MUTUALITY")=False Then Call TemplateDic.add("TEMPLATE_WAP_ARTICLE_MUTUALITY",LoadFromFile(BlogPath &"zb_system\wap\template\wap_article_mutuality.html","utf-8")) PubLic intPageCount Select Case Request.QueryString("act") Case "View" Call WapView() Case "Com" Call WapCom() Case "Main" Call WapMain() Case "Search" Call WapSearch() Case "Login" Call WapLogin() Case "Err" Call WapError() Case "Cate" Call WapCate() Case "Stat" Call WapStat() Case "Prev" Call WapPrev() Case "AddCom" Call WapAddCom(0) Case "PostCom" Call WapPostCom() Case "DelCom" Call WapDelCom() Case "AddArt" Call WapEdtArt() Case "EdtArt" Call WapEdtArt() Case "PostArt" Call WapPostArt() Case "DelArt" Call WapDelArt() Case "Logout" Call WapLogout() Case Else Call WapMain() End Select Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>
Powered By Z-Blog
国产在线欧美日韩精品一区_两个人免费观看高清视频图片_最近中文字幕完整版2018免费_最近最新中文字幕MV免费版