aspx代码修改(完成后追加50分！)

原来的整页代码如下
<%@ Control Language="VB" Inherits="WanerSoft.Provider.BaseControl" AutoEventWireup="false" EnableViewState="false"%>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="WanerSoft" %>
<%@ Import Namespace="WanerSoft.Common" %>
<%@ Import Namespace="WanerSoft.Provider" %>
<%@ Import Namespace="WanerSoft.Provider.Validate" %>
<%@ Import Namespace="WanerSoft.Model" %>
<%@ Import Namespace="WanerSoft.Data.Factory" %>
<%@ Register TagPrefix="Ws" TagName="Header" Src="../Common/Header.ascx" %>
<script runat="server">
Private M As New Ws_BookList
Private GuestCan As Boolean = true '控制是否登陆才可下载
Private FileUrl As String
Protected Overrides Sub CreateChildControls()
Response.Buffer = False