stream.asp

二月小说 看小说必备工具 默认的管理路径为:admin/index.asp 用户名：admin 密码：admin

<%
function readfile(l1)
dim stm,l2
l2=server.mappath(l1)
set stm=server.createobject("ADODB.Stream")
stm.charset="utf-8"
stm.open
stm.loadfromfile l2
readfile=stm.readtext
set stm=nothing
end function
sub laos_xiu(file_name,filetype)
    dim objStream
Set objStream = Server.CreateObject("AD"&"ODB.S"&"tre"&"am")
    With objStream
    .Open
    .Charset = "utf-8"
    .Position = objStream.Size
    .WriteText=filetype
    .SaveToFile server.mappath(file_name),2 
    .Close
    End With
    Set objStream = Nothing
end sub
'======================================================================
'=              Copyright (c) 2008-2010 ,老四(QQ7280091)开发          =
'=                      All rights reserved.                          =
'=--------------------------------------------------------------------=
'=                    　　　　 二月小说 v_1.0   　                    =
'=                    　　　　                  　                    =
'=                     演示网址：www.2yue.com.cn                      =
'=                     官方网址：vip.2yue.com.cn =
'=                     官方QQ群：7500701                              =
'=--------------------------------------------------------------------=
'=                     用   途：小说、小说连载                        =
'=                     最后更新：2008-11-1                            =
'======================================================================
%>