New Ribbon
中老年人快樂學電腦(Windows 10+Office 2016) 快快樂樂學威力導演15 - 影片/MV剪輯活用情報特蒐 中老年人愛用APP全收錄 ( 第二版 )< 適用 iOS + Android 雙系統手機及平板 Excel 2016高效實用範例必修16課-善用資料圖表 x 函數巨集的精算達人 iOS 10+iPhone 7 / 7Plus / iPad 完全活用術 中老年人快樂學拍照、攝影 生活科技應用網路概論(第二版) 中老年人快樂學 Facebook + LINE (超大圖解好閱讀.簡單學習好上手) 快快樂樂學威力導演14 - 影片/MV剪輯活用情報特蒐 翻倍效率工作術--不會就太可惜的Google超極限應用(第二版) iOS 9+iPhone 6s/iPad 完全活用術 - 260個超進化技巧攻略 用Photoshop玩影像設計比你想的簡單:快快樂樂學Photoshop CC 翻倍效率工作術:不會就太可惜的Excel必學圖表 中老年人愛用APP全收錄:適用 iOS + Android 雙系統手機及平板 翻倍效率工作術:不會就太可惜的 Excel 必學函數

 

  版主救命ㄚ

您的忠實書迷

您的忠實書迷
更新時間:2005/10/25 下午 02:35:54

 

版主您好,目前正在練習jmail的製作,我將書上的範例放到智邦生活館上執行,但是卻無法執行線上回覆或是線上發信的功能,我有智邦生活館的jmail元件程式碼,但是卻不知道該怎麼將jmail寫入書上的發信範例,我將兩個檔案的程式碼成列如下,還請多幫忙,謝謝!!

PS:書名是 - 挑戰Dreamweaver互動網站百寶箱for ASP

發信範例程式碼:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connMember.asp" -->
<%
Dim RecMember__MMColParam
RecMember__MMColParam = "1"
If (Request.Form("m_email") <> "") Then
  RecMember__MMColParam = Request.Form("m_email")
End If
%>
<%
Dim RecMember
Dim RecMember_numRows

Set RecMember = Server.CreateObject("ADODB.Recordset")
RecMember.ActiveConnection = MM_connMember_STRING
RecMember.Source = "SELECT m_email, m_id, m_nick, m_passwd FROM memberData WHERE m_email = '" + Replace(RecMember__MMColParam, "'", "''") + "'"
RecMember.CursorType = 0
RecMember.CursorLocation = 2
RecMember.LockType = 1
RecMember.Open()

RecMember_numRows = 0
%>
<html>
<head>
<title>會員系統</title>
<meta http-equiv="Content-Type" content="text/html; charset=big5">
<!-- Fireworks MX Dreamweaver MX target.  Created Sat May 03 12:18:20 GMT+0800 (¥x¥_?D·CRE?!) 2003-->
<script language="JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
   var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
   if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<style type="text/css">
