高分求教：软件下载的问题

actinia 2002-11-04 10:59:57
一show.asp重定向语句文件如后：

实际运行时却提示：

您没有权限查看该网页
您提供的证书没有权限查看该目录或网页。

----------------------------------------------------------

请尝试下列操作：

单击刷新按钮，并使用其他证书重试。
如果您确信应该能够查看该目录或网页，请与 Web 站点管理员联系，其电子邮件地址或电话号码请参阅 192.168.168.51 主页。
HTTP 401.3 - ACL 禁止访问资源
Internet 信息服务



附注： show.asp

<!--#include file="db/user.asp" -->
<%
if request("id")="" then
response.write "非法操作，请确认程序是否正常运行"
response.end
end if
if request("down")<>"" then
call down()
response.end
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM download where id="&request("id")
rs.OPEN sql, Conn,1,3
if rs.eof and rs.bof then
response.write "没有该软件"
response.end
end if
rs("count")=rs("count").value+1
rs.update
%>
<!--#include file="code.asp" --><body background=images/bg.gif>
<tr><center>
<table border="0" width="600" cellpadding="6" bgcolor="#000000" cellspacing="1" cellpadding="4">
<TR bgcolor=FFFFFF>
<td width="50%" align="right" colspan=4 background=images/lhbg.gif><center><%=rs("name")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">更新日期：</td>
<td width="500"><%=rs("time")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">程序类别：</td>
<td width="500"><%=rs("big")%>￤<%=rs("sort")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">文件大小：</td>
<td width="500"><%=rs("size")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">授权方式：</td>
<td width="500"><%=rs("mode")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">应用平台：</td>
<td width="500"><%=rs("roof")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">程序评分：</td>
<td width="500"><img src='./images/<%=rs("commend")%>' width=55 height=12></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">程序主页：</td>
<td width="500"><%if rs("homepage")<>"" then%>
<a href='<%=rs("homepage")%>' target=_blank><%=rs("homepage")%></td></tr>
<%else%>
Home Page
<%end if%>
</td>
<TR bgcolor=FFFFFF>
<td width="100" align="right">下载浏览：</td>
<td width="500"><%=rs("downcount")%>/<%=rs("count")%></td></tr>

<TR bgcolor=FFFFFF>
<td width="100" align="right">本地下载：</td>
<td width="500"><a href='show.asp?id=<%=rs("id")%>&down=1'><!--#include file="home.asp" -->/show.asp?id=<%=rs("id")%>&down=1</a>
</td></tr>

<%if rs("down2")<>"" then%>
<TR bgcolor=FFFFFF>
<td width="100" align="right">下载地址1：</td>
<td width="500"><a href='show.asp?id=<%=rs("id")%>&down=2'><!--#include file="home.asp" -->/show.asp?id=<%=rs("id")%>&down=2</a></td></tr>
<%end if%>

<%if rs("down3")<>"" then%>
<TR bgcolor=FFFFFF>
<td width="100" align="right">下载地址2：</td>
<td width="500"><a href='show.asp?id=<%=rs("id")%>&down=3'><!--#include file="home.asp" -->/show.asp?id=<%=rs("id")%>&down=3</a></td></tr>
<%end if%>

<%if rs("down4")<>"" then%>
<TR bgcolor=FFFFFFF>
<td width="100" align="right">下载地址3：</td>
<td width="500"><a href='show.asp?id=<%=rs("id")%>&down=4'><!--#include file="home.asp" -->/show.asp?id=<%=rs("id")%>&down=4</a></td></tr>
<%end if%>

<%if rs("down5")<>"" then%>
<TR bgcolor=FFFFFF>
<td width="100" align="right">下载地址4：</td>
<td width="500"><a href='show.asp?id=<%=rs("id")%>&down=5'><!--#include file="home.asp" -->/show.asp?id=<%=rs("id")%>&down=5</a></td></tr>
<%end if%>
<%if rs("demo")<>"" then%>

