<%
'乘风多用户计数器
'作者QQ：178575
'作者EMail：yliangcf@163.com
'作者网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/cfcount.htm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，没有放在程序里，请自己上网站上查看
%>
<%
Response.Expires= -1
Response.Addheader "pragma","no-cache"
Response.AddHeader "cache-control","no-store"
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="Include/MyFunction.asp"-->
<!--#include file="Include/Md5.asp"-->
<!--#Include File="Include/Getcookie.asp"-->
<%
If Session("CFCountUser")="" Then
 If Session("CFCountUser_View")="" Then
  Response.Cookies("CFCountUserCookie")=""
  Response.Cookies("CFCountUserCookie").Expires=Dateadd("n",-60,Now())
  Call AlertUrl("请重新登陆!",HttpPath(5))
 Else
  UserName=Session("CFCountUser_View")
 End If
Else
 UserName=Session("CFCountUser")
End If

If Action="" Then Action="main"

If (RsSet("CodeHeadType") = 1) Then
	Tmp = "//" & Mid(HttpPath(2), InStr(HttpPath(2), "//") + 2)
ElseIf (RsSet("CodeHeadType") = 2) Then
	Tmp = "https://" & Mid(HttpPath(2), InStr(HttpPath(2), "//") + 2)
ElseIf (RsSet("CodeHeadType") = 3) Then
	Tmp = RsSet("CodeHeadSelf")
End If

If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then
 Ip = ChkStr(Request.ServerVariables("REMOTE_ADDR"),1)
Else
 Ip = ChkStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),1)
 If InStr(Ip, ",") > 0 Then Ip = ChkStr(Left(Ip, InStr(Ip, ",") - 1),1)
End If
%>
<!--#Include File="Include/User_Manage_Do.asp"-->



<!--#Include File="Include/Template_Top.asp"-->

<table class="manage">
<tr> 
<td class="manage_left">
<!--#Include File="Include/User_Manage_Menu.asp"-->
</td>
<td class="manage_right">
<!--#Include File="Include/User_Manage_Select.asp"-->
</td>
</tr>
</table>

<!--#Include File="Include/Template_Bottom.asp"-->
