您是本站第
<%
DbPath = Server.mapPath("ntcount/hits")
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set Rec = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * from hits"
rec.Open "hits",conn
n=rec("hits")
for i=1 to len(n)
response.write ""
next
sql="Update hits set hits=hits+1"
conn.Execute(Sql)
rec.close
conn.close
set rec=nothing
set conn=nothing
%>
位访客
CopyRight? 2004-2005 zhjsda.530e.com All Rights Reserved
设为首页
加入收藏
留言给我
联系我们
