9_6.asp

《asp网页设计》作者沈才梁源代码,共十章

<%
Dim  Path, fso
path=Request.ServerVariables("PATH_TRANSLATED")
'取出目前执行程序所在的实际路径及文件名称
Path = Mid(Path , 1, InstrRev(Path,"\")) '取出目前执行程序所在的实际路径(除去文件名)
filename = Path & "Test.txt"    	'设置要新建文件的实际存放路径以及文件名称
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (filename)	'新建文件
Response.Write("文件新建成功！路径是: <BR>" & filename & "<br>")
Set fso = Nothing  '释放创建的对象
%>