源代码:
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") Response.Write(fs.GetBaseName("c:winntcursors3dgarro.cur")) Response.Write("<br />") Response.Write(fs.GetBaseName("c:winntcursors")) Response.Write("<br />") Response.Write(fs.GetBaseName("c:winnt")) set fs=nothing %></FONT> </body> </html>
运行结果：
<html> <body> <FONT COLOR=#ff0000><% Set fs=Server.CreateObject("Scripting.FileSystemObject") Response.Write(fs.GetBaseName("c:winntcursors3dgarro.cur")) Response.Write("<br />") Response.Write(fs.GetBaseName("c:winntcursors")) Response.Write("<br />") Response.Write(fs.GetBaseName("c:winnt")) set fs=nothing %></FONT> </body> </html>