ASP实现和用户的交互

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 15次 | 进入软件测试论坛讨论

　　你可以制作一个像SendUserInfo.htm（发送用户信息）似的网页，在该页中用表单实现把用户的姓名，性别，留言发送给我们自己，但是如果只用HTML时我们只能给表单的动作为<form method="POST" action=>，我们在ASP中可以用ASP程序实现对表单数据的处理。在这里我们只需要把<form method="POST" action=>改成<form method="POST" action="UserInfo.asp">就可以把你所提交的数据传送给UserInfo.asp处理。

　　当然我们在实现处理之前首先应该建立一个数据库表，表中包含username,usergender,userinfo三个字段，在此不详细讲解数据库表的建立了，重点讲解userinfo.asp程序中的代码。

  　UserInfo.Asp的源代码 Request.Form("UserName")、Request.Form("UserGender")、Request.Form("UserInfo")中UserName、UserGender、UserInfo就是SendUserInfo.htm中要提交数据的name表示。你可以把SendUserInfo.htm和UserInfo.asp对比来看。下面是UserInfo.asp的源代码的部分解释

  <% ASP采用的是VBScript语言，你也可以更改为JavaScript语言。 %>
  <%@ Language=VBScript %>

  <% @#UserInfo.asp

  Option Explicit
  Response.Expires=0

  Dim StrName, StrGender, StrM, StrMsg

  @#获取SenderUserInfo.htm中姓名：name="UserName"传送过来的数据
  StrName = Trim(Request.Form("UserName")) @#Trim函数用来除首尾空格

  @#获取SenderUserInfo.htm中性别：：name="UserGender"传送过来的数据
  StrGender = Trim(Request.Form("UserGender"))

  @#获取SenderUserInfo.htm中留言：：name="UserInfo"传送过来的数据
  StrM = Trim(Request.Form("UserInfo")) @#滤除userinfo提交的内容中的空格
  StrMsg = Replace(StrM,vbcrlf,"<Br>" & vbcrlf) @#用vbcrlf来代替<Br>
  %>
  <HTML><BODY>

  <% @#显示获取的数据 %>

  姓名: <%= StrName%><Br><Br>
  性别: <%= StrGender%><Br><Br>
  留言: <Br><Br>
  <%= StrM%><Br><Br>

  </BODY></HTML>