<!--#include file="Include/Const.asp" -->
<!--#include file="Include/ConnSiteData.asp" -->
<%
dim rs,m_SQL
dim m_ID
m_ID = ReplaceBadChar(Request.QueryString("id"))
if instr(m_ID,"select")>0 Then
response.Redirect(" http://www.liangjing.org")
end if
m_LX = ReplaceBadChar(Request.QueryString("LX"))
action = ReplaceBadChar(Request.QueryString("action"))
If action = "count" Then
	conn.Execute("update "&m_LX&" set ClickNumber = ClickNumber + 1 where ID=" & m_ID & "")
Else
	m_SQL = "select ClickNumber from "&m_LX&" where ID=" & m_ID
	Set rs = conn.Execute(m_SQL)
	response.write "document.write("&rs(0)&");"
	rs.Close
	set rs=nothing
End If
%>