白云岛资源网 Design By www.pvray.com
复制代码 代码如下:
<%

'*************************************************************
'转发时请保留此声明信息,这段声明不并会影响你的速度!
'*************************************************************


'*************************************************************
'@author:                        面条
'@realname:                        徐仁禄
'@email:                        xurenlu@sohu.com
'@QQ:                            55547082
'@Homepage:                        http://www.ksdn.net
'@版权申明:
'            非盈利性质团体或者个人可以免费使用.
'*************************************************************


'*************************************************************
'        类名称:        files
'        类功能:            实现文件读写功能,利用adodb.stream实现,在不支持fso的主机上也可以读写文件.
'*************************************************************

class files


    private adSaveCreateOverWrite    '创建文件的时候可以覆盖已经存在的文件.
    private adSaveCreateNotExist    '保存文件的时候如果文件不存在,可以创建文件.


'*************************************************************
'        事件名称:        Class_Initialize()
'        事件发生条件:    类创建时候产生该事件
'        事件内容:        给私有变量赋值
'        事件传入参数:    无
'*************************************************************


    sub Class_Initialize()
        adSaveCreateOverWrite =2
        adSaveCreateNotExist = 1
    end sub


'*************************************************************
'        函数名称:        function readfile(filepath)
'        函数内容:        读出文件
'        传入参数:        filepath:要读的文件的绝对路径
'        返回参数:        要读的文件的内容.
'*************************************************************
function readfile(filepath)


    on error resume next

    dim stm2


    set stm2 =server.createobject("ADODB.Stream")
    stm2.Charset = "gb2312"
    stm2.Open
    stm2.LoadFromFile filepath
    readfile = stm2.ReadText
end function


'*************************************************************
'        函数名称:        function writefile(filepath,str)
'        函数内容:        写入文件
'        传入参数:        filepath:要读的文件的绝对路径
'                        str:    要写入的内容
'        返回参数:        无返回
'************************************************************* 
    function writefile(filepath,str) 
        on error resume next 
        Set stm = server.createobject("ADODB.Stream")
        stm.Charset = "gb2312"
        stm.Open
        stm.WriteText str
        stm.SaveToFile filepath, adSaveCreateOverWrite
    end function



'*************************************************************
'        函数名称:        function copy(filepath_s,filepath_d)
'        函数内容:        读出文件
'        传入参数:        filepath_d:目的文件的绝对路径
'                        filepath_s:源文件路径
'*************************************************************
function copy(filepath_s,filepath_d)
    on error resume next
    dim stm2
    set stm2 =server.createobject("ADODB.Stream")
    stm2.Charset = "gb2312"
    stm2.Open
    stm2.LoadFromFile filepath_s
    stm2.SaveToFile filepath_d, adSaveCreateOverWrite
end function
end class
%>
白云岛资源网 Design By www.pvray.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
白云岛资源网 Design By www.pvray.com

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?