 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
以下介绍用数据库实现简朴计数器 \\\'下面存为count.asp <% Set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("count.mdb") %> <%on error resume next%> <%sql="update count set hit=hit+1%><%conn.Execute(sql)%> <%sql = "select * from count set rs=conn.execute(sql) %> <% \\\'更新每周每日数据 lasthit=rs("lasthit") tdate=year(Now()) & "-" & month(Now()) & "-" & day(Now()) if trim(lasthit)=trim(tdate) then sql="update site set dayhit=dayhit+1 where id="&request("id") conn.Execute(sql) \\\' response.write "success" else sql="update site set dayhit=1 where id="&request("id") conn.Execute(sql) \\\' response.write "error" end if sql="update site set lasthit=\\\'"&tdate&"\\\' where ID="&request("id") conn.Execute(sql) p_year=CInt(year(Now()))-CInt(year(lasthit)) p_month=CInt(month(Now()))-CInt(month(lasthit)) p_day=CInt(day(Now()))-CInt(day(lasthit)) period_time=((p_year*12+p_month)*30+p_day) if cint(period_time)=<cint(7) then sql="update site set weekhit=weekhit+1 where id="&request("id") conn.Execute(sql) else sql="update site set weekhit=1 where id="&request("id") conn.Execute(sql) end if %> document.write(\\\'<tr><td width="100%">今日访问<%=rs("dayhit")%>次,本周访问<%=rs("weekhit")%>次,总访问<%=rs("hit")%>次</td></tr>\\\'); <%rs.close set rs=nothing%> \\\'用<script language="JavaScript1.1" src="count.asp"></script>在要统计的页面调用即可. 建立数据库:建一个count的MDB库,再建一个表count,表中字段为 hit 数字型 dayhit 数字型 weekhit 数字型 lasthit 日期型 返回类别: 教程 上一教程: 人民银行网站建设中数据库存储过程的调用 下一教程: 加速ASP程序的运行速度的两种方式 您可以阅读与"轻松打造ASP计数器"相关的教程: · 如何轻松打造ASP计数器 · ASP制作多用户版计数器 · 编写“公平”的ASP图形计数器 · 不能ASP图像组件来生成图像的ASP计数器程序(一) · ASP计数器设计详解-2 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
