<!--#include file="cms_class.asp"-->
<!--#include file="cms_template.asp"-->
<!--#include file="cms_user.asp"-->
<!--#include file="cms_Language.asp"-->
<!--#include file="cms_plug.asp"--> 
<%
' +----------------------------------------------------------------------
' | KCMS [ 启点在线网站管理系统 ]
' | Copyright (c) 2018 http://www.kelvinvt.com All rights reserved.
' | Licensed ( http://www.kelvinvt.com )
' | Author: kelvinvt <kelvinvt@qq.com>
' +----------------------------------------------------------------------
if ISINSTALL=0 and isfolder(sitepath&"install") then alertgo "网站尚未安装，点击确定进入安装界面","/install"
dim act,module,Action,SubAction,id,page,Location,SID,iswap,tag,CPageName,islistpage,iscontentpage
if webMode=0 then  goto404 siteHelp
	act			=	GetForm("act","get")
	page		=	GetForm("page","get")
	SID			=	GetForm("SID","get")
	ID			=	GetForm("id","get")
	tag			=	GetForm("tag","get")
	Location	=	getPagePath
	if isnul(SID)	then	SID		=	getURL("SID")
	if isnul(page)	then	page	=	getURL("page")
	if isnul(id) 	then 	id		=	getURL("id")
	CPageName=split(geturl(3),".")(0)
	if ifstrin(CPageName,".") then CPageName=split(CPageName,".")(0)
	if ifstrin(CPageName,"=") then CPageName=split(CPageName,"=")(0)
	if ifstrin(CPageName,"&") then CPageName=split(CPageName,"&")(0)	
if wapmark=1 and wapautogo=1 then
	if Location=replacestr(wappath,"/","") then 
		iswap=true
		Location=getURL("wap")
		if isnul(Location) then Location="wap"
	else		
		 ZReg.pattern=".*(iphone|ipod|android|ios|wap).*"		 
		 If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")>0 or ZReg.test(LCase(Request.ServerVariables("HTTP_USER_AGENT"))) Then
			aspgo getURL("wap")   
			response.End
		 End If
	end if
end if
'echop "act:"&act&"　Location:"&Location&"　SID:"&SID&"　id:"&id&"　page:"&page
  toLocation act,Location
%>