hits.asp

动感系统XP Access版,服务器需要安装Jmail 组件 配置SendMessages.asp 最后部分的参数

<!-- #include file="conn.asp" -->
<% Set Rs=server.createobject("adodb.recordset")
sql="select Hits from info_Article where articleID="&Trim(Request.QueryString("ArticleID"))
rs.open sql,conn,1,3
	Hits=rs("Hits")
	rs("Hits")=Hits+1
rs.update
rs.close
set rs=nothing
CloseDatabase 
Response.Write("document.write('"&Hits&" ');")
%>