asp¶ÁÈ¡Îı¾ÄÚÈÝ

'**************************************************    
'º¯ÊýÃû£ºFSOFileRead    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
'·µ»ØÖµ£ºÎļþÄÚÈÝ    
'**************************************************    
function FSOFileRead(filename)    
Dim objFSO,objCountFile,FiletempData    
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)    
FSOFileRead = objCountFile.ReadAll    
objCountFile.Close    
Set objCountFile=Nothing    
Set objFSO = Nothing    
End Function    
  
'**************************************************    
'º¯ÊýÃû£ºFSOlinedit    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþijһÐеĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
' lineNum ----ÐÐÊý    
'·µ»ØÖµ£ºÎļþ¸ÃÐÐÄÚÈÝ    
'**************************************************    
function FSOlinedit(filename,lineNum)    
if linenum < 1 then exit function    
dim fso,f,temparray,tempcnt    
set fso = server.CreateObject("scripting.filesystemobject")    
if not fso.fileExists(server.mappath(filename)) then exit function    
set f = fso.opentextfile(server.mappath(filename),1)    
if not f.AtEndofStream then    
tempcnt = f.readall    
f.close    
set f = nothing    
temparray = split(tempcnt,chr(13)&chr(10