ASP 创建文件夹与上传-优快云博客

<html>
<body>新建文件夹<br/><br/><br/>

if(document.upform.upfile.value=="")
{
alert("请选择上传文件！")
document.upform.upfile.focus()
return false
}
return true
}
// -->
</script>
<%
Dim username1
  username1=session("AdminName")
Set rs1=server.createobject("adodb.recordset")
  sql1="select * from table1 where username='"&username1&"'"
  rs1.open sql1,conn,1,1
  If not rs1.eof then
Dim objFSO   '声明一个名称为 objFSO 的变量以存放对象实例
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  SavePath = server.mappath("pic")&"/"&rs1("username")

If objFSO.FolderExists(SavePath) Then
   Response.Write SavePath&"文件夹是存在的，不需要新建！<br>"
Else
   objFSO.CreateFolder(SavePath)
   Response.Write "新建文件夹的位置为"&SavePath&"<hr>"
End If
Set objFSO = Nothing     '释放 FileSystemObject 对象实例内存空间
End if

%>
<form action='<%= Request.ServerVariables("URL") %>' method='post' name="upform" onSubmit="return ValidInput()" enctype="multipart/form-data">
文件上传：
<input type='file' name='upfile' size="40"><input type='submit' value="上传">
</form>
</body><%rs1.close
Set rs1 = nothing
Set Conn=nothing%>
</html>

FSO组件