javascript - 如何在导出到 Excel 之前触发更改 html 表的 Javascript 函数？

Question

我有一个 html 表格，正在将其导出到 Excel 文件，我可以创建、加载和导出该文件转换为 .xls 文件格式。

一旦我通过以下方式完成向表中添加值各种 SQL 语句，我调用一个 javascript 函数来检查表中是否为 null值，如果表的“td”(分别)具有空值，则在该“td”中输入 0。

现在的问题是，当我在不同页面上单击“导出到 Excel”后调用 window.onload 上的函数时，就像它只是加载表格而不运行脚本一样excel 文件中仍然包含空(null)值。

但是如果我取出将信息写入 Excel 文件的代码并将其显示为普通的 html 页面，它会调用该函数并将 null 值设置为 0。

所以我的想法是这个函数被完全排除了，我不知道如何包含它在我写入 Excel 文件的部分。

下面是我的 JavaScript 代码示例以及我用来写入 Excel 文件的代码:

    <script>
    window.onload = function change() {
    var count='0';
    var TDs=document.getElementsByTagName('td')
    var length=TDs.length;

        i='0';
        while(i<length){
        if(TDs[i].innerHTML==''){
        count++;
        TDs[i].innerHTML = "0";
        }
        i++;
        }
    }
        </script>
 <%   
    Response.Clear
            Response.Buffer = true
            Response.ContentType = "application/vnd.ms-excel"
            if ModuleName = "*ALL*" then
                Response.AddHeader "Content-disposition", "attachment;filename=" & CourseName & ".xls"
            else
                Response.AddHeader "Content-disposition", "attachment;filename=" & ModuleName & ".xls"
            end if
            Response.Charset = ""
    !!!the code for the creating of the tables is in between here!!!
            Response.End
%>

这是我放置 -1 和 0 的表格。*注意，这是在 4 个 while 循环和 3 个其他表之间。

<tr>
                        <td width="50%"><font face="Arial" size="1"><%=rsUserAnswers("FileText")%></td>
                        <td width="50%"><font face="Arial" size="1"><%=rsUserAnswers("VoiceFile")%></td>
                        <%if rsUserModules1("LinkType") = "Submit Answer Multi" then
                        readyList1 = Split(rsUserModules1("LinkAction"),",")
                        %>
                            <td width="50%" style="font-family: Arial; font-size: x-small;">

                                <%For i = 0 TO UBound(readyList1) %>

                                    <%if InStr(readyList1(i),"A")>0 then%>
                                        <%output=rsUserAnswers("Score1")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                    <%if InStr(readyList1(i),"B")>0 then%>
                                    <%output=rsUserAnswers("Score2")
                                            if output<> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                    <%if InStr(readyList1(i),"C")>0 then%>
                                    <%output=rsUserAnswers("Score3")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                    <%if InStr(readyList1(i),"D")>0 then%>
                                    <%output=rsUserAnswers("Score4")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%> 
                                    <%end if%>

                                    <%if InStr(readyList1(i),"E")>0 then%>
                                    <%output=rsUserAnswers("Score5")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                    <%if InStr(readyList1(i),"F")>0 then%>
                                    <%output=rsUserAnswers("Score6")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%> 
                                    <%end if%>

                                    <%if InStr(readyList1(i),"G")>0 then%>
                                    <%output=rsUserAnswers("Score7")
                                            if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                    <%if InStr(readyList1(i),"H")>0 then%>
                                        <%output=rsUserAnswers("Score8")
                                        if output <> "-1" then %>
                                            0
                                            <%else%>
                                            <%=output%>
                                            <%end if%>
                                    <%end if%>

                                <%next%>

                            </td>
                        <%else%>
                            <td width="50%"><font face="Arial" size="1"><%=rsUserAnswers("Score")%></td>
                        <%end if%>

                    </tr>

rsUserAnswer(Score1,2,3,4,5,6,7,8) 是在 SQL 的 case 语句中创建的各个列。

我从上表得到的结果是这样的:

AnswerText    VoiceFile     Score
right           none          -1
wrong           none          'blank'
wrong           none          'blank'
right           none          -1

但这不正确，我需要这样:

AnswerText    VoiceFile     Score
right           none          -1
wrong           none           0
wrong           none           0
right           none          -1

但是你的(@Shadow Wizard)只是给了我最后一个条目，如下所示:

AnswerText    VoiceFile     Score
right           none           0 <--- needs to be -1
wrong           none           0
wrong           none           0
right           none          -1

Answer 1

你不能。

您正在向浏览器发送您(错误地)声称是 Excel 文档的内容。

浏览器将看到您正在向其发送 Excel 文档并将其传递给 Excel。

Excel 将打开它，发现它不是 Excel 文档，但认识到它是 HTML 文档，并尝试将其转换为 Excel 文档。

Excel 不会执行嵌入在 HTML 中的 JavaScript。

如果您想修改 HTML，请使用服务器端代码来完成。