test.asp

来自「软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,」· ASP 代码 · 共 20 行

<%
BasePath=Request.ServerVariables("PATH_INFO")
EachBasePath=Split(BasePath,"/")
BasePath=Replace(BasePath,EachBasePath(Ubound(EachBasePath)),"")'识别当前站点目录
Db="uploadfile"
response.write "Db=" & Db
response.write "<P>Server.MapPath(Db)=<a href=" & Server.MapPath(Db)& ">" & Server.MapPath(Db) & "</a>"
Server.ScriptTimeout=9999999
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not objFSO.FolderExists(Server.MapPath(Db)) Then 
	response.write "<P>(" & Server.MapPath(Db) & ")不存在,"	
	objFSO.CreateFolder Server.MapPath(Db)
	If Not Err then response.write "成功创建！" else response.write "创建失败！<br>" & Err.Description	
Else
	response.write "<P>(" & Server.MapPath(Db) & ")存在！"
End If
set ObjFSO=nothing
Err.Clear
%>