asp檔案
簡單、好用、開發效率高等等是asp的優點，但是其系統操作方面如檔案操作等則 是比較微弱的。要想實現這方面的功能，只有採取呼叫元件的辦法。
filesystemobject物件就是乙個例子。asp安裝後，該物件就在系統中註冊了。
不過其功能也非常一般，只能操作文字型別的檔案。不過也可以滿足我們的一些
需要了。前幾天我的乙個同事的乙個朋友在網上申請了乙個支援asp的空間，想
實現諸如使用者註冊、資訊修改、使用者登出等功能，又不想用資料庫來實現，因為
要進行一大堆的設定。其實利用filesystemobject操作文字檔案就可以實現。
實現的思路是：為每項資訊建立乙個文字檔案，如姓名、性別、年齡等。所
有使用者的同乙個資訊項都儲存在相對應的檔案中。如每個使用者的姓名資訊都儲存
在姓名檔案中。並且每個使用者的資訊都以特殊的標誌開始和結束，讀取資訊時就
根據這些標誌進行定位。例如開始標誌用「`使用者名稱`」 ，結束標誌用「`e`」。
只要不是常用的字串，就可以作為定位的標誌。另外，還有兩個檔案是必不可
少的：那就是使用者名稱、密碼檔案。判斷使用者是否存在、使用者登陸等就是利用這兩
個檔案實現的。下面介紹的就是本人的具體實現**。
在程式編寫前我先搞了搞了乙個公共的函式單元fun.inc，這裡面是一些比較
通用的函式，供其它的asp檔案包含並呼叫。
首先是些使用者資訊的函式，包括使用者名稱、檔名、使用者資訊三個引數，都是
字串型別，其中使用者資訊還可以是多行。**如下：
sub writeuser(username,filename,userinfo)
dim fs, f
set fs = createobject("scripting.filesystemobject")
if fs.fileexists(filename) = false then
fs.createtextfile (filename)
end if
'以新增方式開啟檔案
set f = fs.opentextfile(filename, 8)
'使用者資訊開始標誌
f.writeline ("`" & username & "`")
f.writeline (userinfo)
'使用者資訊結束標誌
f.writeline ("`e`")
f.close
set f = nothing
set fs = nothing
end sub
讀使用者資訊的函式只需要兩個引數：使用者名稱和檔名，使用者的資訊作為函式
的返回值，實現的思路就是尋找開始、結束標誌，並把它們之間的資訊返回。代
碼如下：
function readuser(username,filename)
dim i
dim s
dim ret
dim fs, f
set fs = createobject("scripting.filesystemobject")
if fs.fileexists(filename)=false then
set fs=nothing
readuser=""
exit function
end if
'以唯讀方式開啟檔案
set f = fs.opentextfile(filename, 1)
do while f.atendofstream <> true
s = f.readline
if s = "`" & username & "`" then
s = f.readline
ret=""
do while s <> "`e`"
if ret="" then
ret = ret + s
else
ret = ret + chr(13) & chr(10)+s
end if
s = f.readline
loop
exit do
end if
loop
f.close
set f = nothing
set fs = nothing
readuser = ret
end function
下面是刪除使用者資訊的函式，同樣包括使用者名稱和檔名兩個引數。程式逐行
讀取對應檔案，如果其它使用者的資訊，則儲存在乙個字串變數中，否則不進行
儲存，然後用變數的內容重寫該檔案。**如下：
sub deleteuser(username,filename)
dim i
dim s
dim tmp
dim fs, f
set fs = createobject("scripting.filesystemobject")
if fs.fileexists(filename)=false then
set fs=nothing
exit sub
end if
set f = fs.opentextfile(filename, 1)
tmp=""
do while f.atendofstream <> true
s = f.readline
if s <> "`" & username & "`" then
if tmp="" then
tmp = tmp + s
else
tmp = tmp + chr(13) & chr(10)+ s
end if
else
&n
ASP中使用類
class webuser public property get islogin username if username then islogin true else islogin false jstz 請您先登入 login.htm end if end property public pr...
關於File檔案類的使用
1.file類的建立目錄和檔案的方法 mkdirs 方法 建立此抽象路徑名指定的目錄，包括所有必需但不存在的父目錄。mkdir 方法 建立此抽象路徑名指定的目錄。使用file在電腦上建立目錄 呼叫mkdirs 建立此抽象路徑名指定的目錄，包括所有必需但不存在的父目錄。mkdir 方法 建立此抽象路徑...
在ASP中使用類
vbscript5中增加了許多新功能，最振奮人心的當屬類和正規表示式的出現。以下是本人寫的乙個解析html 的類。我是 學php的，語法有不習慣的地方，請大家多包含。class htmlparse 設定 initialize 事件。private sub class initialize myglo...