asp下载问题？

Question

<%@ Language=VBScript codepage=936  %>
<%  Option Explicit %>
<%
    '传入一个 path 地址, 注意<% %>前后不准有空格与回车
    Dim filePath, dataStream, BytesStream
    filePath = request.queryString("path")
    set BytesStream = server.createobject("ADODB.Stream")    With BytesStream
      .Open
      .Type = 2 
      .LoadFromFile filePath
      dataStream = .Readtext
      .Close
    End With    set BytesStream=nothing    Response.AddHeader "content-disposition","attachment; filename="+ Mid(filePath, InStrRev(filePath, "\")+1)
    Response.ContentType="application/octet-stream"
    Response.BinaryWrite dataStream
%>

Answer 1

加入此两句：
<%@ Language=VBScript codepage=936  %>
<%  Option Explicit %>
为什么页面不显示？取掉是可以下载的。