<% id = GetCLng(Request.Querystring("id")) action=Trim(Request.Querystring("action")) if id > 0 Then if action="click" Then Call GetClick(id) Elseif action="update" Then Call GetUpdateClick(id) End If End if '//

'// 显示点击 '//

sub GetClick(id) Set rs = Server.CreateObject("ADODB.RECORDSET") rs.Open "select Click from tblPage where id = "& id &"",conn,1,1 if not rs.eof then Response.write("document.write("" " & rs("Click") &""");") else Response.write("document.write("" 1"");") end if rs.Close Set rs = Nothing end sub '//

'// 更新点击 '//

sub GetUpdateClick(id) if session("counter_" & id) <> "1" then conn.Execute("update tblPage set Click = Click + 1 where id = "& id &"") session("counter_" & id) = "1" End if end sub %>