请帮我一下
我使用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 = "test@test.org"
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
事件处理程序很可能多次附加到按钮的单击事件。
也许你在aspx文件中做一次，在(OnInit?)文件后面的代码中做一次。