web 打开pdf文件

当前位置 : 首页 > 网页制作 > CSS > web 打开pdf文件

web 打开pdf文件

来源: 作者: 时间:2016-01-28 09:27
aspx页面代码%@ Page Language=vb AutoEventWireup=false CodeBehind=4444_pdfLoad aspx vb Inherits=WebUI _pdfLoad % !DOCTYPE html PUBLIC - W3C DTD XHTML 1 0 Transition
x页面代码
 
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="4444_pdfLoad.aspx.vb" Inherits="WebUI._pdfLoad" %>  
  
<!DOCTYPE  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下的本地运行可以使用,发布后不可以使用!
Tag:
网友评论

<