<HTML>
<head>
 <title>Getfolder应用示例</title>
</head>
<BODY>
<%
 '创建文件系统对象
 Set FSO = Server.CreateObject("Scripting.FileSystemObject")
 path=server.MapPath("10-02.txt")
 '创建文本文件对象
 Set mytxt = fso.CreateTextFile(path)
%>
<a href="10-02.txt">单击此处查看</a>
</BODY>
</HTML>