d.asp

来自「这是用asp做的一个网上考试题库系统」· ASP 代码 · 共 8 行

<%
Path=left(Request.ServerVariables("PATH_TRANSLATED"),InStrRev(Request.ServerVariables("PATH_TRANSLATED"),"\",-1,1))
Path=Path & "Temp1\"
Set TempFileObject=Server.CreateObject("Scripting.FileSystemObject")
if TempFileObject.FolderExists(Path)=false then
	TempFileObject.CreateFolder(Path)
end if
%>