主题:问一个问题，关于读取文件到文本区域的问题？急用，解决了马上送分~
如何读取同一个目录中的HTML文件到文本区域（TextArea），内容格式原样显示，并且用yzty替换掉文件中的所有的sjt字符串。
回复人:RoseKnife(玫瑰刀) 四级(中级) 信誉:100 2005-3-23 15:21:28 得分:30
|
|
<%
dim objFSO
dim fdata
dim objCountFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if request("save")="" then
Set objCountFile = objFSO.OpenTextFile(Server.MapPath("banner.asp"),1,True)
If Not objCountFile.AtEndOfStream Then fdata = objCountFile.ReadAll
else
fdata=request("fdata")
Set objCountFile=objFSO.CreateTextFile(Server.MapPath("banner.asp"),True)
objCountFile.Write fdata
end if
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
%>
<textarea name="fdata" cols="110" rows="20"><%=fdata%></textarea>
| | TOP |
回复人:yzty(雨中太阳) 一级(初级) 信誉:100 2005-3-23 15:54:30 得分:0
|
|
谢谢RoseKnife(RoseSoft.info)，能够读取文件了，但是如何替换掉字符串呢？
| | TOP |
回复人:yongz_0(涩男郎) 五级(中级) 信誉:100 2005-3-23 16:00:11 得分:20
|
|
<textarea name="fdata" cols="110" rows="20"><%=replace(fdata,"sjt","yzty")%></textarea>
| | TOP |
回复人:yzty(雨中太阳) 一级(初级) 信誉:100 2005-3-23 16:15:53 得分:0
|
|
但是如果HTML文件中有这样的
<textarea rows="4" name="SUPPER_MEMO" cols="36" class=4bborder></textarea>
的文本的时候就不在
<textarea name="fdata" cols="110" rows="20"><%=replace(fdata,"sjt","yzty")%></textarea>
里面显示了，就另外显示在了网页里面，如何解决阿
| | TOP |
回复人:yzty(雨中太阳) 一级(初级) 信誉:100 2005-3-23 16:45:12 得分:0
|
|
好了，加了个server.HTMLEncode把问题解决了
| | TOP |
回复人:lovebanyi(有招聘的吗) 五级(中级) 信誉:100 2005-3-23 17:21:17 得分:0
|
该问题已经结贴 ，得分记录：RoseKnife(30)、yongz_0(20)、
|