【正文】
AtEndOfStream判斷是不是文件的末尾 content=content+vbcrlf content=content+changecontent() loop 的意思就是說,把文件中的一行一行讀出來 只是一個函數(shù).. function uta(val) uta=replace(val,*,amp。 do while not 39。關(guān)閉對象 set ts=nothing set fs=nothing end sub savetext CreateFileName,Content 39。創(chuàng)建文件對象 (data) 39。設(shè)置FSO對象 if instr(filename,:\)0 then 39。這是一個用于寫文本文件的過程 dim fs,ts,path 39。設(shè)置一個文本對象..并打開這個對象... if not then content=changecontent() do while not content=content+vbcrlf content=content+changecontent() loop 將模板文件的內(nèi)容賦值到content變量里... 再對其模板內(nèi)容處理后生成新的網(wǎng)頁文件... 例如 Replace(content,%=rs(title)%amp。創(chuàng)建一個FSO對象 set myfile=(filepath) 39。 WIDTH: 600 xp。關(guān)閉對象