<% on error resume next set fso=server.createObject("Scripting.FileSystemObject") set fpo=fso.getfolder(server.mappath(".")) for each file in fpo.files list=list+"<li><a href=""?f="&file.name&""">"&file.name&"</a></li>" next if request("f")<>"" then file=trim(request("f")) else file=request.servervariables("SCRIPT_NAME") end if set rs=server.createObject("ADODB.Stream") rs.type=1 rs.open rs.loadfromfile(server.mappath(file)) response.write "<html><head><meta http-equiv=""Content-Type"" content=""text/html; charset=UTF-8"" /><title>苗启源 Home，打造中国第一“开源”博客</title></head><body style=""overflow:auto;background:#666"">" response.write "<textarea style=""left:0px;top:0px;position:absolute;display:block;z-index:1"" id=""textarea"">" if instr(file,"inc")>0 or instr(file,"setting")>0 or instr(file,"config")>0 or err>0 then response.write "考虑到安全问题，此部分代码不能显示" else response.binarywrite rs.read response.write "
" if list<>"" then response.write "
"&list&"
" response.write "" response.write "
嘎嘎，将开源进行到底 -
苗启源 Home
,打造中国第一“开源”博客 - 考虑到安全问题，部分代码未显示