【例9-1】写一个ASP开发环境的测试程序,以证明ASP的服务器工作正常 程序名称是 Test. asp,代码如下 ASP Test Sub btnl on Click Dim message Message="ASP Test Success! Msgbox Message 0 Test ASP End Sub 【例9-2】表单实例 页面 post. htm用来显示HIML表单,以接收用户输入的数据。 代码如下: 姓名:br> 性别: 女 留言: select name="hobby multiple size=4> 电脑 电影 读书
【例 9-1】写一个 ASP 开发环境的测试程序，以证明 ASP 的服务器工作正常。 程序名称是 Test.asp，代码如下： ASP Test 【例 9-2】表单实例。 页面 post.htm 用来显示 HTML 表单，以接收用户输入的数据。 代码如下： 姓名： 性别： 男 女 留言： 爱好(按住 Ctrl 键可多选)： 电脑 购物 电影 读书
5 Request对象的综合应用——留言板 本范例采用表单的形式收集客户留言信息,并通过POST方式,将其传送到web服务器管 理员的邮箱中,其基本流程如下: (1)客户在线填写留言板。 (2)通过ASP程序将留言信息发送到网站管理员的邮箱中 (3)网站管理员可以以电子邮件的形式回复客户信息 根据以上功能要求,程序模块设计如下: (1)留言板模块 (2)留言板信息转成 E mail模块。 (3)处理留言板信息反馈模块。 以下是具体程序设计 (1)留言板程序设计。 留言板程序(程序名: Customers.asp)代码如下 欢迎将您的留言留给我们,您的意见和建议都将是我们的宝贵财富。谢谢您! 一般留言 给网站管理者 *E &: 性别: E mail: E E&: E E:
5.Request 对象的综合应用——留言板 本范例采用表单的形式收集客户留言信息，并通过 POST 方式，将其传送到 Web 服务器管 理员的邮箱中，其基本流程如下： （1）客户在线填写留言板。 （2）通过 ASP 程序将留言信息发送到网站管理员的邮箱中。 （3）网站管理员可以以电子邮件的形式回复客户信息。 根据以上功能要求，程序模块设计如下： （1）留言板模块。 （2）留言板信息转成 E mail 模块。 （3）处理留言板信息反馈模块。 以下是具体程序设计： （1）留言板程序设计。 留言板程序(程序名：Customers.asp)代码如下： 留言板范例 欢迎将您的留言留给我们，您的意见和建议都将是我们的宝贵财富。谢谢您! 一般留言 给网站管理者 姓 名： 性别：男 女 E mail: 主 题： 留 言：
(2)将留言板信息转成电子邮件 当客户填完留言板后,单击【送出】按钮,留言板信息就会传到Web服务器上,此时 ASP程序将接收(通过 Request对象)这些信息。 其程序代码如下 Set CDOMail=Server CreateObject("CDONTS NewMail") CDOMail. From=Request("From") CDOMail. To=Request("To") CDOMail. Subject=Request("Subject") CDOMail. Body=Request("Body") CDOMail. send Set cdomail=Nothing (3)留言后的显示信息。 当客户发出信息后,通常需要回复客户一个提示信息,告之接收留言后的一些确认信息, 以响应客户的参与。客户端的信息可以通过 Request对象从系统变量获得。 (4)完整的留言板程序代码。 Dim sKind, sName, sSex, sFrom, STo, sSubject, sBody Dim Cdomail. Title. Message NL=CHR(13)+CHR(10)换行字符 sFrom=Request("From") aatc cc" sSubject="[留言板]"+ Request(" Subject") sSex=Request("Sex") Tle="先生 Message="姓名"+ sName+ Title+NL Message= Message+"时间:"&Now&NL Message=Message+sBody+NL Message=Message+"IP tttiE "+Request("REMOTE ADDR")+NL Message= Message+"相关信息:"+ Request(" HttpuseR Agent" Set CDOMail=Server CreateObject("CDONTS NewMail") CDOMail. fromesfrom CDOMail. To=s to
（2）将留言板信息转成电子邮件。 当客户填完留言板后，单击【送出】按钮，留言板信息就会传到 Web 服务器上，此时 ASP 程序将接收（通过 Request 对象）这些信息。 其程序代码如下： （3）留言后的显示信息。 当客户发出信息后，通常需要回复客户一个提示信息，告之接收留言后的一些确认信息， 以响应客户的参与。客户端的信息可以通过 Request 对象从系统变量获得。 （4）完整的留言板程序代码。 <% Dim sKind, sName, sSex, sFrom, STo, sSubject,sBody Dim CDOMail, Title, Message NL=CHR(13)+CHR(10)'换行字符 sFrom=Request("From") sName=Request("Name") sTo="wangfm@qvtc.cc" sSubject="［留言板］"+Request("Subject") sBody=Request("Body") sSex=Request("Sex") If sSex="0" Then Title="小姐" Else Title="先生" End If Message="姓名"+sName+Title+NL Message=Message+"时间："& Now & NL Message=Message+"-----------------"+NL Message=Message+sBody+NL Message=Message+"-----------------"+NL Message=Message+"IP 地址："+Request("REMOTE_ADDR")+NL Message=Message+"相关信息："+Request("HTTP.USER_AGENT") Set CDOMail=Server. CreateObject("CDONTS. NewMail") CDOMail.From=sFrom CDOMail.To=sTo
CDOMail. Subject=sSubject CDOMail. Body=Message CDOMail. send Set cDomail=nothing 留言板 欢迎留言,我们收到信息后会尽快与您联系。谢谢! 发件人: 时间: IP地址: 相关信息 4 Application对象的综合应用 个简单的聊天室 网上聊天室是一个比较复杂的系统。由于要在多个用户之间显示聊天内容,因此可以用 Application对象传递用户的信息。这里介绍一个简单的聊天室示例,代码如下 %( Language=VBScript % body bgcolor=#COD9D9> Response. B On error resume next If Request Server Variables("Request Method"="GET"then 请输入你的昵称
CDOMail.Subject=sSubject CDOMail.Body=Message CDOMail.Send Set CDOMail=Nothing %> 留言板 欢迎留言，我们收到信息后会尽快与您联系。谢谢！ 发件人: 收件人: 时间: ===================================== ===================================== IP 地址: 相关信息: 4.Application 对象的综合应用——一个简单的聊天室 网上聊天室是一个比较复杂的系统。由于要在多个用户之间显示聊天内容，因此可以用 Application 对象传递用户的信息。这里介绍一个简单的聊天室示例，代码如下： 请输入你的昵称
form> Response. End R Response. Write(") Dim talk If Request Form("nick")then Session("nick")=Request Form("nick") End lf nput type=" SUBMIT" value="提交"name="B1"> 返回 If Request Form("log")l then If TRIM(Request Form("talk"))="Then lk= Session("nick")&"沉默是金。 Else talk=Trim(Request Form("talk Application("show")=" *k E "&Request Server Variables("remote addr")&"Bl"&Session("nick")&time&"it: "&talk &"hr>&Application("show") End If End if
") Dim talk If Request.Form("nick")<>"" then Session("nick")=Request.Form("nick") End If %> 消息: 返回 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 % 共有 共有次访问 testB. com网站 共有次访问 testc. com网站 在本例中刷新页面,计数器是不会增加的。下例使用 Increment方法实现计数递增。 【例9-4】使用 Increment方法,实现计数递增的用法。 Set Counters=Server CreateObject("MSWC Counters") %> 共有次访问 huatengedu. com. cn网站 共有次访问 huazheng. com.cn网站 【例9-5】这个例子利用计数器组件实现简单的投票计数功能 Set Counters=Server CreateObject("MS WC Counters") Vote=Request Query String("Site") Counters. Increment("Vote") 为你喜欢的网站投票 huatengedu.com.cn huazheng.com.cn feiteng.com.cn type="Subm"alue="投票"> 当前投票结果: testA: testB: testC: <Br 9.5程序运行示例 这里编写一个简单的ASP程序,并介绍它的运行过程,得出运行结果。 第一步:编写一个体现一页中可以使用不同脚本语言的ASP程序。编写ASP文件可以
【例 9-3】计数器组件的用法。 共有次访问 testA.com 网站 共有次访问 testB.com 网站 共有次访问 testC.com 网站 在本例中刷新页面，计数器是不会增加的。下例使用 Increment 方法实现计数递增。 【例 9-4】使用 Increment 方法，实现计数递增的用法。 共有次访问 huatengedu.com.cn 网站 共有次访问 huazheng.com.cn 网站 【例 9-5】这个例子利用计数器组件实现简单的投票计数功能。 为你喜欢的网站投票： huatengedu.com.cn huazheng.com.cn feiteng.com.cn 当前投票结果： testA: testB: testC: 9.5 程序运行示例 这里编写一个简单的 ASP 程序，并介绍它的运行过程，得出运行结果。 第一步：编写一个体现一页中可以使用不同脚本语言的 ASP 程序。编写 ASP 文件可以
使用任何的文本编辑器,如记事本,也可以使用 Microsoft visual inter dey、 Microsoft front page 或 等 打开【记事本】文本编辑器,输入以下代码: hellos/title> body> Function write helloo Response. Write("你好,欢迎使用ASP!^^") script> For 1=3 to 5 write helloo Next 执行【文件】|【保存】命令,弹出【另存为】对话框如图99所示。指定保存位置 后,在【保存类型】下拉列表中选择【所有文件】选项,在【文件名】下拉列表中输入“ test. asp”, 然后单击【保存】按钮 第二步:新建虚拟目录。首先在D盘根目录下建立一个用于存放ASP文件的文件夹 masp,把第一步中所编辑的 test. asp拷贝到该文件夹中。打开【控制面板】|【管理工具】 Internet服务管理器】→右击【默认Web站点】|【新建】|【虚拟目录】把 masp文件夹 设置成IS服务器中的虚拟目录 masp o 第三步:调试运行 test. asp。打开I浏览器,在地址栏中输入 htt/ localhost/masp/ test. asp(也可输入htp∥27.0.0.l/ mays/test. asp),即可看到 test. asp的运 行结果,如图9-10所示
使用任何的文本编辑器，如记事本，也可以使用 Microsoft Visual InterDev、Microsoft FrontPage 或 Dreamweaver 等。 打开【记事本】文本编辑器，输入以下代码： hello Function write_hello() { Response.Write("你好，欢迎使用 ASP！^!^") } 执行【文件】|【保存】命令，弹出【另存为】对话框,如图 9 9 所示。指定保存位置 后，在【保存类型】下拉列表中选择【所有文件】选项，在【文件名】下拉列表中输入“test.asp”， 然后单击【保存】按钮。 第二步：新建虚拟目录。首先在 D 盘根目录下建立一个用于存放 ASP 文件的文件夹 myasp，把第一步中所编辑的 test.asp 拷贝到该文件夹中。打开【控制面板】|【管理工具】| 【Internet 服务管理器】→右击【默认 Web 站点】|【新建】|【虚拟目录】，把 myasp 文件夹 设置成 IIS 服务器中的虚拟目录 myasp。 第三步：调试运行 test.asp 。 打 开 IE 浏 览 器 ， 在 地 址 栏 中 输 入 http://localhost/myasp/test.asp(也可输入 http://127.0.0.1/maysp/test.asp)，即可看到 test.asp 的运 行结果，如图 9-10 所示