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

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

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

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

 

1      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 >

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

感谢化境。