<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方客服中心 http://www.ip126.com
'技术支持论坛 http://bbs.ip126.com/
'QQ:530051328 mail:ttkj99@126.com
'=====================================
%>
<%'获取阅读次数
dim rs,m_SQL
dim m_ID,Cid
m_ID = lcase(ReplaceBadChar(Request.QueryString("id")))
if instr(m_ID,"select")>0 Then
response.Redirect(" http://www.ip126.com")
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
%>