<% Dim id password2=RequestFormStr("password2") id=RequestQueryNum("id") If id=0 Then Response.Write "param error!" Else set rs=Server.CreateObject("ADODB.Recordset") sql="select * from file Where id="& id &"" rs.open sql,conn,1,3 If rs.eof Then Response.Write "没有找到您好想要下载的文件!" Else path=rs("path") password=rs("password") End If rs.close Set rs=Nothing If password<>"" Then If password2<>"" then If password=password2 Then If path<>"" Then Call downloadFile(path) Else Response.Write "文件不存在!" End If Else Call MessageBox("密码不正确！","") Response.End End If Else %>

此文件作者已经加密,请输入密码：

<% End If Else If path<>"" Then Call downloadFile(path) Else Response.Write "文件不存在!" End If End If End If %>