DataGrid 中的 ButtonField 调用 Vb.net 作为 Javascript...用于流式 PDF？

Question

我昨晚才注意到，

无论如何，让我们来看看这个有趣的案例。 我在 DataGrid 中有一个 ButtonField，如果你在这里注意到它...... 该 ButtonField 的接口看起来像一个 LINK。 但如果我们将鼠标悬停在它上面，它就会显示为 Javascript 的调用。

这是图像屏幕截图 是

的，这是第一种情况。 这是一个 javascript 的调用。 我最近没注意到这件事。 （呵呵）。

然后，如果我们点击它...它将调用createPDF()函数。幕后功能（我使用的是 VB.net）是执行这些代码；

Protected Sub createPDF()

    Dim document As New Document()
    Dim mem As LengthFixingStream = New LengthFixingStream()

    ' instantiate a iTextSharp.text.pdf.Document
    'Dim mem As New MemoryStream()
    ' PDF data will be written here
    PdfWriter.GetInstance(document, mem)
    ' tie a PdfWriter instance to the stream
    document.Open()

    Dim titleFont = FontFactory.GetFont("Arial", 18, Font.BOLD)
    document.Add(New Paragraph("Northwind Traders Receipt", titleFont))

    document.Close()
    ' automatically closes the attached MemoryStream
    Dim docData As Byte() = mem.GetBuffer()
    ' get the generated PDF as raw data
    ' write the document data to response stream and set appropriate headers:
    Response.AppendHeader("Content-Disposition", "attachment; filename=testdoc.pdf")
    Response.ContentType = "application/pdf"
    Response.BinaryWrite(docData)
    Response.[End]()

End Sub

但不知何故......这当然不会将 PDF 传送到浏览器中。 因为它是由 Javascript 调用的，也不是像超链接那样直接调用（通常）。 因此，我想知道我们能否让 ASP.net 调用新窗口， 然后将 createPDF() 结果重定向到其中？

如果我错了请纠正我...

Answer 1

这只是一些模型，以便您了解想法。我没有测试过这个。基本上，您必须将上述代码放在一个新页面中...说“receipt.aspx”并在加载事件上执行它...您将需要设置一个 id 参数...如果数据是从db 生成pdf。

在按钮上单击添加以下内容

Dim sb As New System.Text.StringBuilder()
sb.Append("<script language='javascript'>")
sb.Append("window.open('receipt.aspx.htm?id=123'', 'Receipt',")
sb.Append("'width=800, height=800, menubar=yes, resizable=no');<")
sb.Append("/script>")

Dim t As Type = Me.GetType()
If Not ClientScript.IsStartUpScriptRegistered(t, "PopupScript") Then
    ClientScript.RegisterStartUpScript(t, "PopupScript", sb.ToString())
End If

注意我传递给receipt.aspx 的“id=123”查询字符串值吗？

然后您可以在receipt.aspx 页面中调用它，如下所示

Dim id as String = Request.QueryString("id")

CreatePDF(id)

...拍摄！刚刚意识到您正在使用网格...原理保持不变，只需连接 RowDataBound 事件上的按钮即可。

Protected Sub GridView_RowDataBound(sender As Object, e As GridViewRowEventArgs)
    If e.Row.RowType = DataControlRowType.DataRow Then
    Dim Id As String = DirectCast(e.Row.Cells(0).FindControl("quotationid"), Label).Text
    Dim myButton As New Button
    myButton = DirectCast(e.Row.Cells(4).FindControl("btnViewReceipt"), Button)
        myButton.Attributes.Add("OnClick", "window.open('receipt.aspx?id=" + id + "','Receipt','scrollbars=yes','width=800,height=800')")
    End If

End Sub