按钮单击上的经典ASP更新仅在IE中工作而不在其他浏览器中工作

Question

我正在使用经典ASP应用程序，我有从sql数据库填充的html表，html表在其中一个单元格中有复选框，在复选框上单击我打开一个弹出窗口，我在做一些更新，提交后，窗口获取自动关闭，并使用更新的值刷新上一页（此处复选框将替换为更新的值）。与IE一起正常工作但不与其他浏览器一起更新。

为了测试弹出窗口，我评论了javascript窗口关闭，发现对于数据库中的IE数据更新，但在其他浏览器中它什么也没做。可能是ADODB设置的问题。我正在更新的数据是当前日期，一旦它存储在数据库中，前一页就会获得当前日期而不是复选框。

请帮助，我是经典asp的新手。更新：我打印了查询，在IE上它正确打印但在Chrome中它正在打印第二个参数，右边有一些空白。示例：在IE'SHP'中但在Chrome'SHP'中

 <!-- language: lang-js -->

        function CloseWindow() 
        {
                var trackerreport = document.getElementById("trackerreport").innerText;
                var reporttype = document.getElementById("reporttype").innerText;
                var report = reporttype.trim();
                document.getElementById("Hidden1").value = trackerreport;
                document.getElementById("Hidden2").value = reporttype;      

             switch (report) 
             {
            case "SHP": 
                 document.frmDtls.hfrom.value = 'DelSHP' ;
                 break;
            case "WHS":
                document.frmDtls.hfrom.value = 'DelWHS' ;
                break;
            default:
                alert("None");
                break;
            }     
               document.frmDtls.method = "post" ;
               document.frmDtls.action = "PRDB_UPDATE_BATCH_ORDER_PROCESSING_TRACKER_REPORT_SEGMENT_TIMESTAMP.asp" ;
               document.frmDtls.submit();
               window.close();
               window.opener.location.reload();
        }



    <!-- language: lang-vb -->
        <div align="center">
        <p align="center">
        <input type="button" style="background:yellow;color:black;height:25px; width:100px" value="Confirm" onclick="javascript: return CloseWindow();"> 
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <!--<input type="submit" style="background:yellow;color:black;height:25px; width:100px" value="Confirm" >  -->
        <input type="button" style="background:yellow;color:black;height:25px; width:100px" value="Cancel" onclick="javascript: return CancelWindow();">
        </p>
        </div>



        <%

            Set objCommand = Server.CreateObject ("ADODB.Command")  
            Set objRec = Server.CreateObject ("ADODB.Recordset")
            objCommand.ActiveConnection = strConnect

            Dim sConn
            Dim tracker
            Dim reporttype
            Dim trackernew

         If Request("hfrom") = "DelSHP" Then

                Set sConn = Server.CreateObject ("ADODB.Connection")
                sConn.Open strConnect

                tracker = Trim(Request("Hidden1"))
                trackernew = CInt(tracker)
                reporttype = Trim(Request("Hidden2"))
                username = Trim(Request("Hidden3"))
                objCommand.CommandText = "EXEC usp_UPDATE_BATCH_ORDER_PROCESSING_TRACKER_REPORT_SEGMENT '"&trackernew&"','"&reporttype&"','"&username&"'; "
                Set objRecord = objCommand.Execute
                sConn.Close
                Set objRecord = Nothing
                Set sConn = Nothing

        End If

        If Request("hfrom") = "DelWHS" Then

                Set sConn = Server.CreateObject ("ADODB.Connection")
                sConn.Open strConnect

                tracker = Trim(Request("Hidden1"))
                trackernew = CInt(tracker)
                reporttype = Trim(Request("Hidden2"))
                username = Trim(Request("Hidden3"))
                objCommand.CommandText = "EXEC usp_UPDATE_BATCH_ORDER_PROCESSING_TRACKER_REPORT_SEGMENT '"&trackernew&"','"&reporttype&"','"&username&"'; "
                Set objRecord = objCommand.Execute
                sConn.Close
                Set objRecord = Nothing
                Set sConn = Nothing

        End If
        %>

    <!-- language: lang-html -->

        <div align="center"><center>
        <form id="frmDtls" name="frmDtls">
        <input type="hidden" name="hfrom" value = "">
        <input id="Hidden1" name="Hidden1" type="hidden" runat="server" />
        <input id="Hidden2" name="Hidden2" type="hidden" runat="server" />
        <input id="Hidden3" name="Hidden3" type="hidden" runat="server" value="<%= l_username%>" />

        <table border="2" width="50%">
         <tr>
            <td width="40%" align="center" bgcolor="#C0C0C0"><strong><font size="2">Tracker Report ID </font><small>:</small></strong></td>
            <td id="trackerreport" width="60%" align="center" bgcolor="#C0C0C0"><strong><%=L_trackerreportid %></strong>&nbsp;</td>
         </tr>
         <tr>
            <td width="40%" align="center" bgcolor="#C0C0C0"><strong><font size="2">Segment Status Event </font><small>:</small></strong></td>
            <td id="reporttype" width="60%" align="center" bgcolor="#C0C0C0"><strong><%=L_reporttype %></strong>&nbsp;</td>
         </tr>

        </table>
        </center></div>

Answer 1

我修复了这个问题，由于某些原因，javascript正在跳过更新查询并直接关闭Chrome上的窗口。在完成更新后，我现在正在调用javascript close方法。

sConn.Close
    Set objRecord = Nothing
    Set sConn = Nothing
    Response.Write("<script language=javascript>CancelWindow();</script>") // added this line