set fso=server.createobject("Scripting.FileSystemObject")
'判断是否已有会员这个目录
function MemberFolder(loginName)
dim foldName
foldName=server.mappath("\MemberHTML\"&loginName)
if fso.folderExists(foldName) then
else
fso.CreateFolder(foldName)
end if
end function