靈魂啊，你在那裏

今天維護程式的時候發現必需要在 程式裡面 include 特定的檔案

這個特定的檔案放在每個產品的資料夾裡面，幸好，檔名都是固定的

 include 的限制是裡面不能放變數

以前遇到這種問題 是用  if   else  解決

if  status=0   then

else

................................

今天這個狀況顯然不適用，想了半天，才想到用  FileSystemObject
把檔案讀進來，再處理

實在是反應太慢了，一下子掉在  include  限制裡。

用 FileSystemObject 讀檔的時候，還要用 unicode 讀出來

查看 script 的說明檔只有寫  TristateTrue，沒寫是多少   0 、 1 還是 -1

後來還是用 google 查到了 TristateTrue  = -1

Set ts = fso.OpenTextFile(DBPath&"\cont.asp", 1,false,-1)

這樣差不多就完成了

不過問題又來了

這個 cont.asp 是指定參數用的

像這樣

name  ="aaaa"
symbol ="bbbb"
size        ="100"
material ="cccc"

我以為 用  eval(ts.ReadLine) 可以指定變數

沒想到 eval 跑完  只會產生 name 的實體, name 的值還是空的

想不到好方法，只好用很呆的方式，把變數寫在程式裡面

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set ts = fso.OpenTextFile(DBPath&"\cont.asp", 1,false,-1)
  name   = ts.ReadLine

想到前輩說的，可以用的程式，就是好程式。

在沒想到更好的方式，這個就先用了吧