新增一個上傳附件的功能。

在網上找了一下，基本都是在化境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>

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

感謝化境。

轉載于:https://www.cnblogs.com/neru/archive/2010/05/21/1739094.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的20100519 学习记录：asp CreateFolder/上传附件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。