有两种方法,一种是直接在页面做记录加1的更新,代码如下:
<%
if(Request("id") <> "") then Command1__send_id = Request("id")
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_connCuteforum_STRING
Command1.CommandText = "UPDATE postMain SET num_hits = num_hits + 1 WHERE main_id = " + Replace(Command1__send_id, "'", "''") + ""
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
%>
但这种情况下,浏览者不断刷新的话,该记录就会不断地加1,如果是未来满足自己虚心,点击率高,这样固然可取,但终究不太现实!
所以推荐使用第二种方法,这种方法只是多做了一个页面,比如couter.asp,让该页面来增加点击数,然后在转向具体页面.
把第一种方法中的代码贴到couter.asp,然后下面代码
<% Response.Redirect("detail.asp?id="&Request("id")) %>
这样即使浏览者在具体页面不断刷新,因为没有经过couter.asp,所以不会不断加1.

----------------------------------------