asp 生成 读取文本

Question

想找一个asp源码
可以读取文本内容
将里面的部分内容显示出来
也可以生成 修改文本内容
比如文本是

<h1>12123</h1>

出来的结果只显示12123，修改 也 只修改12123

Answer 1

<%
Function ReadFromTextFile (FileUrl,CharSet)
dim str,stm
set stm=server.CreateObject("adodb.stream")
stm.Type= 2
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
str=stm.readtext
stm.Close
set stm=nothing
ReadFromTextFile=str
End Function

Function WriteTextFile (FileUrl,CharSet,WriteString)
dim str,stm
set stm=server.CreateObject("adodb.stream")
stm.Type= 2
stm.mode=3
stm.charset=CharSet
stm.open
stm.loadfromfile server.MapPath(FileUrl)
stm.WriteText WriteString
stm.SaveToFile server.MapPath(FileUrl),2
stm.flush
stm.Close
End Function

%>

//比如文本是<h1>12123</h1>
出来的结果只显示12123，修改 也 只修改12123

可以以将文本中的内容以innerHTML的形式写入到DIV中