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 & ");" %>