setc.asp

一个AJAX的计数插件

<!--#include file="conn.asp"-->
<%
	Connect()
	Dim objRs,strSQL,id
	id = Request.QueryString("id")
	
	Set objRs = Server.CreateObject("Adodb.RecordSet")
	strSQL = "Select [Count] From [Counts] Where [Id]=" & id
	objRs.open strSQL,objConn,1,3

	Dim i
	i = objRs("Count")
	i = i + 1
	objRs("Count") = i
	objRs.Update()
	
	objRs.Close()
	Set objRs = Nothing
	Disconnect()
%>