d.asp

这是用asp做的一个网上考试题库系统

<%
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
%>