Question

以下代码是为程序在搜索目录期间找到的每个文件调用的函数的一部分。

set searchname = objFSO.OpenTextFile(server.mappath(filename),1, true)
do until searchname.AtEndOfStream
lineData = lcase(searchname.ReadLine())
if instr(lineData,s)>0 then
instances = instances + 1
end if
Loop

这是我的代码中的一部分我很困惑。这段代码昨天运作完美。我做了一些编辑，但主要是使用HTML和CSS。当我今天提取这些代码以更好地优化它时，我只是继续通过此行获得权限被拒绝错误。

set searchname = objFSO.OpenTextFile(server.mappath(filename),1, true)

问题是代码扫描的文件夹包含一些包含多个单词的文件。所以我必须在双引号内得到“filename”变量。我一直在寻找解决方案，但它们都没有帮助。这甚至可能还是有解决方法？

这里非常感谢任何帮助。

编辑：这里要求的是获取文件名的代码。虽然不知道它与我的问题有什么关系。

Function filesearch(name)

ext = instr(name,".txt")
vdirectoryvalue = instr(name,"Files\")+6
idname = mid(name,vdirectoryvalue,ext)
vdirectory = len(idname) - 4
filename = left(idname,vdirectory)
instances = 0

set searchname = objFSO.OpenTextFile(server.mappath(idname), 1, true)
do until searchname.AtEndOfStream
lineData = lcase(searchname.ReadLine())
if instr(lineData,s)>0 then
instances = instances + 1
end if
Loop
End Function

如何让变量在ASP-classic中的双引号内工作？

0 个答案: