神马品牌网黑犬兽c86妖气漫画网:用JMAIL提交表格，下面程序怎样加代码才可以实现必选项目？
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 08:40:20
下面程序可以实现邮件提交，可是我想加点代码实现用户必须填写某些项目才能够提交，否则就跳出提示！
1。HTM文件：
<title>信息反馈表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form action="send.asp" method="post" name="mywebmail">
<p>您的姓名:
<input type="text" name="name" size="20" maxlength="50">
</p>
<p>联系电话(请加区号）:
<input name="tel" type="text" id="tel" size="20" maxlength="50">
</p>
<p>单位名称:
<input name="company" type="text" id="company" size="20" maxlength="60">
</p>
<p>您所在的部门:
<input name="dept" type="text" id="dept" size="20" maxlength="60">
</p>
<p>怎样知道我们网站:
<select name="from" id="from">
<option value="没有填写" selected>请选择</option>
<option value="百度搜索">百度搜索</option>
<option value="雅虎搜索">雅虎搜索</option>
<option value="平面广告">平面广告</option>
<option value="朋友推荐">朋友推荐</option>
<option value="其他途径">其他途径</option>
</select>
</p>
<p>您可以在下面说明您需要解决的问题或者所要寻找的产品：</p>
<p>
<textarea name="text" cols="50" rows="6" id="text"></textarea>
<br>
<br>
<input type="submit" value="send" name="submit">
<input type="reset" value="清除重写" name="clear">
2。asp文件：
<%
name = Request.Form ("name")
tel= Request.Form ("tel")
company= Request.Form ("company")
dept= Request.Form ("dept")
from = Request.Form ("from")
text=Request.Form ("text")
%>
<%
' 创建jmail对象:
Set JMail = Server.CreateObject("JMail.SMTPMail")
' 设置发送邮件服务器(SMTP):
JMail.ServerAddress = "mail.abc.com:25"
' 发件人的信箱:
JMail.Sender = name
' 邮件标题:
JMail.Subject = company
' 设置邮件的收件人信箱(请使用在我司申请的邮箱):
JMail.AddRecipient "sales@abc.com"
' 下面就是填表在内容区填写的内容，&是连接符，vbcrlf表示换行回车:
mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "姓名：" & name & vbcrlf
mess = mess & "电话：" & tel & vbcrlf
mess = mess & "公司：" & company & vbcrlf
mess = mess & "部门：" & dept & vbcrlf
mess = mess & "从哪里知道我们网站:" & from & vbcrlf
mess = mess & "留言内容:" & text & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------"
JMail.Body = mess
' 设置邮件的优先级(1-5，1为最高):
JMail.Priority = 5
' 执行发送任务:
JMail.Execute
%>
</p>
<p> </p>
<p> 您的信息已顺利提交并存档，同时您以后在需要我们提供产品或服务时会享受2-5%的额外折扣！谢谢！</p>
多谢！
1。HTM文件：
<title>信息反馈表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form action="send.asp" method="post" name="mywebmail">
<p>您的姓名:
<input type="text" name="name" size="20" maxlength="50">
</p>
<p>联系电话(请加区号）:
<input name="tel" type="text" id="tel" size="20" maxlength="50">
</p>
<p>单位名称:
<input name="company" type="text" id="company" size="20" maxlength="60">
</p>
<p>您所在的部门:
<input name="dept" type="text" id="dept" size="20" maxlength="60">
</p>
<p>怎样知道我们网站:
<select name="from" id="from">
<option value="没有填写" selected>请选择</option>
<option value="百度搜索">百度搜索</option>
<option value="雅虎搜索">雅虎搜索</option>
<option value="平面广告">平面广告</option>
<option value="朋友推荐">朋友推荐</option>
<option value="其他途径">其他途径</option>
</select>
</p>
<p>您可以在下面说明您需要解决的问题或者所要寻找的产品：</p>
<p>
<textarea name="text" cols="50" rows="6" id="text"></textarea>
<br>
<br>
<input type="submit" value="send" name="submit">
<input type="reset" value="清除重写" name="clear">
2。asp文件：
<%
name = Request.Form ("name")
tel= Request.Form ("tel")
company= Request.Form ("company")
dept= Request.Form ("dept")
from = Request.Form ("from")
text=Request.Form ("text")
%>
<%
' 创建jmail对象:
Set JMail = Server.CreateObject("JMail.SMTPMail")
' 设置发送邮件服务器(SMTP):
JMail.ServerAddress = "mail.abc.com:25"
' 发件人的信箱:
JMail.Sender = name
' 邮件标题:
JMail.Subject = company
' 设置邮件的收件人信箱(请使用在我司申请的邮箱):
JMail.AddRecipient "sales@abc.com"
' 下面就是填表在内容区填写的内容，&是连接符，vbcrlf表示换行回车:
mess = mess & "---------------Webmail表单开始-------------------" & vbcrlf
mess = mess & "姓名：" & name & vbcrlf
mess = mess & "电话：" & tel & vbcrlf
mess = mess & "公司：" & company & vbcrlf
mess = mess & "部门：" & dept & vbcrlf
mess = mess & "从哪里知道我们网站:" & from & vbcrlf
mess = mess & "留言内容:" & text & vbcrlf
mess = mess & "---------------Webmail表单结束-------------------"
JMail.Body = mess
' 设置邮件的优先级(1-5，1为最高):
JMail.Priority = 5
' 执行发送任务:
JMail.Execute
%>
</p>
<p> </p>
<p> 您的信息已顺利提交并存档，同时您以后在需要我们提供产品或服务时会享受2-5%的额外折扣！谢谢！</p>
多谢！