📄 sendmail.aspx
字号:
<%@ Import Namespace="System.Web.Mail" %>
<HTML>
<HEAD>
<Title>自动发信服务</Title>
<Script Language="VB" Runat="Server">
'此过程用来判断是否该显示 [删除] 钮
Sub ShowDelButtonOrNot()
If FileList.Items.Count = 0 Then
FileList.Visible = False
DelButton.Visible = False
Else
FileList.Visible = True
DelButton.Visible = True
End If
End Sub
Sub Page_Load(sender As Object, e As Eventargs)
If Not IsPostBack Then ShowDelButtonOrNot()
End Sub
'此过程用来显示 AddFilePanel Panel 的内容，AddFilePanel 可以用来输入附件的位置
Sub ShowAddFilePanel(sender As Object, e As ImageClickEventArgs)
AddFilePanel.Visible = True
FileName.Text = Nothing
End Sub
'此过程用来添加附件
Sub AddAttachFile(sender As Object, e As ImageClickEventArgs)
FileList.Items.Add(FileName.Text)
AddFilePanel.Visible = False
ShowDelButtonOrNot()
End Sub
'此过程用来取消添加附件
Sub Cancel(sender As Object, e As ImageClickEventArgs)
AddFilePanel.Visible = False
End Sub
'此过程用来删除附件
Sub DelAttachFile(sender As Object, e As ImageClickEventArgs)
FileList.Items.RemoveAt(FileList.SelectedIndex)
ShowDelButtonOrNot()
End Sub
'此过程用来发送邮件
Sub Send(sender As Object, e As ImageClickEventArgs)
Dim objMail As New MailMessage()
'指定邮件发件人及收件人
objMail.From = FromWho.Text & "<" & FromMail.Text & ">"
objMail.To = ToWho.Text & "<" & ToMail.Text & ">"
'指定邮件格式
Select Case BodyFormat.SelectedITem.Text
Case "Html"
objMail.BodyFormat = MailFormat.Html
Case "Text"
objMail.BodyFormat = MailFormat.Text
End Select
'指定邮件的编码方式
Select Case BodyEncoding.SelectedITem.Text
Case "ASCII"
objMail.BodyEncoding = Encoding.ASCII
Case "Unicode"
objMail.BodyEncoding = Encoding.Unicode
Case "UTF-7"
objMail.BodyEncoding = Encoding.UTF7
Case "UTF-8"
objMail.BodyEncoding = Encoding.UTF8
End Select
objMail.Subject = Subject.Text '指定邮件主题
objMail.Body = Content.Text '指定邮件内容
'用来指定附件
If FileList.Items.Count > 0 Then
Dim I As Byte, AttachFile As MailAttachment
For I = 0 To FileList.Items.Count -1
AttachFile = New MailAttachment(FileList.Items(I).Text)
objMail.Attachments.Add(AttachFile)
Next
End If
'使用 SmtpMail 类来发送邮件
SmtpMail.SmtpServer = "seed.net.tw" '指定 SMTP 服务器的 IP 地址
SmtpMail.Send(objMail)
End Sub
</Script>
</HEAD>
<Body>
<Center><Img Src="image/88.jpg"></Center>
<Form Runat="Server" ID="Form1">
<Table Width="795" Align="center" Cellspacing="0" Cellpadding="3" height="586" border="1">
<Tr BgColor="#ffffa1">
<Td Width="17%">发件人</Td>
<Td Width="25%">
<Asp:TextBox Runat="Server" Id="FromWho" Columns="7" Width="160px" Height="27px" />
</Td>
<Td Colspan="2" Width="440">
电子邮件信箱
<Asp:TextBox Runat="Server" Id="FromMail" Columns="20" Width="256px" Height="27px" />
</Td>
</Tr>
<Tr BgColor="#fffff0">
<Td>收件人</Td>
<Td><Asp:TextBox Runat="Server" Id="ToWho" Columns="7" Width="160px" Height="27px">三峡点播系统</Asp:TextBox></Td>
<Td Colspan="2" width="488">
电子邮件信箱
<Asp:TextBox Runat="Server" Id="ToMail" Columns="20" Width="256px" Height="27px">sanxiavod@sina.com</Asp:TextBox>
</Td>
</Tr>
<Tr BgColor="#ffffa1">
<Td>邮件格式
</Td>
<Td>
<Asp:RadioButtonList Runat="Server" Id="BodyFormat" RepeatColumns="2">
<Asp:ListItem Text="Html" Value="Html" Selected="True" />
<Asp:ListItem Text="Text" Value="Text" />
</Asp:RadioButtonList>
</Td>
<Td width="645"><FONT face="宋体">编码方式选择</FONT>
</Td>
<Td width="310">
<Asp:RadioButtonList Runat="Server" Id="BodyEncoding" RepeatColumns="4" Width="260px">
<asp:ListItem Value="ASCII">ASCII</asp:ListItem>
<asp:ListItem Value="Unicode">Unicode</asp:ListItem>
<asp:ListItem Value="UTF-7">UTF-7</asp:ListItem>
</Asp:RadioButtonList>
</Td>
</Tr>
<Tr BgColor="#ffffa1">
<Td height="43">邮件主题</Td>
<Td Colspan="3" width="657" height="43">
<Asp:TextBox Runat="Server" Id="Subject" Columns="40" Width="537px" Height="28px" />
</Td>
</Tr>
<Tr BgColor="#fffff0">
<Td height="290">邮件内容</Td>
<Td Colspan="3" width="657" height="290">
<Asp:TextBox Runat="Server" Id="Content" TextMode="Multiline" Columns="45" Rows="5" Width="560px"
Height="269px" />
</Td>
</Tr>
<Tr BgColor="#ffffa1">
<Td Width="18%" height="85">附件
</Td>
<Td Colspan="3" width="657" height="85">
<P>
<Asp:DropDownList Runat="Server" Id="FileList" Height="24px" Width="120px" />
<Asp:ImageButton Runat="Server" ImageUrl="image/add.gif" CausesValidation="False" OnClick="ShowAddFilePanel"
ID="Imagebutton1" Width="48px" />
<Asp:ImageButton Runat="Server" ImageUrl="image/del.gif" Id="DelButton" CausesValidation="False"
OnClick="DelAttachFile" Width="48px" /></P>
<Asp:Panel Runat="Server" Id="AddFilePanel" Visible="False" Width="442px">
文件路径：
<Asp:TextBox id="FileName" Runat="Server" Columns="30"></Asp:TextBox>
<Asp:ImageButton id="Imagebutton2" onclick="AddAttachFile" Runat="Server" Width="48px" CausesValidation="False"
ImageUrl="image/ok.gif"></Asp:ImageButton>
<Asp:ImageButton id="Imagebutton3" onclick="Cancel" Runat="Server" Width="48px" CausesValidation="False"
ImageUrl="image\cancel.gif"></Asp:ImageButton>
</Asp:Panel>
</Td>
</Tr>
</Table>
<Center><Br>
<Asp:ImageButton Runat="Server" ImageUrl="image/send.gif" OnClick="Send" ID="Imagebutton4" Height="25px" />
</Center>
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="FromWho" ErrorMessage="发件人" Display="None" ID="Requiredfieldvalidator1" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="FromMail" ErrorMessage="发件人电子邮件信箱" Display="None"
ID="Requiredfieldvalidator2" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="ToWho" ErrorMessage="收件人" Display="None" ID="Requiredfieldvalidator3" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="ToMail" ErrorMessage="收件人电子邮件信箱" Display="None"
ID="Requiredfieldvalidator4" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="Subject" ErrorMessage="主题" Display="None" ID="Requiredfieldvalidator5" />
<Asp:RequiredFieldValidator Runat="Server" ControlToValidate="Content" ErrorMessage="内容" Display="None" ID="Requiredfieldvalidator6" />
<Asp:ValidationSummary Runat="Server" DisplayMode="BulletList" ShowMessageBox="True" ShowSummary="False"
HeaderText="错误警告，以下字段不可空白：" ID="Validationsummary1" />
</Form>
</Body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -