1
請幫我一下發送兩個郵件的背靠背使用sendmail函數....單擊一下?
我正在使用sendMail函數發送郵件。點擊按鈕,我正在發送郵件。但相反,它是發送兩個郵件的背靠背一次點擊,我沒有找到任何理由,所以請幫助,如果有人知道這個問題,任何幫助表示讚賞,謝謝....
以下是我的VB代碼Sendmail的....
Protected Sub btnsend_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles btnsend.Click
'Response.Write("<Script> alert('" & Request.QueryString("id").ToString() & "');</Script>")
Dim str_smtpserver As String = DotNetNuke.Entities.Host.HostSettings.GetHostSetting("SMTPServer")
Dim str_auth As String = DotNetNuke.Entities.Host.HostSettings.GetHostSetting("SMTPAuthentication")
Dim str_uname As String = DotNetNuke.Entities.Host.HostSettings.GetHostSetting("SMTPUsername")
Dim str_pass As String = DotNetNuke.Entities.Host.HostSettings.GetHostSetting("SMTPPassword")
Dim str_sub As String = "Message "
Dim tobody As String
Dim value As String = Request.QueryString("id").ToString()
Dim ds_staff = New DataSet()
ds_staff = DotNetNuke.Data.DataProvider.Instance().ExecuteDataSet("GetToEmailFromDB", value)
tobody = "<table border='1px'>"
tobody += "<tr><td style='width:90px;'>Name :</td><td>" & txtname.Text & "</td></tr>"
tobody += "<tr><td style='width:90px;'>Email :</td><td>" & txtemail.Text & "</td></tr>"
tobody += "<tr><td style='width:120px;'>Message :</td><td>" & txtmessage.Text & "</td></tr>"
tobody += "</table>"
fromid = "[email protected]"
Dim rVal As String = DotNetNuke.Services.Mail.Mail.SendMail(fromid, ds_staff.Tables(0).Rows(0)("email").ToString(), "", "", DotNetNuke.Services.Mail.MailPriority.Normal, str_sub, DotNetNuke.Services.Mail.MailFormat.Html, System.Text.Encoding.UTF8, tobody, "", str_smtpserver, str_auth, str_uname, str_pass)
If (rVal = "") Then
Page.ClientScript.RegisterStartupScript(Page.GetType(), "err_msg", "alert('Your message has been sent.');", True)
Else
Page.ClientScript.RegisterStartupScript(Page.GetType(), "err_msg", "alert('Invalid Email ID.');", True)
End If
Response.Redirect("home.aspx", True)
End Sub
你有沒有看過[按鈕點擊事件處理程序發射兩次](http://forums.asp.net/t/1056418.aspx/1)? –