ASP 修改.TXT文件的某些内容

修改.TXT文件的某些内容，要详细代码和 
某些内容=指定的行或者指定的内容

需要访问数据库，用update语句，网上代码一搜一大片

<%
Function ReadTxtFile(FileName) 
Dim fso,f1,ts,FilePath 
FilePath=server.mappath(FileName) 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set ts = fso.OpenTextFile(FilePath,1,1) 
ReadTxtFile = ts.ReadAll 
set ts=nothing 
set fso=nothing 
End Function 
function FSOchange(filename,Target,Stringt)  
  Dim objFSO,objCountFile,FiletempData  
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")  
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)  
  FiletempData = objCountFile.ReadAll  
  objCountFile.Close  
  FiletempData=Replace(FiletempData,Target,Stringt)  
  Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)  
  objCountFile.Write FiletempData  
  objCountFile.Close  
  Set objCountFile=Nothing  
  Set objFSO = Nothing  
 End Function

sns=ReadTxtFile("1.txt")'读取txt文件
txt=split(sns,chr(13))'读取每行  
for i=0 to ubound(txt)
  if instr(txt(i),"KEY=")>0 then Ttxt=cstr(replace(replace(trim(txt(i)),chr(10),""),"KEY=","")) '读取 “某些内容=指定的行或者指定的内容”
next
'替换。
FSOchange "1.txt","某些内容="&Ttxt,"某些内容=指定的内容" 
%>

要详细代码??