dc.asp

FlashPicViewer电子相册 v2.6 繁体中文版

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!--#include file="user.asp" -->
<%
if ((session("flash_name")<>user_name) or (session("flash_pass")<>user_password)) then 
response.write "FPV by Yellowboy&Chipiano!"
else
%>
<%
function CreateDIR(byval LocalPath)
on error resume next
LocalPath = replace(LocalPath,"\","/")
set FileObject = server.createobject("Scripting.FileSystemObject")
patharr = split(LocalPath,"/")
path_level = ubound(patharr)
for i = 0 to path_level
  if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
  cpath = left(pathtmp,len(pathtmp)-1)
  if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath
next
set FileObject = nothing
if err.number<>0 then
  CreateDIR = false
  err.Clear
else
  CreateDIR = true
end if
end function

dir=request.queryString("dir")
if dir<>"" then 
dir=server.MapPath(dir)
CreateDIR(dir)
response.write("&SendOK=1&")
end if
end if
%>