<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '/////////////////////////////////////////////////////////////////////////////// '// Z-Blog '// 作 者: (zx.asd)&(sipo) '// 版权所有: RainbowSoft Studio '// 技术支持: rainbowsoft@163.com '// 程序名称: '// 程序版本: '// 单元名称: wap.asp '// 开始时间: 2006-3-19 '// 最后修改: '// 备 注: WAP模块 '/////////////////////////////////////////////////////////////////////////////// Option Explicit On Error Resume Next Response.Charset="UTF-8" Response.Buffer=True Response.Expires = "0" Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-Control", "no-cache, must-revalidate" %> <% 'If ZC_IE_DISPLAY_WAP Then ' If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/vnd.wap.wml") > 0 Then Response.ContentType = "text/vnd.wap.wml" 'Else ' Response.ContentType = "text/vnd.wap.wml" 'End If Response.ContentType = "text/vnd.wap.wml" ShowError_Custom="Call ShowError_WAP(id)" %> <% Call System_Initialize() PubLic intPageCount Select Case ReQuest("act") Case "View" Call WapView() Case "Com" Call WapCom() Case "Main" Call WapMain() Case "Login" Call WapLogin() Case "Err" Call WapError() Case "Cate" Call WapCate() Case "Stat" Call WapStat() Case "AddCom" Call WapAddCom(0) Case "PostCom" Call WapPostCom() Case "DelCom" Call WapDelCom() Case "AddArt" Call WapEdtArt() Case "PostArt" Call WapPostArt() Case "DelArt" Call WapDelArt() Case "Logout" Call WapLogout() Case Else Call WapMenu() End Select Call System_Terminate() If Err.Number<>0 then Call ShowError(0) End If %>
<%=ZC_MSG213%>