完整的访问统计程序(二 程序篇)
程序员文章站
2022-04-22 23:27:34
/* 原创:豆腐 请大家在转载和使用的时候 保留这条信息*//* dbcn. ...
/*
原创:豆腐
请大家在转载和使用的时候 保留这条信息
*/
/* 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
原创:豆腐
请大家在转载和使用的时候 保留这条信息
*/
/* 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
上一篇: 聊天宝上架苹果商店 次日榜单排行超微信
下一篇: 幽默的让人受不了