getc.asp

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

<!-- #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
	
	Response.Write objRs("Count")
	
	objRs.Close()
	Set objRs = Nothing
	Disconnect()
%>