在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>文档中心>ASP>文档A0000157 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入
相关文章

查询一条记录,按所选择的字段输出。

解决"操作必须使用一个可更新的查询"

最简洁的多重查询的解决方案

在ASP中使用SQL语句之2:用WHERE子句设置查询条件

查询中的特殊字符及转义字符处理方法。

开放源码 - 访客统计查询(六) - 总结

开放源码 - 访客统计查询(五)

开放源码 - 访客统计查询(三)

开放源码 - 访客统计查询(二)

开放源码 - 访客统计查询(一)
发表文章
开放源码 - 访客统计查询(四)

作者:mq_1980     提交人:mq_1980     发布时间:03-04-15     文章类型:原创     浏览量:2205
参考链结:http://www.jackma.net/    
关键字:开放源码|访客统计|查询
[本文档没有附件]
字体:    视力保护色: 杏仁黄  秋叶褐  胭脂红  芥末绿  天蓝  雪青  灰  银河白(默认色) [A0000157]

文件:Statistics_Diagram.asp
<!--#Include File="Statistics_Connection.asp"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>

<head>
<title>Statistics Details</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Author" content="Jack Ma">
<link rel="stylesheet" type="text/css" href="Statistics_CSS.css">

<SCRIPT LANGUAGE="javascript">
<!--
function ChangeColor(argPtr, argColor)

  argPtr.style.backgroundColor=argColor;
}
-->
</script>

</head>

<body>
<div align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="0" class="ColorBottomL1">
<tr>
  <td>
<%
Dim rstStatisticsDay
Dim strWriteHTML, colorOver, colorOut, ColorDbClick

Set rstStatisticsDay = Server.CreateObject("ADODB.Recordset")
With rstStatisticsDay
  .ActiveConnection = cnnStatistics
  .CursorType = adOpenForwardOnly
  .LockType = adLockReadOnly
  .Source = "Select VisitDate, Count(ID) As VisitsDaily From IPs Group By VisitDate Order By VisitDate Desc"
  .Open
End With

strWriteHTML = _
    "<table class='ColorBottomL1_Back' border='0' width='100%' cellpadding='5' cellspacing='1'>" & vbCrLf & _
    "<tr class='ColorBottomL2_ItemTop'><td><B>Date</B></td><td><B>Visits</B></td></tr>" & vbCrLf
colorOver = Chr(34) & "#ffcc66" & Chr(34)
colorOut = Chr(34) & "#cccccc" & Chr(34)

Do While Not rstStatisticsDay.EOF
  strWriteHTML = strWriteHTML _
    & ( _
      "<tr class='ColorBottomL2_ItemBody' " _
      & "onmouseout='ChangeColor(this, " & colorOut & ");' " _
      & "onmouseover='ChangeColor(this, " & colorOver & ");' " _
      & "title='On " & rstStatisticsDay("VisitDate") & " my homepage gots " & vbCrLf _
      & rstStatisticsDay("VisitsDaily") & " visit(s)!'>" & vbCrLf _
      & vbTab & "<td>" & rstStatisticsDay("VisitDate") & "</td>" & vbCrLf _
      & vbTab & "<td><img border='0' src='Image/Red.gif' height='10' " _
      & "width='" & rstStatisticsDay("VisitsDaily") * 5 & "'>&nbsp;" _
      & rstStatisticsDay("VisitsDaily") & "</td>" & vbCrLf _
      & "</tr>" & vbCrLf _
    )
  rstStatisticsDay.MoveNext
Loop
strWriteHTML = strWriteHTML & "</table>"

Response.Write strWriteHTML

rstStatisticsDay.Close
Set rstStatisticsDay = Nothing

Call CloseDatabase
%>
  <td>
<tr>
</table>
</div>
</body>
</html>

关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问!
标题
内容
发言
*您尚未以注册用户身份登录,不能发表评论。这里登录
您的位置
  (c)2000-2019 Yup Studio, all rights reserved.  
116.2109