完整的访问统计程序（二 程序篇）

/*
  原创：豆腐
  请大家在转载和使用的时候  保留这条信息
*/
/* dbcn.
   创建连接的 公用程序
*/
<%
  function openconn()
     创建数据库连接
     dim connstr
     dim uid
     dim pwd
     dim db
     uid="bbc"
     pwd="bbc"
     db="bbc"
     softserver="softdepserver"
     set conn = server.createobject("adodb.connection")
     connstr="provider=sqloledb.1;uid=" & uid & ";pwd=" & pwd & ";database=" & db & ";server=" &
softserver & ""
     
     conn.open connstr
     
     set openconn=conn
  end function
  
  function openrst()
     创建数据库记录集
     set rst=server.createobject ("adodb.recordset")
     set openrst=rst
  end function
%>
/*
  staticfunc
  统计程序所需要用到的函数库
*/
<!--#include file="dbcn.asp"-->
<%
   set conn=openconn()
   set rst=openrst()
   sub writedatetable(intstart,intend,strarray,ccount)
      生成统计表
      %>
        <table border=1 width=100%>
           <%for i= intstart to intend%>
              <tr>
              <td width=30%><%=strarray(i)%></td>
              <td width=60%>
              <%
                 if rst.eof then
                    setbar 0,ccount
                 else
                    if rst(1)=i then
                       setbar rst(3),ccount
               if not rst.eof then rst.movenext