asp代码中定义的变量如何获取表单中文本框值的问题

[wjy217213]

asp代码中定义的变量如何获取表单中文本框值的问题，我想实现如下功能不知道怎么办，请大家帮助我！
代码如下：
请输入邮箱地址： <form ><input name="Email" type="text" id="Email" size="30" /> <input type="button" value="点击发送邮件" > </form>
<%
Email=Request("Email")
%>
我的设计思路是，用户在文本框中输入邮箱地址，点击发送邮件按钮后，<%Email=Request("Email")%>，Email变量就能成功获取到表单中Email文本框值，现在的代码不能实现该功能，我不知道是不是Email=Request("Email")这样的赋值对不对，他们在一个网页里，请大家帮忙改进，谢谢大家了！

[wjy217213]

我调整了一下思路做成表单提交页面inviste.asp和表单处理inviste_do.asp两个页面，
inviste.asp代码如下：
请输入邮箱地址 <form action="invite_do.asp" method="post"> <input name="Email" type="text" id="Email" size="30" maxlength="255" /> <input type="submit" value="点击发送邮件" ></form>

inviste_do.asp代码如下：
<%
Email=Request("Email")
response.Write Email
Subject = "您的好友推荐您注册成为艺类网用户"
bodys = "此邮件由艺类网系统自动发出！请勿直接回复！"
Conn.ExeCute("exec msdb.dbo.sp_send_dbmail @profile_name='con_service',@recipients='Email',@subject='测试发邮件 sql查询',@body_format='HTML',@body='测试发邮件 sql查询';")
%>

测试结果如下：
在inviste_do.asp页面显示[e-mail]
但是[e-mail]里却没有收到邮件

[wjy217213]

请输入邮箱地址 <form action="invite1.asp" method="post"><input name="Email" type="text" id="Email" size="30" maxlength="255" /> <input type="submit" value="点击发送邮件" > </form>

<%
Email=Request("Email")
response.Write Email
Subject = "您的好友推荐您注册成为艺类网用户"
bodys = "此邮件由艺类网系统自动发出！请勿直接回复！"
Conn.ExeCute("exec msdb.dbo.sp_send_dbmail @profile_name='con_service',@recipients='Email',@subject='测试发邮件 sql查询',@body_format='HTML',@body='测试发邮件 sql查询';")
%>

在本页面处理，但是和在另外一个页面的效果是一样的，
测试结果如下：
在inviste_do.asp页面显示[e-mail]
但是[e-mail]里却没有收到邮件

[wjy217213]

[Quote=引用 8 楼 lingyun410 的回复:]
1.如果点击新页面发送邮件，那么直接使用action
<form action="?menu=SendMail" method="post">
<input type="text" name="Email" id="Email" size="20" />
<input type="submit" value="点击发送邮件" />
</form>
<%
If LCase(Request("Menu"))="sendmail" Then
Dim Email
Email=Request("Email")
'发送邮件的代码
End If
%>
2.使用AJAX来异步发送邮件
<form action="" method="po…
[/Quote]

第二个方法肯定不行的，因为SQL2005的数据库邮件功能只能用于服务器端，不能用于JS里的

[zhuyongzhao]

关注中

[wjy217213]

呵呵，搞定了，原来是改成@recipients='"&Email&"'，这样就行了，呵呵，在SQL中单引是字符串啊

[wjy217213]

感觉你们帮助我，大家快乐才是真正的快乐！大家积极回帖，我明天结帖，人人都有分拿！

[一把编程的菜刀]

Conn.ExeCute("exec msdb.dbo.sp_send_dbmail @profile_name='con_service',@recipients='Email',@subject='测试发邮件 sql查询',@body_format='HTML',@body='测试发邮件 sql查询';")

你变量这么写能对吗？
这全是字符了都

[javaxi]

Email=Request.form("Email")
应该是没错的, 建议检查有无重复的name.
还有... 你的form需要有action... <%%>asp的代码要判断action才执行赋值代码

[javaxi]

<form action="?act=send" >
<input name="Email" type="text" id="Email" size="30" /> <input type="submit" value="点击发送邮件" >
</form>

<% 
if Request("act")= "send" then
  Email=Request.form("Email") 
end if
%> 

[lanbo1213]

