问使用response在asp.net中创建excel文件时防止使用科学记数法

EN

    Response.Clear()
    Response.Buffer = True
    Response.AddHeader("content-disposition", "attachment;filename=test.csv")
    Response.Charset = ""
    Response.Cache.SetCacheability(HttpCacheability.NoCache)
    Response.ContentType = "application/vnd.xls"


    Try
        sqlconn.Open()

        Dim dr As SqlDataReader = sqlcmd.ExecuteReader()
        Dim sb As New StringBuilder()
        'Add Header

        For count As Integer = 0 To dr.FieldCount - 1
            If dr.GetName(count) IsNot Nothing Then
                sb.Append(dr.GetName(count))
            End If
            If count < dr.FieldCount - 1 Then
                sb.Append(",")
            End If
        Next
        Response.Write(sb.ToString() & vbLf)
        Response.Flush()
        'Append Data

        While dr.Read()
            sb = New StringBuilder()

            For col As Integer = 0 To dr.FieldCount - 2
                If Not dr.IsDBNull(col) Then
                    sb.Append(dr.GetValue(col).ToString().Replace(",", " "))
                End If
                sb.Append(",")
            Next
            If Not dr.IsDBNull(dr.FieldCount - 1) Then
                sb.Append(dr.GetValue(dr.FieldCount - 1).ToString().Replace(",", " "))
            End If
            Response.Write(sb.ToString() & vbLf)
            Response.Flush()
        End While
        dr.Dispose()
    Catch ex As Exception

    Finally

        sqlconn.Close()
    End Try
    Response.End()