asp如何从txt文本中删除从表单提交的内容
现在有一个001.txt的文件，需要从表单中输入要查找的内容，然后把从001.txt文件中找到的表单内容删除，如果查找不到则提示。请问论子里的开发高手些用ASP代码要怎么写呢
v=request.form("xxxx")''''''' set fso=server.createobject("scripting.filesystemobject") set ts=fso.OpenTextFile(server.mappath("001.txt"),1)''''''' text=ts.readall if instr(text,v)=0 then msgbox "找不到内容"else text=replace(text,v,"") ts.close set ts=fso.OpenTextFile("001.txt",2) ts.write text'写回文件中 end if ts.close set ts=nothing set fso=nothing
v=request.form("nam1")''''''' set fso=server.createobject("scripting.filesystemobject") set ts=fso.OpenTextFile(server.mappath("001.txt"),1)''''''' text=ts.readall if instr(text,v)=0 then response.write "找不到内容"else ts.close text=trim(replace(text,v,"")) '用正则替换掉空行 set rx=new regexp rx.Global=true rx.Multiline=true rx.Pattern="^[\s]+$"'这个正则不知道怎么搞最前面或者后面出现要替换的内容，替换不完全，只好再替换一次 text=rx.Replace(text,"") rx.Multiline=false rx.Pattern="^\s|\s$" text=rx.Replace(text,"") set rx=nothing set ts=fso.OpenTextFile(server.mappath("001.txt"),2) ts.write text'写回文件中 end if ts.close set ts=nothing set fso=nothing