Question

Microsoft VBScript 编译器错误 (0x800A0408) 无效字符

<%
Set fso=Server.Createobject("Scripting.FileSystemObject") '获取文件系统对象到fso
path=Server.MapPath("images\UserImage") '获取图片目录的服务器绝对路径
if fso.FolderExists(path)then '如果图片目录存在

　　Set fol = fso.GetFolder(path) '获取代表图片目录的对象fol（提示有错误）

　　set fc = fol.Files '获取图片目录下的文件集合到fc
　　i=1 '初始化图片计数为1
　　For Each f1 in fc '用循环变量f1遍历图片集合fc中所有图片
　　　　s= f1.name '获取当前图片文件的文件名到s
　　　　response.Write("<option value='" & s & "'") '输出列表的当前行的前一半
　　　　if i=1 then '如果当前是第一个图片
　　　　　　response.Write(" selected") '则选择该行
　　　　　　s0=s '记录文件名到s0
　　　　enf if
　　　　response.Write(">头像" & i & "</option>") '输出列表的当前行的后一半
　　　　i=i+1 '图片计数加1
　　Next '继续获取下一个图片
end if '结束if条件
%>

若以下回答无法解决问题，邀请你更新回答

Answer 1

使用
response.write path
response.end
调试一下,看看 path到底是个什么东东

追问

response.write path
response.end
夹在什么位置？我也不知道，以前没学过ACEESS，动态网页也是新学的，请教一下path应该是个路径吧，是什么路径，是否需要替换，替换的格式是怎样的呢？

追答

path=Server.MapPath("images\UserImage") '获取图片目录的服务器绝对路径
放在这行后面，
这只是一个调试方法，以后可灵活运用