www.gusucode.com > 玩玩小游戏FLASH系统 2.1码程序 > hits.asp

    <!--#include file="conn.asp"-->
<%
Dim Specialid,Hits
Dim rsff1,sqlff1
Specialid = CLng(Request.querystring("ID"))
set rsff1=server.createobject("adodb.recordset")
sqlff1="select Hits from flash where id = " & Specialid 
rsff1.open sqlff1,conn,1,3
	AllHits = rsff1("Hits")+1
	rsff1("hits")=rsff1("hits")+1
rsff1.update
rsff1.close
set rsff1=nothing
Response.Write "document.write ("  & AllHits & ");"
%>