求解asp里的jmail怎么从数据库里读取值的代码怎样写
日期：2014-05-16 浏览次数：21201 次
求解asp里的jmail如何从数据库里读取值的代码怎样写
1、求改以下jmail代码里面的数据库取值代码，要求smtp、发信邮箱、邮箱密码、收信邮箱和JMail.HTMLBody里面的值都要从数据库读取，那读取数据库的这部分代码怎么修改？
2、JMail.HTMLBody怎样从http://iframe.ip138.com/ic.asp这个IP库里读取注册的ip值，然后以归属地的形式发送。如何ip是广州，那发送出去的信息就显示注册ip：广州
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<!--#include file="md5.Asp"-->
<!--#include file="config.asp" -->
<%
If request("go")<>"reg" Then response.End
dim CLStr,JMail,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)
'请在此修改数据库读取代码
mailserver="<%=w78_smtp%>" '邮局服务器地址（smtp服务器地址）
username="<%=w78_mailadmin%>" 'smtp服务器验证登陆名（用来做为代发邮件的地址）
password="<%=w78_mailpassword%>" 'smtp服务器验证密码 （信箱密码）
receive="<%=w78_mail%>" '接受反馈信息的email地址（用来接收邮件的信箱）
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.logging = true '启用邮件日志
JMail.silent=True'屏蔽例外错误，返回False或True
JMail.ContentType = "text/html"'邮件的格式为HTML格式
JMail.Priority = 1 '邮件等级，1为加急，3为普通，5为低级
JMail.MailServerUserName = username
JMail.MailServerPassword = password
JMail.From = username
JMail.FromName = username
JMail.AddRecipient (receive)
'JMail.AddURLAttachment "
'请在此修改JMail.HTMLBody读取数据库代码
JMail.Subject = "<%=w78_home%>会员注册信息："&Request.Form("zsname")
JMail.HTMLBody = "<%=w78_home%>网站在线反馈"&CLStr&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<html><head></head><body><br>邮件正文<br><b><%=w78_home%></b></body></html>"&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<br>会员ID："&Request.Form("hybs")&Request.Form("loginname")&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<br>会员姓名："&Request.Form("zsname")&CLStr
'请在此修改JMail.HTMLBody读取注册ip归属地代码
JMail.HTMLBody = JMail.HTMLBody&"<br>注册IP："&http://iframe.ip138.com/ic.asp&CLStr
If JMail.Send (mailserver) Then
Response.Write(" <script language=javascript>alert('发送成功')</script>")
else
Response.Write(" <script language=javascript>alert('发送失败，请仔细检查邮件服务器的设置是否正确！') </script>")
End If
JMail.close
set JMail = nothing
%>
也可以在百度知道里回答：http://zhidao.baidu.com/question/367899782202477284.html
谢谢谢谢啊，在线等急
------解决方案--------------------
你要获取的所有变量都是<%=w78_xxx%>这个形式的，你看下config文件里是否已经读取并赋值了！
这种很像一般的后台设置里把数据库里特定的值先导出到配置文件里来，然后引用配置文件。
如果想自己读取，就在前面拦截下，具体读取数据库记录的就不用说了吧
------解决方案--------------------
1、求改以下jmail代码里面的数据库取值代码，要求smtp、发信邮箱、邮箱密码、收信邮箱和JMail.HTMLBody里面的值都要从数据库读取，那读取数据库的这部分代码怎么修改？
2、JMail.HTMLBody怎样从http://iframe.ip138.com/ic.asp这个IP库里读取注册的ip值，然后以归属地的形式发送。如何ip是广州，那发送出去的信息就显示注册ip：广州
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<!--#include file="conn.asp" -->
<!--#include file="md5.Asp"-->
<!--#include file="config.asp" -->
<%
If request("go")<>"reg" Then response.End
dim CLStr,JMail,mailserver,username,password,receive
CLStr=Chr(13) & Chr(10)
'请在此修改数据库读取代码
mailserver="<%=w78_smtp%>" '邮局服务器地址（smtp服务器地址）
username="<%=w78_mailadmin%>" 'smtp服务器验证登陆名（用来做为代发邮件的地址）
password="<%=w78_mailpassword%>" 'smtp服务器验证密码 （信箱密码）
receive="<%=w78_mail%>" '接受反馈信息的email地址（用来接收邮件的信箱）
Set JMail = Server.CreateObject("JMail.Message")
JMail.Charset = "gb2312"
JMail.logging = true '启用邮件日志
JMail.silent=True'屏蔽例外错误，返回False或True
JMail.ContentType = "text/html"'邮件的格式为HTML格式
JMail.Priority = 1 '邮件等级，1为加急，3为普通，5为低级
JMail.MailServerUserName = username
JMail.MailServerPassword = password
JMail.From = username
JMail.FromName = username
JMail.AddRecipient (receive)
'JMail.AddURLAttachment "
'请在此修改JMail.HTMLBody读取数据库代码
JMail.Subject = "<%=w78_home%>会员注册信息："&Request.Form("zsname")
JMail.HTMLBody = "<%=w78_home%>网站在线反馈"&CLStr&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<html><head></head><body><br>邮件正文<br><b><%=w78_home%></b></body></html>"&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<br>会员ID："&Request.Form("hybs")&Request.Form("loginname")&CLStr
JMail.HTMLBody = JMail.HTMLBody&"<br>会员姓名："&Request.Form("zsname")&CLStr
'请在此修改JMail.HTMLBody读取注册ip归属地代码
JMail.HTMLBody = JMail.HTMLBody&"<br>注册IP："&http://iframe.ip138.com/ic.asp&CLStr
If JMail.Send (mailserver) Then
Response.Write(" <script language=javascript>alert('发送成功')</script>")
else
Response.Write(" <script language=javascript>alert('发送失败，请仔细检查邮件服务器的设置是否正确！') </script>")
End If
JMail.close
set JMail = nothing
%>
也可以在百度知道里回答：http://zhidao.baidu.com/question/367899782202477284.html
谢谢谢谢啊，在线等急
------解决方案--------------------
你要获取的所有变量都是<%=w78_xxx%>这个形式的，你看下config文件里是否已经读取并赋值了！
这种很像一般的后台设置里把数据库里特定的值先导出到配置文件里来，然后引用配置文件。
如果想自己读取，就在前面拦截下，具体读取数据库记录的就不用说了吧
------解决方案--------------------
sub EmailSend(siteEmail,smtp,emailUserName,emailUserPWD,inceptEmail,sendName,sendTitle,sendContent)
dim jmail
set jmail = CreateObject ("jmail.message") ''创建对象
jmail.Silent = true ''一般不用改
jmail.Charset = "gb2312" ''信件的语言编码
jmail.ContentType = "text/html" ''信件的格式html或纯文本
jmail.From = siteEmail ''发信人邮箱
jmail.FromName = sendName ''发信人姓名
jmail.Subject = sendTitle ''信件主题
jmail.AddRecipient inceptEmail ''收信人地址
&nbs
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
