敬业的IT人 >> 网站建设 >> Web编程 >> Asp >> 完整的访问统计程序（二程序篇）

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

敬业的IT人互联网佚名 2008-4-14 17:20:47

/*
  原创：豆腐
  请大家在转载和使用的时候  保留这条信息
*/
/* dbcn.asp
   创建数据库连接的公用程序
*/
<%
  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
  统计程序所需要用到的函数库
*/

<%
   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

最新文章: bbs树形结构的实现方法（三）[04-14]; 一个免费的简单聊天室源代码[04-14]; StripNonNumeric函数源程序[04-14]; 将HTML表单数据存储为XML格式 - 1[04-14]; 将HTML表单数据存储为XML格式 - 2[04-14]; 利用ASP实现三个强大功能之二[04-14]

相关文章

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

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