ASP实现和用户的交互
类别: ASP教程
你可以制作一个像SendUserInfo.htm(发送用户信息)似的网页,在该页中用表单实现把用户的姓名,性别,留言发送给我们自己,但是如果只用HTML时我们只能给表单的动作为<form method="POST" action=mailto:admin@4ico.com>,我们在ASP中可以用ASP程序实现对表单数据的处理。在这里我们只需要把<form method="POST" action=mailto:admin@4ico.com>改成<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>
当然我们在实现处理之前首先应该建立一个数据库表,表中包含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>
- 上一篇: VML 实现饼图的代码
- 下一篇: ASP实现的具体投票的程序
-= 资 源 教 程 =-
文 章 搜 索