有一段下载功能的代码,如何在DW中实现下载?如根目录有一文件1.rar?

来源:百度知道 编辑:UC知道 时间:2024/06/03 18:55:13
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<% Dim Stream

Dim Contents

Dim FileName

Dim FileExt

Const adTypeBinary = 1

FileName = Request.QueryString("FileName")

if FileName = "" Then

Response.Write "无效文件名."

Response.End<

把上面的代码命名为:download.asp
用 download.asp?filename=1.rar
就也可以下载1.rar了
前提是download.asp 与 1.rar 放在同级目录下,否则要指明1.rar的相对download.asp的相对路径

直接做一超连接指像那个文件就行了,IE编译不了的话,自然就提示你是否下载