(sqlstmt) conn.close set conn=nothing server.transfer "tongxunlu.asp" %>图3 通讯录主页面第 10页共 16页图4 通讯录浏览 5. 图片计数器图片计数器是 Application 对象的一个用途, 因为 Application 是所有的用户所共有的, 所以可以存储计数器的值, 当有新用户访问网页时自动增值计数器的值。其代码如下: <% Application.Lock() Application("Counter") = Application("Counter") +1 Application.UnLock() Function G( counter ) Dim S,iS= CStr( counter ) For i=1 to Len(S) myimage = myimage & "<IMG SRC=" & Mid(S, i, 1)& ".gif>" Next G= myimage End Function %> <P ALIGN="CENTER"> 您是本站第<%=G (Application("Counter"))%> 位贵宾! </P> 6. 当前时间当前时间是 now() 自动调用系统时间实现的,其代码如下: <script language="vbscript"> document.write(now()) </script> 7. 在线人数统计在线人数统计采用 Application 对象和 Session 对象来编写。当网站开启时就自动调用 global.asa 文件,此时其中的 Application_OnStar t 首先被调用, 然后执行其中的语句, Application("whosOn") 被自动清零。然后当第一位用户登录网站时, Session_OnStart 被调用,此时
全文预览
