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下的本地运行可以使用,发布后不可以使用!