【例9-1】写一个ASP开发环境的测试程序,以证明ASP的服务器工作正常 程序名称是 Test. asp,代码如下 <title>ASP Test</title body> <Input type="SUBMIT"name="Btnl" value="Test ASP"> <script Language="VBScript"> Sub btnl on Click Dim message Message="ASP Test Success! Msgbox Message 0 Test ASP End Sub </script> <html> 【例9-2】表单实例 页面 post. htm用来显示HIML表单,以接收用户输入的数据。 代码如下: <form method="post"action="post. asp"> 姓名:< Input type="text"name=" yourname">br> 性别:< select name=" gender"> < option>女< /option> </select> <br> 留言:<b message></textarea 爱好(按住Ctrl键可多选):<br> select name="hobby multiple size=4> < option>电脑< /option> < option>电影< option> < option>读书< option> <select><br> <input type="submit"name="Submit"value="EX"> <input type="reset"name="Submit2 value="Reset">
【例 9-1】写一个 ASP 开发环境的测试程序，以证明 ASP 的服务器工作正常。 程序名称是 Test.asp，代码如下： <html> <head> <title>ASP Test</title> </head> <body> <Input type="SUBMIT" name="Btn1" value="Test ASP"> <script Language="VBScript"> <!-- Sub Btn1_onClick() Dim Message Message="ASP Test Success!" Msgbox Message ,0,"Test ASP" End Sub --> </script> </body> </html> 【例 9-2】表单实例。 页面 post.htm 用来显示 HTML 表单，以接收用户输入的数据。 代码如下： <html> <body> <form method="post" action="post.asp"> 姓名：<input type="text" name="yourname"><br> 性别：<select name="gender"> <option>男</option> <option>女</option> </select> <br> 留言：<br> <textarea name="message"></textarea> <br> 爱好(按住 Ctrl 键可多选)：<br> <select name="hobby" multiple size=4> <option>电脑</option> <option>购物</option> <option>电影</option> <option>读书</option> </select><br> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="Reset">
</html> 5 Request对象的综合应用——留言板 本范例采用表单的形式收集客户留言信息,并通过POST方式,将其传送到web服务器管 理员的邮箱中,其基本流程如下: (1)客户在线填写留言板。 (2)通过ASP程序将留言信息发送到网站管理员的邮箱中 (3)网站管理员可以以电子邮件的形式回复客户信息 根据以上功能要求,程序模块设计如下: (1)留言板模块 (2)留言板信息转成 E mail模块。 (3)处理留言板信息反馈模块。 以下是具体程序设计 (1)留言板程序设计。 留言板程序(程序名: Customers.asp)代码如下 <Html> <Titl留言板范例</rtle /Head> <P>欢迎将您的留言留给我们,您的意见和建议都将是我们的宝贵财富。谢谢您! </P> <Form Method="POST" Action="Msg Note. asp <P> < nput Type="rado" value="0" checked Name="Kind">一般留言 < Input Type="rado"Name="Knd" value="1">给网站管理者<Br> *E &: <Input Type=text"Name="Name"Size=14"> 性别:< nput Type="rado"Name="Sex" value="0" checked男 <Input Type="radio"Name="Sex"Value=1><<Br> E mail: <Input Type=text"Name="email"Size=29><Br> E E&: <Input Type="text"Name="Subject!"Size="33"><Br> E E: <Textarea Rows="5"Name="Body"Cols=36"></Textarea> <Input Type="submit"Value="iH"Name="send"> < Input Type=" reset" Value"清除"Name=" Clear"> <Body> </Html>
</form> </body> </html> 5.Request 对象的综合应用——留言板 本范例采用表单的形式收集客户留言信息，并通过 POST 方式，将其传送到 Web 服务器管 理员的邮箱中，其基本流程如下： （1）客户在线填写留言板。 （2）通过 ASP 程序将留言信息发送到网站管理员的邮箱中。 （3）网站管理员可以以电子邮件的形式回复客户信息。 根据以上功能要求，程序模块设计如下： （1）留言板模块。 （2）留言板信息转成 E mail 模块。 （3）处理留言板信息反馈模块。 以下是具体程序设计： （1）留言板程序设计。 留言板程序(程序名：Customers.asp)代码如下： <Html> <Head> <Title>留言板范例</Title> </Head> <Body> <P>欢迎将您的留言留给我们，您的意见和建议都将是我们的宝贵财富。谢谢您! </P> <Form Method="POST" Action="MsgNote.asp"> <P> <Input Type="radio" Value="0" checked Name="Kind">一般留言 <Input Type="radio" Name="Kind" Value="1">给网站管理者<Br> 姓 名：<Input Type="text" Name="Name" Size="14"> 性别：<Input Type="radio" Name="Sex" Value="0" checked>男 <Input Type="radio" Name="Sex" Value="1">女<Br> E mail: <Input Type="text" Name="email" Size="29"><Br> 主 题：<Input Type="text" Name=" Subject" Size="33"><Br> 留 言：<Textarea Rows="5" Name="Body" Cols="36"></Textarea> </P> <P> <Input Type="submit" Value="送出" Name="send"> <Input Type="reset" Value="清除" Name="Clear"> </P> </Form> </Body> </Html>
(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 对象）这些信息。 其程序代码如下： <% 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="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 <Head>< Title>留言板</itl</Head> <Br> <Block Quote> <P>欢迎留言,我们收到信息后会尽快与您联系。谢谢!</P> 发件人:<%= sName%><%= Title%<%= sFrom%><Br 收件人:<%=sIo%><Br> 时间:<%=Now%><Br> <Pre><%=Request("REMOTE ADDR")%><Pre> <Br> IP地址:<%= Request((" REMOTE ADDR")%><Br> 相关信息<%= Request(" Http User Agent")% </Block Quote> 4 Application对象的综合应用 个简单的聊天室 网上聊天室是一个比较复杂的系统。由于要在多个用户之间显示聊天内容,因此可以用 Application对象传递用户的信息。这里介绍一个简单的聊天室示例,代码如下 %( Language=VBScript % <meta name="GENERATOR" content="Microsoft visual studio 60"> body bgcolor=#COD9D9> Response. B On error resume next If Request Server Variables("Request Method"="GET"then <form method="POST"action="chat l asp"><P> <h3>请输入你的昵称<H3> <input type="TEXT < cinput type=" SUBMIT"name="Bl" value="进入">
CDOMail.Subject=sSubject CDOMail.Body=Message CDOMail.Send Set CDOMail=Nothing %> <Html> <Head><Title>留言板</Title></Head> <Body> <Br> <BlockQuote> <P>欢迎留言，我们收到信息后会尽快与您联系。谢谢！</P> 发件人: <%=sName%><%=Title%><%=sFrom%><Br> 收件人: <%=sTo%><Br> 时间: <%=Now%><Br> ===================================== <Pre><%=Request( "REMOTE_ADDR" ) % ></Pre> ===================================== <Br> IP 地址:<%=Request("REMOTE_ADDR")%><Br> 相关信息:<%=Request("HTTP_USER_AGENT")%> </BlockQuote> </Body> </Html> 4.Application 对象的综合应用——一个简单的聊天室 网上聊天室是一个比较复杂的系统。由于要在多个用户之间显示聊天内容，因此可以用 Application 对象传递用户的信息。这里介绍一个简单的聊天室示例，代码如下： <%@ Language=VBScript %> <html> <head> <meta name="GENERATOR" content="Microsoft Visual Studio 6.0"> </head> <body bgcolor=#COD9D9> <% Response.Buffer=true On error resume next If Request.ServerVariables("Request_Method")="GET" then %> <form method="POST" action="chat1.asp"><P> <h3>请输入你的昵称</H3> <input type="TEXT" name="nick" value=""> <p> <input type="SUBMIT" name="B1" value="进入">
<input type="HIDDEN"name="log"value="1"> form> Response. End R Response. Write("<body bgcolor=#COD9D9>) Dim talk If Request Form("nick")then Session("nick")=Request Form("nick") End lf <form method="POST"action="chat 1. asp"> <h3><%= Session("nick")%消息:<h3> <input type="TEXT" name="talk" size=50"> nput type=" SUBMIT" value="提交"name="B1"> < Input type=" RESET"vlue="取消"name="B2"> < /form> 返回 If Request Form("log")l then If TRIM(Request Form("talk"))="Then lk= Session("nick")&"沉默是金。 Else talk=Trim(Request Form("talk Application("show")="<table border=O' cellpadding=O' cellspacing=0' width=85%><tr><td width100%bgcolor=#COCoCO,></td></tr><tr><td width=100%'><font color#0000FF> *k E "&Request Server Variables("remote addr")&"Bl"&Session("nick")&time&"it:</font> "&talk &"<td>hr><tr<td width=100% bgcolor=#CoCoCo></td></tr></table><br>&Application("show") End If End if
<p> <input type="HIDDEN" name="log" value="1"> </form> <% Response.End Else Response.Clear Response.Write("<body bgcolor=#COD9D9>") Dim talk If Request.Form("nick")<>"" then Session("nick")=Request.Form("nick") End If %> <form method="POST" action="chat1.asp"> <p> <h3><%=Session("nick")%> 消息:</h3> <input type="TEXT" name="talk" size="50"> <p> <input type="SUBMIT" value="提交" name="B1"> <input type="RESET" value="取消" name="B2"> </form> <a href="chat1.asp"> 返回 </a> <p> <% 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")="<table border='0' cellpadding='0' cellspacing='0' width='85%'><tr><td width='100%' bgcolor='#C0C0C0'></td></tr><tr><td width='100%'><font color='#0000FF'> 来 自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说 ： </font> "&talk&"</td></tr><tr><td width='100%' bgcolor='#C0C0C0'></td></tr></table><br>"&Application("show") Application.Unlock Response.Write Application("show") End If End If %> </body> </html>