Question

ASP实现在提交表单到数据库的同时发邮件通知 本人不懂asp 希望给个修改一下就可以的源代码

Answer 1

这个我有，我刚好做过的，一直在使用，只是你的使用环境是局域网还是外网使用？

你在提交表单的同时将表单数据使用邮件代码发送出来。

<%
dim  objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From ="**** <这里填你的邮件地址>"
objCDOMail.To =ren   '收件人
objCDOMail.Cc =email  '抄送
objCDOMail.Subject =bn  '主题

objCDOMail.Body =memo  ’内容

objCDOMail.BodyFormat =1  '邮件格式

objCDOMail.MailFormat =1
objCDOMail.Send
Set objCDOMail = Nothing
%>

我的使用环境是局域网，使用的内部邮箱，可以用的。

你的服务器要开通 CDONTS服务，方法如下：

Windows xp, Windows 2003 默认没有附带CDONTS.DLL的，必须手动安装，你可以从Windows 2000的system32中得到该文件.下载cdonts.dll这个文件，拷到windows的system32目录下然后在开始运行里输入regsvr32 cdonts.dll回车注册，注册成功cdonts组件就可以使用了
安装方法：
Step1: 将该文件拷贝至 %SystemRoot%\\System32 下;
Step2: 开始 -> 运行 -> Regsvr32 cdonts.dll;
Step3: 确认

cdonts文件我已上传，你直接下载使用就好。

Answer 2

邮件好办，需要下载安装一个免费jmail，不大，代码就是这么几句，你加在保单提交部分就行
Set jmail = Server.CreateObject("JMAIL.SMTPMail") '创建一个JMAIL对象
jmail.silent = true 'JMAIL不会抛出例外错误，返回的值为FALSE跟TRUE
jmail.logging = true '启用使用日志
jmail.Charset = "GB2312" '邮件文字的代码为简体中文
jmail.ContentType = "text/html" '邮件的格式为HTML的
jmail.ServerAddress = "smtp.126.com" '发送邮件的服务器
'jmail.ServerAddress = "smtp.126.com" '发送邮件的服务器
'jmail.AddRecipient "2@1.com" '邮件的收件人
jmail.SenderName = "SenderName" '邮件发送者的姓名
jmail.Sender = "2@1.com" '邮件发送者的邮件地址
jmail.Priority = 1 '邮件的紧急程序，1 为最快，5 为最慢， 3 为默认值
'jmail.Subject = "Mail Subject" '邮件的标题
jmail.Subject = ls_title
'jmail.Body = "Mail Body" '邮件的内容
jmail.Body = str_content
jmail.Execute() '执行邮件发送
jmail.Close '关闭邮件对象
Set jmail=nothing
if err then
ls_SendMail=err.description
err.clear
response.write ls_SendMail
response.end()
else
ls_SendMail="OK"
end if
'response.write "ok"

Answer 3

关于提交表单到数据库需要先明确数据库结构，最好把表单设计发布出来。
关于发邮件请访问实例 http://tusea.com/idea/app/sendmail/index.aspx
源代码下载：http://tusea.com/idea/app/sendmail/aspxmail.zip
说明：发邮件代码需要asp.net 2.0以上服务器环境支持