Question

我很感激这个问题的帮助，这个问题耗费了很多时间。我有这段代码：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load

    Label1.Text = "924 695 302"
    Label2.Text = "690 142 449"

    Dim ipvisitante = Request.ServerVariables("remote_addr")

    Dim hoje = DateTime.Now

    Dim informacao = ipvisitante & " --- " & hoje

    'Send e-mail

    Dim strFrom = "fernandopessoa@fpessoa.net"  ''IMPORTANT: This must be same as your smtp authentication address.
    Dim strTo = "francopessoa.espana@hotmail.com"
    Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
    MailMsg.BodyEncoding = Encoding.Default
    MailMsg.Subject = "This is a test"
    MailMsg.Body = "This is a sample message using SMTP authentication"
    MailMsg.Priority = MailPriority.High
    MailMsg.IsBodyHtml = True
    'Smtpclient to send the mail message 

    Dim SmtpMail As New SmtpClient
    Dim basicAuthenticationInfo As New Net.NetworkCredential("fernandopessoa@fpessoa.net", "---------")

    ''IMPORANT:  Your smtp login email MUST be same as your FROM address.

    SmtpMail.Host = "mail.fpessoa.net"
    SmtpMail.UseDefaultCredentials = False
    SmtpMail.Credentials = basicAuthenticationInfo


    MsgBox("O ficheiro existe", MsgBoxStyle.Information, "SIM")



    'Write to txt File

    FileOpen(1, "visitas.txt", OpenMode.Append)
    WriteLine(1, informacao)
    FileClose()


End Sub

现在，当页面加载时，文本会在标签中出现。令人惊讶的是，它不会执行其余代码，显示Msgbox，写入.txt文件并发送电子邮件。

有人能给我一些关于我的代码出错的线索吗？

提前致谢。

Answer 1

代码执行...它在 Web服务器上运行。它在客户端的Web浏览器中运行不，永远不会。

这解释了MsBox（）和文件，虽然Web服务器也可能挂起等待有人在MsgBox上单击“Okay”，没有人会看到。对于电子邮件，您永远不会致电SmtpMail.Send(MailMsg)

当我在这里时，该文件代码使用的是古董api。

听起来你需要快速了解这一切是如何运作的，所以这是一步一步发生的事情：

用户点击指向您网页的链接或在地址栏中输入您的网址。
浏览器向您的服务器发送 HTTP请求。
您的服务器收到请求，在工作线程中创建页面类的新实例。
代码在您的网页类中为ASP.Net Page Lifecycle。
ASP.Net运行时使用您的页面类实例呈现 HTTP响应（通常在html中）并将其发送到浏览器。
您的网页类实例已被销毁。
浏览器接收响应，解析新的文档对象模型（DOM），并将该DOM呈现给显示器。
用户查看并与您的网页互动，从而进行回复。
转到第2步，在到达第3步时特别注意“新实例”一词。

在vb.net aspx页面中加载时执行代码

1 个答案: