1 / 5

<body bgcolor=white text=blue></body> <CENTER> <h1> 電子郵件 </h1>

電子郵件. Mail.htm. <body bgcolor=white text=blue></body> <CENTER> <h1> 電子郵件 </h1> <form method="post" action="mail.asp"> 寄信人 ︰<input type=text name=from size=30 maxlength=30><p> 收信人 ︰<input type=text name=to size=30 maxlength=30><p>

dinos
Download Presentation

<body bgcolor=white text=blue></body> <CENTER> <h1> 電子郵件 </h1>

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 電子郵件 Mail.htm <body bgcolor=white text=blue></body> <CENTER> <h1>電子郵件</h1> <form method="post" action="mail.asp"> 寄信人︰<input type=text name=from size=30 maxlength=30><p> 收信人︰<input type=text name=to size=30 maxlength=30><p> 標題︰<input type=text name=subject value="" size=30 maxlength=30><p> 本文︰<textarea name=body rows=5 cols=30></textarea><p> <input type=submit value="送出信件"> <input type=reset value="清除重寫"> </form> </CENTER>

  2. <% myFrom = Request("from"): myTo = Request("to") mySubject = Request("subject"): myBody = Request("body") Response.Write "<body bgcolor=white text=blue></body>" Response.Write "From: " & myFrom & "<br>" Response.Write "To: " & myTo & "<br>" Response.Write "Subject: " & mySubject & "<br>" Response.Write "Body: " & myBody & "<br>" Response.Write "此封 E-mail 已送出" '自動寄信 98-PWS版本 set o = Server.CreateObject("ADISCON.SimpleMail.1") o.MailServer = "ms1.tomail.com.tw" o.Sender = myFrom o.Recipient = myTo o.Subject = mySubject o.MessageText =myBody call o.Send set o = Nothing mail.asp

  3. '自動寄信 NT-IIS版本 'Dim o 'Set o = CreateObject("CDONTS.NewMail") 'o.From = myFrom 'o.To = myTo 'o.Subject = mySubject 'o.Body = myBody 'o.Send 'Set o = Nothing %> mail.asp (續) 註︰PWS需安裝e-mail元件才能寄信 請先解安裝isimpmail.zip 再執行install.bat

More Related