<!--#include file="const.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="common/cache.asp" -->
<!--#include file="common/function.asp" -->
<!--#include file="common/ubbcode.asp" -->
<!--#include file="common/checkUser.asp" -->
<!--#include file="class/cls_wap.asp" -->
<!--#include file="class/cls_logAction.asp" -->
<!--#include file="common/library.asp" -->
<%
'==================================
'  wap For PJBlog2
'    更新时间: 2005-12-25
'==================================
Response.Charset = "UTF-8"
Response.ContentType = "text/vnd.wap.wml" 

Response.Expires = -1
Response.AddHeader "Pragma", "no-cache"
Response.AddHeader "Cache-Control", "no-cache, must-revalidate"
'读取Blog设置信息
  getInfo(1)

'验证用户登陆信息
  checkCookies

'读取用户权限
  UserRight(1)
  
'写入标签
  Tags(1)
  
'写入关键字列表
  Keywords(1)

'写入表情符号
  Smilies(1)
%><?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
	<%
	  select case request.QueryString("do")
	   case "showTag":
	    outTagList
	   case "Login":
	    outLogin
	   case "Logout":
	    outLogout
	   case "CheckUser":
	    outLoginUser
	   case "showLog":
	    outLog
	   case "showLogDetail":
	    outLogDetail
	   case "showComment":
	    outComment
	   case else: 'Wap Default Page
	    outDefault
	  end select
	%>
</wml>
