![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 站務人員 站長 ![]()
![]() ![]() ![]() |
<%@ Import Namespace="System.Web.Mail" %> <Script Language="VB" runat="server"> Sub btnSend_Click(ByVal sender As Object, ByVal e As EventArgs) If Page.IsValid Then Service_1.visible=False Service_2.visible=True Dim myMail As MailMessage = New MailMessage() '設定E-Mail的內容 myMail.To = txtTo.Text myMail.From = txtFrom.value myMail.Subject = txtSubject.Text myMail.BodyFormat = MailFormat.Html myMail.Body = txtMemo.Text '將E-Mail傳送出去 SmtpMail.Send(myMail) btnSend.visible=false Message.Text = "電子郵件已經傳送成功!郵件將會寄送給程式設計師以解決問題..." End If End Sub </script> <table width="550" border="0" cellspacing="0" cellpadding="0" align="center"> <tr valign="top"> <td align="center"> <Fieldset> <legend><img src="../Image/Emaillogo.gif" alt="" width="313" height="50" border="0"></legend> <table width="90%" border="0" cellspacing="0" cellpadding="0"> <trvalign="top"> <td colspan="2"> 寄件者:<asp:TextBox id="txtTo" runat="server" width="250"/> <asp:RequiredFieldValidator id="RequiredFieldValidator1" runat="server" ControlToValidate="txtTo" ErrorMessage="*"/> <asp:RegularExpressionValidator id=RegularExpressionValidator1 runat="server" ControlToValidate="txtTo" ValidationExpression=".{1,}@.{3,}" ErrorMessage="含@"/></td> </tr> <trvalign="top"> <td colspan="2"> 收件者:<input type="Text" style="width:250px;" id="txtFrom" disabled Value="" runat="server"> </td> </tr> <tr valign="top"> <Td colspan="2">信件主旨:<asp:TextBox id="txtSubject" runat="server" Text="" Enabled=False width="300"/> <asp:RequiredFieldValidator id="RequiredFieldValidator3" runat="server" ControlToValidate="txtSubject" ErrorMessage="*"/></TD> </tr> <tr > <td align="center" style="font-size:15px;" width="55"> 網站程式錯誤訊息 </td> <td valign="top" align="center"><asp:TextBox id="txtMemo" Enabled=False runat="server" TextMode="Multiline" Wrap="True" style="width:430px;height:200px;font-family: Arial, Helvetica, sans-serif;"/></td> </tr> <tr> <td colspan="2" align="center"> <asp:Button id="btnSend" onclick="btnSend_Click" runat="server" text="傳送郵件"/> <asp:label id="Message" runat="Server"/> </td> </tr> </table> </Fieldset> </td> </tr> </table>
本篇文章發表於2002-02-19 00:00
|