把数据分解，放到数据中，如何应用数据值？

[slysmart]

<%
web=request.Form("selname1")
webs=split(web,",")
%>
<%
response.write "<table><tr>"
Dim path,fso,objFolder,file,foldFiles
url = "/fu/webs(0)/webs(1)"
paths="imagin"'图片文件所在的文件夹
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(paths))
Set foldFiles = objFolder.files
i=1
For Each file In foldFiles
imagin=split(file,"\")
files=imagin(ubound(imagin))
urls=url &"/" &paths & "/" & files
response.write "<td><a href='"&urls&"'><img src='"&urls&"' width='200' /></td>"
if i mod 5 = 0 then response.write "</tr><tr>"
i=i+1
Next
Set objFolder=nothing
Set objSubFolders=nothing
Set foldFiles=nothing
Set fso=nothing
response.write "</table>"
%>
注释下，selname是上页面里的值，而这个值正是我要的文件路径，url = "/fu/webs(0)/webs(1)"
我这样引用显示不出来图片，哪里有问题，请各位大虾帮忙！

[yan11cn]

url = "/fu/" & webs(0) & "/" & webs(1)

[slysmart]

谢谢，根据楼上的提示
由于图片存在web(1)中，所以我做了以下更改
<%
web=request.Form("selname1")
webs=split(web,",")
%>
<%
response.write "<table><tr>"
Dim path,fso,objFolder,file,foldFiles
url = "/fujitec1/" & webs(0) & "/" & webs(1)
paths="& web(1) &"'图片文件所在的文件夹
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(paths))
Set foldFiles = objFolder.files
i=1
For Each file In foldFiles
web(1)=split(file,"\")
files=web(1)(ubound(web(1)))
urls=url &"/" &paths & "/" & files
response.write "<td><a href='"&urls&"'><img src='"&urls&"' width='200' /></td>"
if i mod 5 = 0 then response.write "</tr><tr>"
i=i+1
Next
Set objFolder=nothing
Set objSubFolders=nothing
Set foldFiles=nothing
Set fso=nothing
response.write "</table>"
%>
但运行提示路径错误（Set objFolder = fso.GetFolder(Server.MapPath(paths))）
还得大家帮我找找原因啊

[slysmart]

补充一下，
上面的这句url = "/fujitec1/" & webs(0) & "/" & webs(1)改成了
url = "/fujitec1/" & webs(0) & "/"

[slysmart]

大家帮帮忙啊，两段代码分开执行都可以的
现在我不知道如何把webs里的参数给予图片路径中来
url = "/fu/.../
paths="imagin"'图片文件所在的文件夹

[slysmart]

问题没解决，还是希望大家能帮忙。
<%
web=request.Form("selname1")
webs=split(web,",")
%> '得到结果类似于 ccb ldgkd,也就是说图片实际路径是fujitec1/ccb/ldgkd,现在如何显示图片？
<%
response.write "<table><tr>"
Dim path,fso,objFolder,file,foldFiles
url = "/fujitec1/"
paths="imagin"'图片文件所在的文件夹
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath(paths))
Set foldFiles = objFolder.files
i=1
For Each file In foldFiles
imagin=split(file,"\")
files=imagin(ubound(imagin))
urls=url &"/" &paths & "/" & files
response.write "<td><a href='"&urls&"'><img src='"&urls&"' width='100' /></td>"
if i mod 5 = 0 then response.write "</tr><tr>"
i=i+1
Next
Set objFolder=nothing
Set objSubFolders=nothing
Set foldFiles=nothing
Set fso=nothing
response.write "</table>"
%>