web 打开pdf文件 - html/css语言栏目：html.css - 自学

2024/09/19 · admin

aspx页面代码

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="4444_pdfLoad.aspx.vb" Inherits="WebUI._pdfLoad" %>  
  
<!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 runat="server">  
    <title>PDF文件</title>  
</head>  
<body>  
    <form id="form1" runat="server">  
    <div  style ="overflow:auto ">  
        <object classid="clsid:CA8A9780-280D-11CF-A24D-444553540000" width="100%" height="100%" border="0" top="-10" name="WebBrowser">    
         <param name="toolbar" value="false" />   
         <param name="_Version" value="65539" />   
         <param name="_ExtentX" value="20108" />   
         <param name="_ExtentY" value="10866" />   
         <param name="_StockProps" value="0" />   
         <param name="SRC" value="<%=filename %>" />   
        </object>  
    </div>  
    </form>  
</body>  
</html>  
vb代码

Imports System.IO  
  
Partial Public Class _pdfLoad  
    Inherits System.Web.UI.Page  
  
    Public filename As String  
  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
  
        filename = "../../DownLoadFile/" + HttpUtility.UrlDecode(Request.QueryString("PDFFile"))  
  
        If File.Exists(filename) = False Then  
            Me.Page.ClientScript.RegisterStartupScript(Me.GetType, "msg", "<script language='javascript'>alert('文件不存在！');window.opener=null;window.close();</script>")  
            Exit Sub  
        End If  
  
    End Sub

End Class 注：此处的 filename必须使用相对路径，不可以使用server.mappath之类的绝对路径。如果使用的是绝对路径，则在xp下的本地运行可以使用，发布后不可以使用！