<!--#include file="Inc/Consts.inc" -->
<!--#include file="Inc/NoSQL.Asp" -->
<!--#include file="Inc/common.Asp" -->
<!--#include file="Inc/strfunc.Asp" -->
<%
' 文件名称:HitCount.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Dim rs, m_SQL,action
Dim m_ID,m_LX
m_ID = ReplaceBadChar(Request.QueryString("id"))
m_LX = ReplaceBadChar(Request.QueryString("LX"))
action = ReplaceBadChar(Request.QueryString("action"))
if instr(m_ID,"select")>0 Then
response.Redirect("http://www.xxzwz.com")
end if
If action = "count" Then
    call db("update ["&m_LX&"] set Click_Count = Click_Count + 1 where ID=" & m_ID & "",0)
Else
    m_SQL = "select Click_Count from ["&m_LX&"] where ID=" & m_ID
    Set rs = db(m_SQL,1)
    response.Write "document.write("&rs(0)&");"
    rs.Close:Set rs = Nothing
End If
' 文件名称:HitCount.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>