|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段,极大地提高了开发的效果。在讨论ASP的安全性问题之前,让我们来看看ASP是怎么工作的。iis<!---将此文件存为folder_list.asp看看效果就晓得了加上权限就能够便利本人了,--->
<%
const_domain_name为域名最初不要加斜杠
constconst_domain_name="http://localhost"
%>
<style>
b,img,a{font-size:9pt;line-height:150%;text-decoration:none;color:#0000cc;}
span{font-size:12pt;}
</style>
<%
------------------------------------------------显现以后目次下的子目次和文件
sublist
Dimfso,f,f1,fc,s
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(server.MapPath("."))
setfs=f.SubFolders
Setfc=f.Files
ForEachfssinfs
dimfolder_name
folder_name=fss.name
%>
<ahref="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><spanstyle="font-family:wingdings">0</span><%=folder_name%></a><br>
<%
Next
%>
<%
ForEachf1infc
dimfilename
filename=f1.name
%>
<ahref="<%=p2v_path(f1)%>"><spanstyle="font-family:wingdings2">/</span><%=filename%></a><br>
<%
Next
setfso=nothing
endsub
%>
<%
------------------------------------------------显现指定路径下的目次和文件
sublist_cur
Dimfso,f,f1,fc,s
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(request("cur_path"))
setfs=f.SubFolders
Setfc=f.Files
ForEachfssinfs
dimfolder_name
folder_name=fss.name
%>
<ahref="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><spanstyle="font-family:wingdings">0</span><%=folder_name%></a><br>
<%
Next
%>
<%
ForEachf1infc
dimfilename
filename=f1.name
%>
<ahref="<%=p2v_path(f1)%>"><spanstyle="font-family:wingdings2">/</span><%=filename%></a><br>
<%
Next
setfso=nothing
endsub
%>
<%
------------------------------------------------显现下级目次的子目次和子文件
sublist_parent
onerrorresumenext
Dimfso,f,f1,fc,s
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.GetFolder(display_cur_path)
setfs=f.SubFolders
Setfc=f.Files
ForEachfssinfs
dimfolder_name
folder_name=fss.name
%>
<ahref="folder_list.asp?act=list_cur&cur_path=<%=fss%>"><spanstyle="font-family:wingdings">0</span><%=folder_name%></a><br>
<%
Next
%>
<%
ForEachf1infc
dimfilename
filename=f1.name
%>
<ahref="<%=p2v_path(f1)%>"><spanstyle="font-family:wingdings2">/</span><%=filename%></a><br>
<%
Next
setfso=nothing
onerrorgoto0
endsub
---------------------------------------------失掉下级目次的路径
functionget_parent_folder()
onerrorresumenext
&nbs</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|