UC知道ASP怎样在提交表单到数据库的同时,再发邮件通知别人?
来源：百度知道 编辑：UC知道 时间：2024/06/22 09:22:05
我想在点击提交时,洽谈记录的内容提交到数据库的同时,也以自己登录的账户MAIL(或固定一个MAIL账户也行)来发邮件通知"TO相关人"
(TO 相关人:这一栏可以输入1个或1个以上的邮箱地址,若没输入地址则不发通知)
不好意思,本想将view.asp这页面的原代码全贴上来,但超过3000字只能复制以下一点了.高手可以告诉我你的QQ或MAIL吗.我以附件形式发给你.谢谢了!
*:我已安装了JMail组件.
<tr>
<td height="16" align="center" bgcolor="#999999" style="cursor: hand;" onClick="return showHideBlock('addRecords');"><span style="color: #FFFFFF; font-weight: bold;">[添加洽谈纪录]</span></td>
</tr>
<tr id="addRecords" style="display: block;">
<td height="1" bgcolor="#FFFFFF" style="padding: 10px;"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="recordsForm" action="?action=saveRecords" method="post" onSubmit="return checkInput(
(TO 相关人:这一栏可以输入1个或1个以上的邮箱地址,若没输入地址则不发通知)
不好意思,本想将view.asp这页面的原代码全贴上来,但超过3000字只能复制以下一点了.高手可以告诉我你的QQ或MAIL吗.我以附件形式发给你.谢谢了!
*:我已安装了JMail组件.
<tr>
<td height="16" align="center" bgcolor="#999999" style="cursor: hand;" onClick="return showHideBlock('addRecords');"><span style="color: #FFFFFF; font-weight: bold;">[添加洽谈纪录]</span></td>
</tr>
<tr id="addRecords" style="display: block;">
<td height="1" bgcolor="#FFFFFF" style="padding: 10px;"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="recordsForm" action="?action=saveRecords" method="post" onSubmit="return checkInput(
以这种方式会更方便,将提交的内容保存到一个表.然后每个用户登录时可弹出显示这个表的内容.
Sub saveEditData()
Dim cId
Dim rDate,rType,rContent,rUser,rUser2,rUser3,rUser4,rUser5,cUser
cId = CInt(ABS(Request("cId")))
cUser = Trim(Request("user"))
rDate = Request.Form("rDate")
rType = Request.Form("recordsType")
rContent = htmlEncode2(Request.Form("rContent"))
rUser = htmlEncode2(Request.Form("rUser"))
rUser2 = htmlEncode2(Request.Form("rUser2"))
rUser3 = htmlEncode2(Request.Form("rUser3"))
rUser4 = htmlEncode2(Request.Form("rUser4"))
rUser5 = htmlEncode2(Request.Form("rUser5"))
If Not IsNumeric(cId) Or cId <= 0 Or rType = "" Or Not IsDate(rDate) Or rContent = "" Then
Response.Write("<font color=""#FF0000""><b>资料请求错误。</b></font><br><br>")
Respo