仓酷云

标题: ASP网站制作之会见统计程序(二 程序篇) [打印本页]

作者: 分手快乐    时间: 2015-1-16 22:50
标题: ASP网站制作之会见统计程序(二 程序篇)
使用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还有更多的扩展,可以用存储过程,数据库大小无极限限制。
作者: 仓酷云    时间: 2015-1-20 05:21
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
作者: 老尸    时间: 2015-1-28 18:37
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: admin    时间: 2015-2-5 22:30
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
作者: 柔情似水    时间: 2015-2-13 23:31
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
作者: 因胸联盟    时间: 2015-3-4 03:03
尽管MS自己讲C#内核中更多的象VC,但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言,而不是一种脚本,所以它具有面向对象编程语言的一切特性,比如封装性、继承性、多态性等等,这就解决了刚才谈到的ASP的那些弱点。
作者: 飘飘悠悠    时间: 2015-3-11 15:40
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
作者: 第二个灵魂    时间: 2015-3-19 01:28
接下来就不能纸上谈兵了,最好的方法其实是实践。实践,只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好,因为你还没有熟练的能力去综合各种技术,这样只能使你自己越来越迷糊。
作者: 兰色精灵    时间: 2015-3-27 01:13
Session:这个存储跟客户端会话过程的数据,默认20分钟失效




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2