20100519 学习记录：asp CreateFolder/上传附件

新增一个上传附件的功能。

在网上找了一下，基本都是在化境HTTP上传程序基础上改的，灰常感谢这个源代码的开发者，深深鞠躬。

不过这个代码要求在上传图片时，输入的文件夹必须是已存在的文件夹，不然就会出错，于是上传之前先处理一下动态生成的文件夹~ 嘿嘿

 

     strFolder = Server.MapPath(filepath)   
2     set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
3  
4     if UCase(objFileSystem.FolderExists(strFolder)) = "FALSE" then          
5         objFileSystem.CreateFolder(strFolder)
6     end if

 

 

CreateFolder 方法 创建文件夹。

object.CreateFolder(foldername)

Fso = Server.CreateObject("Scripting.FileSystemObject"
strCheckPath = Server.MapPath("...") 
If IsFolderExists( strCheckPath) Then Exit Sub


源代码是输入上传附件数，然后确定显示几个上传控件。偶小改了一下，改成点一个加一个。缺点是，每次点击虽然木有刷新页面，但是仍然会丢掉前面控件已经添加的值.. orz 改良了一下无效，于是干脆就这样了... (┬＿┬)

<script language="javascript">
          function UploadCount()
          {
              var counter = document.getElementById('upcount');
              var str='<br>';
       
              document.getElementById('upcount').value = parseInt(counter.value)+1 ; 
              
              for(i=1;i<=counter.value;i++)
              {
                  str += 'File'+i+': <input type="file" name="file' + i + '" style="width:300" ><br><br>';
              }
  
              window.upid.innerHTML=str+'<br>';    
          }

</script>
          <td align="center" id="upid">
           File1: 
            <input type="file" name="file1" style="width:300" class="tx1" value="">
          </td>

嗯，修修改改的，基本功能还都挺好用滴~

感谢化境。