【例 9-1】写一个 ASP 开发环境的测试程序,以证明 ASP 的服务器工作正常. 程序名称是 Test.asp,代码如下: 【例 9-2】表单实例. 页面 post.htm 用来显示 HTML 表单,以接收用户输入的数据. 代码如下: 5.Request 对象的综合应用——留言板 本范例采用表单的形式收集客户留言信息,并通过 POST 方式,将其传送到 Web 服务器管 理员的邮箱中,其基本流程如下: (1)客户在线填写留言板. (2)通过 ASP 程序将留言信息发送到网站管理员的邮箱中. (3)网站管理员可以以电子邮件的形式回复客户信息. 根据以上功能要求,程序模块设计如下: (1)留言板模块. (2)留言板信息转成 E mail 模块. (3)处理留言板信息反馈模块. 以下是具体程序设计: (1)留言板程序设计. 留言板程序(程序名:Customers.asp)代码如下:
欢迎将您的留言留给我们,您的意见和建议都将是我们的宝贵财富.谢谢您!
(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") sName=Request("Name") sTo="3710167@qq.com" 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 %>