<TR bgcolor=FFFFFF>
<td width="100" align="right">演示地址：</td>
<td width="500"><a class=shadow1 href='<%=rs("demo")%>' target=_blank><%=rs("demo")%></a></td></tr>
<%else%>
<TR bgcolor=FFFFFF>
<td width="100" align="right">暂无演示：</td>
<td width="500"><a href='<!--#include file="home.asp" -->'><!--#include file="home.asp" --></a></td></tr>
<%end if%>
<TR bgcolor=FFFFFF>
<td width="100" align="right">软件简介：</td>
<td width="500"><%if rs("pic")<>"" then%></td></tr>
<td width="500"><a href='<%=rs("pic")%>' target=_blank><img src='./images/img.gif' title='点击查看图片' border=0></a></td></tr>
<%end if%>
<%=rs("show")%>
</td>
</tr>
</table>
<br>
<!--#include file="first.asp" -->
<!--#include file="counter.asp" -->
<hr size="1" width="98%">
<p align="center">
<!--#include file="goal.asp" -->
<%
sub down()
Set rdown = Server.CreateObject("ADODB.Recordset")
sqldown="SELECT * FROM download where id="&request("id")
rdown.OPEN sqldown, Conn,1,3
downl=request("down")
if downl>"5" then
response.write "没有该下载地址"
response.end
end if
if downl="1" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down1")%>'>
<%
rdown("downcount")=rdown("downcount").value+1
rdown.update
elseif downl="2" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down2")%>'>
<%
rdown("downcount")=rdown("downcount").value+1
rdown.update
elseif downl="3" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down3")%>'>
<%
rdown("downcount")=rdown("downcount").value+1
rdown.update
elseif downl="4" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down4")%>'>
<%
rdown("downcount")=rdown("downcount").value+1
rdown.update
elseif downl="5" then
%>
<META HTTP-EQUIV=REFRESH CONTENT='0;URL=<%=rdown("down5")%>'>
<%
rdown("downcount")=rdown("downcount").value+1
rdown.update
end if
rdown.close
set rdown=nothing
end sub
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
...全文
33 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
actinia 2003-02-20
  • 打赏
  • 举报
 回复
现在已经解决了！是IIS里面设置出现了点问题了！
caoshangfei 2002-11-17
  • 打赏
  • 举报
 回复
把iuser_你的计算机名这个帐号加进来试试
actinia 2002-11-17
  • 打赏
  • 举报
 回复
呵呵！谢了！我先试下看行不行！
luoruanti 2002-11-14
  • 打赏
  • 举报
 回复
脚本问题，用win 2000下的scripting manage试试测试一下
actinia 2002-11-05
  • 打赏
  • 举报
 回复
To wpmsoft(红旗下的蛋) :
这是在内部网站的一个分站点，主要用来作软件下载用的，这个站点已经允许匿名登陆了，但是还是会出现ACL权限问题，变更了许多的下载系统，最终都会出现如此现象，怀疑是IIS的设定问题，但就是不知道在IIS里面那个存储软件的文件夹要设定为什么属性，但据我所知，只要不上传的话，一般不用设定文件夹属性的。

To xjbx() :

Windows 2000 Advanced Server+IIS 5.0
xjbx 2002-11-05
  • 打赏
  • 举报
 回复
你是在什么平台下发布的？
wpmsoft 2002-11-05
  • 打赏
  • 举报
 回复
点击那个连接出现你所说的问题呀？
没有去试你的程序，但你可以检查一下是否有连接到一个外部网址（http或ftp)，这个地址可能是有权限要求的，如：不允许匿名用户登录。
2021年软考网络工程师精华套餐（基础精讲+真题讲解+专题突破））
课程目标： 帮助学员顺利通过软考网络工程师考试。 课程简介： 分章节分模块讲解重点技术，难点和考点，让学员学习知识的同时，快速学习考试技巧。... 2020年学员战绩，高分不断，最高分接近满分通过：
国外大佬出版了《软技能2：软件开发者职业生涯指南》，程序员都值得看看
4年前《软技能：代码之外的生存指南》得到了软件行业泰斗级人物Robert C. Martin和著名软件架构师Scott Hanselman作序推荐！一经推出便受到程序员的广泛关注，如今这本书已经成为程序员职场生涯必读经典之一。 今天...
国外大佬出版了《软技能2：软件开发者职业生涯指南，java面试常问知识点
聚焦于软件开发人员生活的方方面面且关注自身全方位发展的《软技能：代码之外的生存指南》，在豆瓣评分上也是获得8.0分的高分好评： 不过同时，John 注意到，《软技能：代码之外的生存指南》一书还是有些许缺憾的...
国外大佬出版了《软技能2》，程序员都值得看看！
聚焦于软件开发人员生活的方方面面且关注自身全方位发展的《软技能：代码之外的生存指南》，在豆瓣评分上也是获得8.0分的高分好评： 不过同时，John 注意到，《软技能：代码之外的生存指南》一书还是有些许缺憾的...
我在CSDN参与的3000个帖子
今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分... 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章