您现在的位置：首页 >> 前端 >> 内容

web 打开pdf文件

时间：2013/11/8 13:52:08 点击：

　　核心提示：aspx页面代码%@ Page Language=vb AutoEventWireup=false CodeBehind=4444_pdfLoad.aspx.vb Inherits=WebUI._pd...

aspx页面代码

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="4444_pdfLoad.aspx.vb" Inherits="WebUI._pdfLoad" %>  
  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
  
<html xmlns="https://www.w3.org/1999/xhtml" >  
<head runat="server">  
    <title>PDF文件</title>  
</head>  
<body>  
    <form id="form1" runat="server">  
    <p  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>  
    </p>  
    </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下的本地运行可以使用，发布后不可以使用！