<%@ Language=VBSCRIPT %> <%@ Page Language="VB" Debug="TRUE" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Net" %> <%@ Import Namespace="System.Web" %> <script runat="server"> Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Response.ContentType = “application/pdf” Response.BinaryWrite(PDFSaveToBuf(Server.MapPath("PDFTestForm.pdf"))) End Sub Private Function PDFSaveToBuf(ByVal PDFPath As String) As Byte() If IsValidUrl(PDFPath) Then 'Dim wrq As WebRequest = WebRequest.Create(PDFPath) 'Dim wrp As WebResponse = wrq.GetResponse() 'Dim reader As StreamReader = New StreamReader(wrp.GetResponseStream()) Dim client As New WebClient Return client.DownloadData(PDFPath) ElseIf File.Exists(PDFPath) Then Dim FS As New FileStream(PDFPath, FileMode.Open, FileAccess.Read, FileShare.Read) Dim input As Stream = FS Dim br As New BinaryReader(FS) Dim bytesRead As Byte() = br.ReadBytes(input.Length) Return bytesRead Else Return Nothing End If End Function Private Function IsValidUrl(ByVal url As String) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(url, "(http|ftp|https)://([\w-]+\.)+(/[\w- ./?%&=]*)?") End Function </script>
