[ÇóÖú]µç×ÓÓʼþ¹¦Äܲ»ÄÜʵÏÖ£¬please help!!

ħÎè·ÉÑï

µç×ÓÓʼþµÄ·¢ËÍÎÊÌâ ÎÒ¶Ô£®£î£å£ô²»ÊǺÜÊ죬ÕÕ×Ųο¼Êé°Ñ³ÌÐò´òÉÏÈ¥ÁË£¬ÊµÏÖ²»Á˹¦ÄÜ¡£¶ÔIISÖеÄSMTP½øÐÐÁ˼òµ¥µÄÉèÖã¬ÉèÖÃÁËSMTPÐéÄâ·þÎñÆ÷¡£´úÂëÈçÏ£º Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim mail As MailMessage = New MailMessage mail.To = mailTo.Text mail.From = mailFrom.Text mail.Subject = mailSubject.Text mail.Body = mailBody.Text If Format.SelectedItem.Text = "´¿Îı¾¸ñʽ" Then mail.BodyFormat = MailFormat.Text Else mail.BodyFormat = MailFormat.Html End If Dim file As HttpPostedFile = FileUp.postedFile If file.ContentLength <> 0 Then Dim FileSplit() As String = Split(file.FileName, "\") Dim FileName As String = FileSplit(FileSplit.Length - 1) file.SaveAs(Server.MapPath(FileName)) Dim attach As New MailAttachment(Server.MapPath(FileName)) mail.Attachments.Add(attach) End If
On Error Resume Next SmtpMail.SmtpServer = "msa.hinet.net" ÕâµãÎÒ²»¶®ÊÇʲôÒâ˼£¬Çë²»Áߴͽ̣¡£¡ SmtpMail.Send(mail)
If Err.Number Then Label1.Text = Err.Description Else Label1.Text = "ÓʼþÒÑ·¢³ö£¡" End If End Sub End Class ¶àл¶àл£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