写入文件追加位置的有关问题

写入文件追加位置的问题

VBScript code

<%function writefile(ct,filename,fileEncoder)  Dim stream  Set stream = Server.CreateObject("adodb.stream")  stream.Charset = fileEncoder '设置编码  stream.Type = 2 '文本  stream.Mode = 3 'forreadwrite stream.Open  stream.LoadFromFile server.mappath(filename)stream.Position = stream.Size    stream.writeText ct, 1  stream.SaveToFile server.mappath(filename), 2  stream.Close  Set stream = NothingEnd function%>

这个函数写入数据时是追加在最后，怎么样让追加在最前面？

[解决办法]
<%
function writefile(ct,filename,fileEncoder)
Dim stream
Set stream = Server.CreateObject("adodb.stream")
stream.Charset = fileEncoder
stream.Type = 2
stream.Mode = 3
 stream.Open
ctt=getFile(filename)
stream.writeText ct+ctt, 1
stream.SaveToFile server.mappath(filename), 2
stream.Close
Set stream = Nothing
End function

writefile "ggggggggg","abc.html","gb2312"
response.Write "生成文件件成功！"

%>

<%
function getFile(fn)
Set stm=Server.CreateObject("adodb.stream")
 stm.Type=2
 stm.mode=3 
 stm.charset="gb2312"
 stm.open
 stm.loadfromfile Server.MapPath(fn)
 t1=stm.readtext
 stm.Close
 Set stm=Nothing
 getFile=t1
end function
%>

查看更多 下一篇