gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\test.asp

    <%@ Language=VBScript %>
<%
	Set currentobj=GetObject("IIS://localhost/W3SVC/1/root")
	set newobj = currentobj.create("IIsWebVirtualDir","dccc")
 	newobj.Path="c:\"
	newobj.setinfo
	Response.Write newobj.name
	'Response.Write currentobj.name
	'currentobj.IIsWebVirtualDir
%>