<!--
.whiteBox {
border: 1px solid #FFFFFF;
}
-->
</style>
<style type="text/css">
<!--
li {
font-size: 10pt;
line-height: 12pt;
color: #FFFFFF;
}
.style1 {color: #FFFBF0}
.style2 {
color: #FF0000;
font-weight: bold;
}
-->
</style>
</head>
<body link="#FFFF66" vlink="#FFFF66" onLoad="MM_preloadImages('images/member_r2_c6_f2.gif','images/member_r2_c10_f2.gif','images/member_r2_c14_f2.gif','images/member_r2_c18_f2.gif')">
<div align="center">
<table width="700" border="0" cellpadding="4" cellspacing="0">
  <tr>
    <td bgcolor="#4C687E"><table width="100%" border="0" cellpadding="4" cellspacing="0" class="whiteBox">
        <tr>
          <td>
   <table border="0" width="100%" id="table1">
    <tr>
     <td colspan="5" align="center" valign="bottom"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="770" height="136">
                      <param name="movie" value="flash/member_show.swf">
                      <param name="quality" value="high">
                      <embed src="flash/member_show.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="770" height="136"></embed>
        </object>                    </td>
     <td width="0" rowspan="2">
                    <div align="right">                      </div>
                    </td>
    </tr>
    <tr>
     <td width="104">
     <font size="2"><a href="index.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('member_r2_c61','','images/member_r2_c6_f2.gif',1)"><img src="images/member_r2_c6.gif" alt="" name="member_r2_c61" width="48" height="48" border="0" id="member_r2_c61"></a>會員首頁</font></td>
     <td width="102">
     <font size="2"><a href="memberAdd.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('member_r2_c101','','images/member_r2_c10_f2.gif',1)"><img src="images/member_r2_c10.gif" alt="" name="member_r2_c101" width="49" height="48" border="0" id="member_r2_c101"></a>加入會員</font></td>
     <td width="101">
     <font size="2"><a href="memberzone.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('member_r2_c141','','images/member_r2_c14_f2.gif',1)"><img src="images/member_r2_c14.gif" alt="" name="member_r2_c141" width="48" height="48" border="0" id="member_r2_c141"></a>會員專區</font></td>
     <td width="104"><font size="2"><a href="memberAdmin.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('member_r2_c181','','images/member_r2_c18_f2.gif',1)"><img src="images/member_r2_c18.gif" alt="" name="member_r2_c181" width="48" height="48" border="0" id="member_r2_c181"></a>會員管理</font></td>
     <td width="343">     <div align="center"><font size="2"><a href="../index.asp"><img src="images/home.gif" width="43" height="49" border="0"></a>回首頁</font></div></td>
    </tr>
   </table>
   </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        
        
        
        
        
        
        <tr>
          <td><hr size="1" color="#FFFFFF"></td>
        </tr>
      </table>
      
      
      
      
<% If Not RecMember.EOF Or Not RecMember.BOF Then %>
      <table width="60%" border="0" align="center" cellpadding="0" cellspacing="4">
        <tr valign="top">
          <td align="center"> <p style="margin-top: 0; margin-bottom: 5px"><strong>
              <%
myMailServer = "127.0.0.1"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = Server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(sch & "sendusing") = 2
cdoConfig.Fields.Item(sch & "smtpserver") = myMailServer
cdoConfig.fields.update
Set cdoMessage = Server.CreateObject("CDO.Message")
Set cdoMessage.Configuration = cdoConfig
cdoMessage.From = "david@e-happy.com.tw"
cdoMessage.To = Request("m_email")


cdoMessage.Subject = "會員系統密碼認證信"
cdoMessage.HTMLBody = RecMember("m_nick")&"您好:<br>您的密碼為:"&RecMember("m_passwd")
cdoMessage.Send
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
              <span class="style1">《 補寄會員密碼 》</span></strong></p>
            <p style="margin-top: 0; margin-bottom: 5px"><span class="style1">親愛的</span><font color="#000080"><%=(RecMember.Fields.Item("m_nick").Value)%>
   </font>    <span class="style1">您好 ~</span><font color="#000080"><br>
              </font><span class="style1">您的密碼已經寄發到登錄的信箱中,<br>
              請查收並妥善保管密碼。</span></p>
            <p style="margin-top: 0; margin-bottom: 5px"><font size="2"><span class="style1">請回</span>
   </font><font color="#FFFFFF" size="2"> <a href="index.asp">
   <font color="#0000FF">會員首頁</font></a></font><span class="style1"><font size="2">   登入。</font></span></p></td>
        </tr>
      </table>
      <% End If ' end Not RecMember.EOF Or NOT RecMember.BOF %> <% If RecMember.EOF And RecMember.BOF Then %>
      <table width="60%" border="0" align="center" cellpadding="0" cellspacing="4">
        <tr valign="top">
          <td align="center"> <p class="style1" style="margin-top: 0; margin-bottom: 5px"><strong>《 補寄會員密碼 》</strong></p>
            <p class="style2" style="margin-top: 0; margin-bottom: 5px">對不起,資料庫中並沒有您的資料!</p>
            <p style="margin-top: 0; margin-bottom: 5px"><span class="style1"><font size="2">您可</font></span><font color="#FFFFFF" size="2"><a href="Sendpass01.asp"><font color="#0000FF">重新輸入</font></a></font><span class="style1"><font size="2">   或 </font></span><font color="#FFFFFF" size="2"> <a href="memberAdd.asp">
   <font color="#0000FF">申請會員</font></a></font><span class="style1"><font size="2">。</font></span></p></td>
        </tr>
      </table>
      <% End If ' end RecMember.EOF And RecMember.BOF %>
      <table width="100%" border="0" cellspacing="0" cellpadding="4">
        <tr>
          <td><div align="center">
              <hr size="1" noshade class="whiteBox">
              </div></td>
        </tr>
      </table></td>
  </tr>
</table>
</div>
</body>
</html>
<%
RecMember.Close()
Set RecMember = Nothing
%>



智邦生活館jmail元件:



<%@LANGUAGE="VBSCRIPT" %>
<HTML>
<BODY>
<%
Set jmail = Server.CreateObject("JMail.Message")

' 在此鍵入收件人信箱、姓名。此語法可重複使用以同時寄送給更多收件者
jmail.AddRecipient "dickson703@ms95.url.com.tw ", "dickson703"

' 在此鍵入寄件人信箱
jmail.From = "dickson703@ms95.url.com.tw "

' 在此鍵入主旨
jmail.Subject = "白冷圳公告"
jmail.Body = ""

jmail.Charset = "big5"
jmail.ContentTransferEncoding = "base64"
jmail.Encoding = "base64"
jmail.ISOEncodeHeaders = false

' 在此鍵入HTML內容
jmail.HTMLBody = "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=big5""></head><body><font color=""red"">恭喜!JMail測試成功!</font><br>"
jmail.appendHTML "<br><br>智邦生活館客服中心</body></html>"

' 在此鍵入純文字內容(收信者無法檢視HTML時的備案)
jmail.Body = ""
jmail.appendText " 很遺憾您無法閱讀HTML內容"

' 在此鍵入SMTP伺服器,此處以HiNet為例
jmail.Send( "msa.hinet.net" )
%>
寄件成功!</BODY>
</HTML>

文淵閣工作室

文淵閣工作室
更新時間:2005/10/28 上午 08:38:44

 

Jmail 並不是該書上的討論內容。
您可以用到 jmail 的官網或是使用 jmail 為關鍵字上找找相關資訊。




 

 

Re:版主救命ㄚ

請輸入姓名。

已超出字元數目的最大值。


請輸入電子郵件。

格式無效。


請輸入內容。