setc.asp

来自「一个AJAX的计数插件」· ASP 代码 · 共 20 行

<!--#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()
%>