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