Question

求一ASP记数器程序，有中文解释为佳？？

Answer 1

1、数据库名字：
data.mdb
其中表名：
r_count
其中有字段：
r_number(长整型，初始值设为 1 ) 点击数
2、连接数据库文件：
conn.asp 代码如下：
<%
dim conn
dim connstr
dim db
db="data.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
%>
3、计数页面count.asp。代码如下：
<!--#include file="conn.asp"-->
<%
set rs = server.CreateObject ("Adodb.recordset")
sql = "select r_number from r_count"
rs.open sql,conn,1,1
if session("User_IP")=Request.ServerVariables("REMOTE_ADDR") then
%>
本站访问人数：<%=rs("r_number")%>
<%
else
r_number=rs("r_number")
sql="update r_count set r_number="&r_number+1&""
conn.execute(sql)
%>
本站访问人数：<%=rs("r_number")%>
<%
rs.Close
set rs=nothing
session("User_IP")=Request.ServerVariables("REMOTE_ADDR")
end if
%>
说明：如果代码中有 斜杠就去掉所有 斜杠 “\”，那些是百度加的！~