无法使用样式表查看XML输入。请更正错误，然后单击“刷新”按钮，或稍后重试。

在文档的顶层无效。处理资源'_http：../ victoria / FW91 / BarrilesRandom / Escan ...时出错...

Mov NumeroParte Planta Sloc1 Sloc2 Descuento UoM ^

事情是我的本地网络的所有计算机都没有发生这个问题，我的意思是，我在某些计算机上没有问题地下载文件，但是在其他计算机上得到错误，我虽然可能是安装了Excel版本计算机（使用2007年和2010年），但我不确定，这是代码，希望你能帮助我。问候

%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" 

"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"

html xmlns="http://www.w3.org/1999/xhtml"

head

meta http-equiv="Content-Type" content="text/html; charset=utf-8"

titleDocumento sin título/title

/head

body

Dim Conexion,SQL

set Conexion = Server.CreateObject("ADODB.Connection")

Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & 

Server.MapPath("/database/Transferencias.mdb")

set rs = Conexion.execute("SELECT Mov,NumeroParte,Planta,Sloc1,Sloc2,Descuento,UoM FROM Transferencia")

    if rs.EOF then
        Response.Write("<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>")
        Response.Write("alert(""NO se ha escanneado ningun NP."");")
        Response.Write("</SCRIPT>")
        Response.Write("Ingrese datos al sistema")
    else
        Archivo = "Escanner.xls"
        PathXLS = Server.MapPath(Archivo)
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
        Fila = "Mov NumeroParte Planta  Sloc1   Sloc2   Descuento   UoM"
        Arch_Excel.writeline Fila

        'Inserta los datos del RecordSet en el Archivo de Excel
        Do while Not rs.EOF
            Fila = ""
            For each x in rs.fields
                Fila = Fila & x.value & chr(9)
            Next
            Arch_Excel.writeline Fila
            rs.MoveNext
        Loop

        Arch_Excel.Close
        Set Arch_Excel = Nothing
        Set fso = Nothing
        Response.Write("<table><a href="&Archivo&"><img border=0 width=""70"" height=""70"" src=""img\excel.jpg""></a>")
    end if
    SQL= "DELETE * FROM Transferencia"
    Conexion.Execute(SQL)
    SQL = "UPDATE Contador SET Contador = 0"
    Conexion.Execute(SQL)
    rs.Close
    Set rs = Nothing
    Conexion.Close
    Set Conexion = Nothing
%>

/body

/html

Answer 1

尝试以表格格式写入文件，而不是以制表符分隔。

Archivo = "Escanner.xls"
    PathXLS = Server.MapPath(Archivo)
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
    Fila = "<table><tr><td>Mov</td><td>NumeroParte</td><td>Planta</td><td>Sloc1</td><td>Sloc2</td><td>Descuento</td><td>UoM</td></tr>"
    Arch_Excel.writeline Fila

'Inserta los datos del RecordSet en el Archivo de Excel
Do while Not rs.EOF
    Fila = "<tr>"
    For each x in rs.fields
        Fila = Fila &"<td>" & x.value & "</td>"
    Next
    Fila = Fila &"</tr>"
    Arch_Excel.writeline Fila
    rs.MoveNext
Loop
Arch_Excel.writeline "</table>"
Arch_Excel.Close
Set Arch_Excel = Nothing
Set fso = Nothing
Response.Write("<table><a href="&Archivo&"><img border=0 width=""70"" height=""70"" src=""img\excel.jpg""></a>")

无法显示XML页面无法使用样式表查看XML输入。使用ASP

无法使用样式表查看XML输入。请更正错误，然后单击“刷新”按钮，或稍后重试。

1 个答案: