UTF-8对用国外主机或其它语种的网站很重要!

看到一偏FS添加UTF-8代码支持

,添加修改了两个函数.请问KS怎么修改呢?

FS的相关帖:

http://www.foosun.net/dispbbs.asp?BoardID=51&id=41254

en,fs上也是这两

照fs修改

'-------------------------------------------------
'函数名称:ReadTextFile
'作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件
'----------------------------------------------------
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
'-------------------------------------------------
'函数名称:WriteToTextFile
'作用:利用AdoDb.Stream对象来写入UTF-8格式的文本文件
'-------------------------------------------------
Sub WriteToTextFile (FileUrl,Str,CharSet)
 dim stm       
    set stm=server.CreateObject("adodb.stream")
    stm.Type=2 '以本模式读取
    stm.mode=3
    stm.charset=CharSet
    stm.open
    stm.WriteText str
    stm.SaveToFile server.MapPath(FileUrl),2  
    stm.flush
    stm.Close
    set stm=nothing
end Sub

这两个函数在网上很好找,不是我的杰作,纯属挪用,不过原作者我也不知道了

只要是这两个函数

找到ks_cls/ks_refreshcls.asp这个文件，并加入这两个函数．然后读模板和生成的函数稍改下，就差不多了