<% Dim rs, m_SQL Dim m_ID m_ID = ReplaceBadChar(Request.QueryString("id")) m_LX = ReplaceBadChar(Request.QueryString("LX")) action = ReplaceBadChar(Request.QueryString("action")) If action = "count" Then conn.Execute("update "&m_LX&" set ClickNumber = ClickNumber + 1 where ID=" & m_ID & "") Else m_SQL = "select ClickNumber from "&m_LX&" where ID=" & m_ID Set rs = conn.Execute(m_SQL) response.Write "document.write("&rs(0)&");" rs.Close Set rs = Nothing End If %>