ASP.NET

string url = "../../Personal/View/Default.aspx";
              string jScriptValidator = "<script>";
               jScriptValidator += "window.open('" + url + "','_self')";

               jScriptValidator += "  </script>";
               page.ClientScript.RegisterStartupScript(typeof(Page), "regJSval", jScriptValidator);

Member 9169887 wrote:

I think it might because of the server doesn't have excel library??

Member 9169887 wrote:

I have no idea how to fix this.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Dim excelFile As byte() = {input}
ByVal excelFile() As Byte

Dim arr As New ArrayList()
arr.Add("AAA")
arr.Add("BBB")
arr.Add("CCC")

Dim byteArray As Byte() = New Byte(2) {}
For i As Integer = 0 To arr.Count - 1
    byteArray = DirectCast(arr(i), Byte())
Next
'Read byteArray to stream
Dim stream As New System.IO.MemoryStream(byteArray)

Private Function getDimensions(ByVal stream As Stream) As Rectangle

        Dim inputStream As Stream = Nothing
        Dim signature() As Byte = New Byte(8) {}
        Dim rect() As Byte = New Byte(8) {}
        stream.Read(signature, 0, 8)

        If (System.Text.Encoding.ASCII.GetString(signature, 0, 3) = "CWS") Then
            inputStream = New InflaterInputStream(stream)
        Else
            inputStream = stream
        End If

        inputStream.Read(rect, 0, 8)
        Dim nbits As Integer = rect(0) >> 3
        rect(0) = Convert.ToByte(rect(0) And &H7)
        Dim bits As String = ByteArrayToBitString(rect)
        bits = bits.Remove(0, 5)
        Dim dims() As Integer = New Integer(4) {}

        For i As Integer = 0 To 3
            Dim dest() As Char = New Char(nbits) {}
            bits.CopyTo(0, dest, 0, If(bits.Length > nbits, nbits, bits.Length))
            bits = bits.Remove(0, If(bits.Length > nbits, nbits, bits.Length))
            dims(i) = BitStringToInteger(New String(dest)) / 20
        Next

        Return New Rectangle(0, 0, dims(1) - dims(0), dims(3) - dims(2))

    End Function
Private Function BitStringToInteger(ByVal bits As String) As Integer

        Dim converted As Integer = 0

        For i As Integer = 0 To bits.Length - 2
            converted = (converted << 1) + If(bits(i) = "1", 1, 0)
        Next

        Return converted

    End Function
    Private Function ByteArrayToBitString(ByVal byteArray() As Byte) As String

        Dim newByteArray() As Byte = New Byte(byteArray.Length) {}

        Array.Copy(byteArray, newByteArray, byteArray.Length)
        Dim converted As String = ""

        For i As Integer = 0 To newByteArray.Length - 1
            For j As Integer = 0 To 7
                converted += If((newByteArray(i) And &H80) > 0, "1", "0")
                newByteArray(i) <<= 1
            Next
        Next

        Return converted

    End Function