地址:<%=Request("REMOTE_ADDR")%>
相关信息:<%=Request("HTTP_USER_AGENT")%>
4.Application 对象的综合应用——一个简单的聊天室 网上聊天室是一个比较复杂的
系统. 由于要在多个用户之间显示聊天内容, 因此可以用 Application 对象传递用户的信息.这里介绍一个简单的聊天室示例,代码如下: <%@ Language=
VBScript %>
<% Response.Buffer=true On error resume next If Request.ServerVariables("Request_Method")="GET" then %>
<% Response.End Else Response.Clear Response.Write("") Dim talk If Request.Form("nick")<>"" then Session("nick")=Request.Form("nick") End If %>
返回
<% If Request.Form("log")<>1 then If TRIM(Request.Form("talk"))="" Then talk=Session("nick")&;"沉默是金." Else talk=Trim(Request.Form("talk")) End If Application.Lock Application("show")="
|
来 自 "&; Request.ServerVariables("remote_addr")&;" 的 "&;Session("nick")&;time&;" 说 : "&;talk&;" |
|
"&;Application("show") Application.Unlock Response.Write Application("show") End If End If %>
【例 9-3】计数器组件的用法. <% Set Counters=Server.CreateObject("MSWC.Counters") Counters.Set "testA",10 '设置记数初始值 Counters.Set "testB",20 Counters.Set "testC",30 %> 共有<%=Counters.Get("testA") %>次访问 testA 网站
共有<%=Counters.Get("testB")%>次访问 testB 网站
共有<%=Counters.Get("testC")%>次访问 testC 网站
在本例中刷新页面,计数器是不会增加的.下例使用 Increment 方法实现计数递增.
【例 9-4】使用 Increment 方法,实现计数递增的用法. <% Set Counters=Server.CreateObject("MSWC.Counters") %> 共有<%=Counters.Increment("huatengedu")%>次访问 huatengedu 网站
共有<%=Counters.Increment("huazheng")%>次访问 huazheng 网站
【例 9-5】这个例子利用计数器组件实现简单的投票计数功能. <% Set Counters=Server.CreateObject("MSWC.Counters") Vote=Request.QueryString("Site") Counters.Increment("Vote") %> 为你喜欢的网站投票:
当前投票结果:
testA:<%=Counters.Get("huatengedu")%>
testB:<%=Counters.Get("huazheng")%>
testC:<%=Counters.Get("feiteng")%>
9.5 程序运行示例 这里编写一个简单的 ASP 程序,并介绍它的运行过程,得出运行结果. 第一步:编写一个体现一页中可以使用不同脚本语言的 ASP 程序.编写 ASP 文件可以
使用任何的文本编辑器, 如记事本, 也可以使用 Microsoft Visual InterDev, Microsoft FrontPage 或 Dreamweaver 等. 打开【记事本】文本编辑器,输入以下代码: <% For I=3 to 5 write_hello() Next %> 执行【文件】|【保存】命令,弹出【另存为】对话框,如图 9 9 所示.指定保存位置 后, 【保存类型】 在 下拉列表中选择 【所有文件】 选项, 【文件名】 在 下拉
列表中输入 "test.asp" , 然后单击【保存】按钮. 第