|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
使用cdonts,可以发送、查看邮件,实现webmail的功能。结合wsh,可以实现对nt主机的管理,如nt用户管理、iis虚拟主机设置、exchange邮箱设置等等,就像管理本地机一样方便。程序|会见|统计/*
原创:豆腐
请人人在转载和利用的时分保存这条信息
*/
/*dbcn.asp
创立数据库毗连的公用程序
*/
<%
functionOpenConn()
创立数据库毗连
dimConnStr
dimuid
dimpwd
dimdb
uid="BBC"
pwd="BBC"
db="BBC"
Softserver="Softdepserver"
SetConn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=SQLOLEDB.1;UID="&uid&";PWD="&pwd&";database="&db&";server="&Softserver&""
Conn.OpenConnStr
setOpenConn=Conn
endfunction
functionOpenRst()
创立数据库纪录集
setRst=Server.CreateObject("ADODB.Recordset")
setOpenRst=Rst
endfunction
%>
/*
staticFunc
统计程序所必要用到的函数库
*/
<!--#includefile="dbcn.asp"-->
<%
setconn=openConn()
setrst=openRst()
subWriteDateTable(intStart,intEnd,strArray,ccount)
天生统计表
%>
<tableborder=1width=100%>
<%fori=intStarttointEnd%>
<tr>
<tdwidth=30%><%=strArray(i)%></td>
<tdwidth=60%>
<%
ifrst.eofthen
setbar0,ccount
else
ifrst(1)=ithen
setbarrst(3),ccount
ifnotrst.eofthenrst.movenext
else
setbar0,ccount
endif
endif
%>
</td>
</tr>
<%next%>
</table>
<%
endsub
%>
<%
subsetBar(num,ccount)
天生统计条
ifccount=0then
percent=0
else
percent=cInt(num/ccount*10000)/100
endif
strGif="bar.gif"
%>
<imgsrc="<%=strGif%>"width="<%=percent+5%>"height=10><fontcolor=red><%=percent%>%</font>
<tdalign=center>
<%=num%>
</td>
<%
endsub
%>
<%
subwriteDayStatic(userid)
天生日统计
i=0
dimstrArray(100)
fori=0to23
strArray(i)=cStr(i)&"点--"&cstr(i+1)&"点"
next
i=0
setrst=openRst()
strSQL="selectsum(num)asccountfromdateStaticwhereuserid="&userid&""
rst.openstrSQL,conn,3,3
ifisnull(Rst("ccount"))then
ccount=0
else
ccount=Rst("ccount")
endif
strSQL="select*fromdateStaticwhereuserid="&userid&"orderbyhourid"
setrst=openRst()
rst.openstrSQL,conn,3,3
%>
会见总数<%=ccount%>
<tableborder=1width=100%>
<trheight=100%>
<tdwidth=50%><%WriteDateTable0,11,strArray,ccount%></td>
<tdwidth=50%><%WriteDateTable12,23,strArray,ccount%></td>
</tr>
</table>
<%
endsub
%>
<%
subwriteWeekStatic(userid)
天生周统计
i=0
dimstrArray(7)
strArray(0)="日曜日"
strArray(1)="礼拜一"
strArray(2)="礼拜二"
strArray(3)="礼拜三"
strArray(4)="木曜日"
strArray(5)="礼拜五"
strArray(6)="礼拜六"
i=0
strSQL="selectsum(num)asccountfromweekStaticwhereuserid="&userid&""
setrst=openRst()
rst.openstrSQL,conn,3,3
ifisnull(Rst("ccount"))then
ccount=0
else
ccount=Rst("ccount")
endif
strSQL="select*fromWeekStaticwhereuserid="&userid&"orderbydayid"
setrst=openRst()
rst.openstrSQL,conn,3,3
%>
会见总数<%=ccount%>
<tableborder=1width=100%>
<trheight=100%>
<tdwidth=100%><%WriteDateTable0</p>因为现在数据库都使用标准的SQL语言对数据库进行管理,所以如果是标准SQL语言,两者基本上都可以通用的。SQLServer还有更多的扩展,可以用存储过程,数据库大小无极限限制。 |
|