日期:2014-05-17  浏览次数:20830 次

請各位幫幫我!
我想用Response.write輸出一個Select,但寫出的代碼不知道問題出在哪,你各位幫幫看看!謝謝!
response.Write   " <select   name= "list1 " '> "

運行後提示:
錯誤類型:
Microsoft   VBScript   編譯階段錯誤   (0x800A0401)
必須是陳述式的結尾
/PictureShow.asp,   line   76,   column   31
response.Write   " <select   name= ' "list1 " '> "
------------------------------^
請各位高手看看!謝謝!

------解决方案--------------------
你要制定 'list1 '的内容,不能为空,也就是path 的路径
'object.GetFolder(folderspec) folderspec指的是路径


Sub AddNewFolder(path, folderName)
Dim fso, f, fc, nf
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
If folderName <> " " Then
Set nf = fc.Add(folderName)
Else
Set nf = fc.Add( "New Folder ")
End If
End Sub