<html>
<body>

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
p=fs.GetDriveName("c:\windows\cursors\abc.cur")

Response.Write("驱动器名称是:" & p)

set fs=nothing
%>

</body>
</html>