<%
Email=Request("Email")
%> 赋值是正确的。 但是你Email 得到的肯定是空值。
你要么用JS 要么就表单传递Email 值。

[bhd1896]

<form action="?" method="get">
<input name="Email" type="text" id="Email" size="30">
<input type="button" value="点击发送邮件" >
</form>
<%
Email=Request("Email")
response.Write Email
%>

[bhd1896]

<form action="?" method="get">
<input name="Email" type="text" id="Email" size="30">
<input type="submit" value="点击发送邮件" >
</form>
<%
Email=Request("Email")
response.Write Email
%>

[ChinaXtHuLang]

<form action="?" method="get"> 
<input name="Email" type="text" id="Email" size="30"> 
<input type="submit" value="点击发送邮件" > 
</form> 
<% 
Email=Request("Email") 
response.Write Email 
%>

[wjy217213]

[Quote=引用 4 楼 bhd1896 的回复:]
<form action="?" method="get">
<input name="Email" type="text" id="Email" size="30">
<input type="button" value="点击发送邮件" >
</form>
<%
Email=Request("Email")
response.Write Email
%>
[/Quote]
谢谢你的回复，我试了，输入邮箱，然后点击发送按钮后，页面没有变化，response.Write Email 应该显示出Email的值的呀？

[lingyun410]

1.如果点击新页面发送邮件，那么直接使用action
<form action="?menu=SendMail" method="post">
<input type="text" name="Email" id="Email" size="20" />
<input type="submit" value="点击发送邮件" />
</form>
<%
If LCase(Request("Menu"))="sendmail" Then
Dim Email
Email=Request("Email")
'发送邮件的代码
End If
%>
2.使用AJAX来异步发送邮件
<form action="" method="post">
<input type="text" name="Email" id="Email" size="20" />
<input type="button" onclick="sendMail();" value="点击发送邮件" />
</form>
<script type="text/javascript">
<!--
function sendMail(){
//获取Email的值，然后处理
}
//-->
</script>

[wjy217213]

[Quote=引用 8 楼 lingyun410 的回复:]
1.如果点击新页面发送邮件，那么直接使用action
<form action="?menu=SendMail" method="post">
<input type="text" name="Email" id="Email" size="20" />
<input type="submit" value="点击发送邮件" />
</form>
<%
If LCase(Request("Menu"))="sendmail" Then
Dim Email
Email=Request("Email")
'发送邮件的代码
End If
%>
2.使用AJAX来异步发送邮件
<form action="" method="po…
[/Quote]

我就想在本页面发送怎么办呀？

[wjy217213]

[Quote=引用 5 楼 bhd1896 的回复:]
<form action="?" method="get">
<input name="Email" type="text" id="Email" size="30">
<input type="submit" value="点击发送邮件" >
</form>
<%
Email=Request("Email")
response.Write Email
%>
[/Quote]

谢谢这样能获取到值了，但是我想做以下的代码：
<%
Email=Request("Email")
response.Write Email
Subject = "您的好友推荐您注册成为艺类网用户"
bodys = "您好，艺类网！"
Conn.ExeCute("exec msdb.dbo.sp_send_dbmail @profile_name='con_service',@recipients='Email',@subject='测试发邮件 sql查询',@body_format='HTML',@body='测试发邮件 sql查询';")
%>

在这个页面能显示出Email的值，但是我邮箱里接收不到邮件，为什么呀？

[wjy217213]

<%
Subject = "您的好友推荐您注册成为艺类网用户"
bodys = "您好艺类网！"
Conn.ExeCute("exec msdb.dbo.sp_send_dbmail @profile_name='con_service',@recipients='[e-mail]',@subject='测试发邮件 sql查询',@body_format='HTML',@body='测试发邮件 sql查询';")
%>

如果这样写的话，[e-mail]这个邮箱里能收到这个邮件，但是我想以变量形式获取到值，Email=Request("Email") ，......@recipients='Email'......
怎么做呀？

[xiaojielanbaihe]

对啊对啊，就是form没有action

[gjz_1209]

<form action="?" method="get">
<input name="Email" type="text" id="Email" size="30">
<input type="submit" value="点击发送邮件" >
</form>
<%
Email=Request("Email")
response.Write Email
%>