<%@ 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>

---