hitcount.asp

来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 19 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%
dim rs,m_SQL
dim m_ID
m_ID = ReplaceBadChar(Request.QueryString("id"))
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
%>