Vb.net VB脚本与chrome

我在修改用VB.NET编写的现有网站时遇到很多问题

有人能给我解释一下VB.NET-chrome关系的基本原理吗

我的具体问题是通过网站发送邮件，我没有问题添加相关代码，我只是觉得我需要在开始寻找bug之前了解更多

---

在这个网站上有一个选项，可以向一组人发送电子邮件。此选项适用于IE，但不适用于firefox和chrome。我基本上有一个表单标签，它包含一张表，表中的每个人的名字旁边都有一个复选按钮。单击“发送”时，有一个定义如下的函数

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    Dim sTo As String, sFrom As String, sSubject As String, sBody As String
    Dim sCc As String, sBcc As String
    Dim MyMail As MailMessage = New MailMessage

    sFrom = "Laboratory Mail system sent from " & Session.Contents("UserNameEng") & " <dbsystem@mscc.huji.ac.il>"
    sTo = Trim(Request.Form("EmailTo")) & txtTo.Text
    sCc = Trim(Request.Form("EmailCc")) & txtCc.Text
    sSubject = Trim(txtSubject.Text)
    sBody = Trim(txtBody.Text)
    sBody = sBody.Replace(vbCrLf, "<br />") 'new

    MyMail.Headers.Add("Reply-To", Session.Contents("UserEmail"))
    MyMail.From = sFrom
    MyMail.To = sTo
    MyMail.Subject = sSubject
    MyMail.BodyFormat = MailFormat.Html 'new
    'MyMail.Body = sBody
    Select Case optDirection.SelectedValue.ToString
        Case "BodyRtl"
            MyMail.Body = "<style> body {direction: rtl} </style>" & sBody
        Case "BodyLtr"
            MyMail.Body = "<style> body {direction: ltr} </style>" & sBody
    End Select
    ' MyMail.Body = "<style> body {direction: rtl} </style>" & sBody 'new
    ' MyMail.BodyEncoding = System.Text.Encoding.GetEncoding("iso-8859-8-i")

    MyMail.Cc = sCc

    If chkCopyForMe.Checked Then
        MyMail.Bcc = Session.Contents("UserEmail")
    End If

    'MyMail.BodyFormat = MailFormat.Text
    Select Case optPriority.SelectedValue.ToString
        Case "Normal"
            MyMail.Priority = MailPriority.Normal
        Case "High"
            MyMail.Priority = MailPriority.High
        Case "Low"
            MyMail.Priority = MailPriority.Low
    End Select

    If Trim(UploadFile.Value) <> vbNullString Then
        Dim myAttachment As New MailAttachment(GetAttachment(Trim(UploadFile.Value)))     '(Trim(UploadFile.Value)) 
        MyMail.Attachments.Add(myAttachment)
    End If

    SmtpMail.SmtpServer = "pluto.mscc.huji.ac.il"
    Try
        SmtpMail.Send(MyMail)
        Response.Redirect("SentMessage.aspx?m=1")
    Catch ex As Exception
        lblComment.Text = "Problem With Sending Mail<br />" & ex.Message
        'Response.Redirect("SentMessage.aspx?m=2")
    End Try
End Sub

Private子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
Dim sTo作为字符串，sFrom作为字符串，SSObject作为字符串，sBody作为字符串
尺寸sCc为字符串，sBcc为字符串
Dim MyMail As MailMessage=新建邮件
sFrom=“实验室邮件系统发送自”&Session.Contents（“UserNameEng”）&
sTo=Trim（Request.Form（“EmailTo”）&txtTo.Text
sCc=Trim（Request.Form（“EmailCc”））和txtCc.Text
sObject=Trim（txtSubject.Text）
sBody=Trim（txtBody.Text）
sBody=sBody.Replace（vbCrLf，“
”）新
MyMail.Headers.Add（“回复”，Session.Contents（“用户电子邮件”））
MyMail.From=sFrom
MyMail.To=sTo
MyMail.Subject=ssObject
MyMail.BodyFormat=MailFormat.Html“新建”
'MyMail.Body=sBody
选择Case optDirection.SelectedValue.ToString
案例“BodyRtl”
MyMail.Body=“Body{direction:rtl}”&sBody
案例“BodyLtr”
MyMail.Body=“Body{direction:ltr}”&sBody
结束选择
'MyMail.Body=“Body{direction:rtl}”&sBody'新建
'MyMail.BodyEncoding=System.Text.Encoding.GetEncoding（“iso-8859-8-i”）
MyMail.Cc=sCc
如果chkCopyForMe.已选中，则
MyMail.Bcc=Session.Contents（“UserEmail”）
如果结束
'MyMail.BodyFormat=MailFormat.Text
选择Case optPriority.SelectedValue.ToString
案例“正常”
MyMail.Priority=MailPriority.Normal
案例“高”
MyMail.Priority=MailPriority.High
案例“低”
MyMail.Priority=MailPriority.Low
结束选择
如果Trim（UploadFile.Value）vbNullString，则
将myAttachment设置为新邮件附件（GetAttachment（Trim（UploadFile.Value）））'（Trim（UploadFile.Value））
MyMail.Attachments.Add（myAttachment）
如果结束
SmtpMail.SmtpServer=“pluto.mscc.huji.ac.il”
尝试
SmtpMail.Send（MyMail）
Response.Redirect（“SentMessage.aspx？m=1”）
特例
lblComment.Text=“发送邮件时出现问题
”&ex.消息
'Response.Redirect（“SentMessage.aspx？m=2”）
结束尝试
端接头

---

假设它将邮件发送到选定的框中。在IE中，邮件到达，而在chrome中则没有。VB.NET是一种服务器端技术，它将HTML输出到浏览器

浏览器与此HTML交互，并可能向服务器发送响应（单击链接、发布表单等）-VB.NET代码可以解释这些内容并使用HTML进行响应

---

无论使用哪种浏览器（Chrome、IE、Firefox、Opera或任何其他浏览器），此代码的工作方式都是相同的。

此代码与您的问题无关。浏览器从未看到它，只有服务器看到它

你在.aspx文件中的某个地方犯了一个错误：IE正确地猜测了你真正想要的东西，而Chrome没有

---

Firefox会发生什么情况？

如何使用VBScript？客户端？服务器端？Windows脚本shell脚本？为了消除混淆：asp classic使用vbscript语言。asp.net不使用vbscript。它使用vb.net。此外，internet explorer支持浏览器中的vbscript变体，您可以使用它代替javascript，但其他浏览器不支持。您发布的代码只是一个事件处理程序。当您调试时，这在两个浏览器中都会出现吗？你有例外吗？错误？我认为它在chrome和firefox中不会受到影响。没有例外，也没有错误。在网站上有一个选项，可以发送电子邮件给名单上的人。此选项适用于IE，但不适用于firefox和chrome。我基本上有一个表单标签，它包含一张表，表中的每个人的名字旁边都有一个复选按钮。单击“发送”时，有一个定义如下的函数\n Private Sub Button1\u click（ByVal sender As System.Object，ByVal e As System.EventArgs）处理按钮1。click \n将邮件发送到所选框。在IE中，邮件到达，而在chrome中则没有。@ZoharMeridor-不要在评论中发布代码。编辑您的问题并添加代码。fire fox也不起作用。。我会再看看代码。