<html>
<body bgcolor=#FFFFFF>
<title>TTASP.NET(link & Display Text Files)</title>
<%
u_file=trim(request.querystring("u_file"))
if u_file = "" then
获取目录信息的顶部层级
dir_info = request.servervariables("appl_physical_path")
dir_info = dir_info + right(request.servervariables("script_name"),(len(request.servervariables("script_name"))-1))
获取余下的后面的目录信息/
列出目录信息
g_input=split(dir_info,"/")
计算出splits的数量
num_inputted=ubound(g_input)-1
set directory=server.createobject("scripting.filesystemobject")
set allfiles=directory.getfolder(server.mappath("../"&g_input(num_inputted)))
列举在目录发现的所有文件
For each directoryfile in allFiles.files
移动来自视图的ASP页面
if (right(directoryfile.name,3)) <> "asp" then
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(directoryfile.name))
read_text = act.readline
act.close
%>
<a href=<%
写出页面的名称
response.write request.servervariables("script_name") %>?u_file=<%
写出文档名
response.write server.urlencode(directoryfile.name) %>><%
写出文档的第一行
response.write server.htmlencode(read_text) %></a><br>
<%
最后检查除了ASP的任何页面
end if
最后为了下个循环而列举出文档
next
最后检查查询字符输入
else
set fso = createobject("scripting.filesystemobject")
如果文档存在查询字符可以检查
（这是来避免在地址栏里面用户输入导致的错误）
if fso.FileExists (server.mappath(u_file)) then
打开文件并读出
set act = fso.opentextfile(server.mappath(u_file))
read_text = act.readall
act.close
写入浏览器文档的内容
Response.Write "<pre>" & server.htmlencode(read_text) & "</pre>"
如果查询字符的文档不存在
显示和错误的额外信息
else
%>
There was a problem displaying the requested item<br>
Please go <a href=<%= request.servervariables("script_name")%>>back</a> and select again<%
最后检查下文档的存在性
end if
最后检查查询字符值
end if
%>
热门信息
阅读 (170)
1 独特的随机字母阅读 (146)
2 检查和设置IIS服务器正确的权限阅读 (142)
3 存在的文件阅读 (137)
4 随机图像阅读 (134)
5 ASP读取、解析JSON数据