你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

ASP的内码转换函数

[ ASP ] 分享

 

这个函数可以用来转换不同语言的内码,下面的几段是我从类中摘下来的,可能会有小错,没有调试,相信大家要修复也很容易的,这个函数用处多多,可以很好地解决一些多语言的问题.

只要服务器上有安装对应的语言编码文件,即可以轻松转换内码

Codepage(CharSet,语言)
932(shift_jis,日文)
936(gb2312,简体中文)
949(EUC-KR,韩文)
950(Big5,繁体中文)
65001(UTF-8,UCS)

‘******************************
‘名称: Codein
‘参数:strings(字符串),TCharSet(使用编码)
‘返回值:转内码后的字符串
‘作用:内码转换,需要Adodb.Stream支持
‘创建时间:2007年11月10日
‘******************************
Public Function Codein(strings,SCharSet,TCharSet)
dim tStm
strings=Str2Bin(strings,TCharSet)
Set tStm = Server.CreateObject ("ADODB.Stream")
tStm.Type = 1
tStm.Mode = 3
tStm.Open
tStm.Write strings
tStm.SaveToFile Server.MapPath("/temp_file"), 2′adSaveCreateOverWrite
dim p_CharSet_temp
p_CharSet=TCharSet
Codein = ReadFile("/temp_file")
‘kks_fso.delfile("/data/template/temp_file") ‘删除文件操作,使用FSO
p_CharSet=p_CharSet_temp
End Function

 

附上Str2Bin和ReadFile

 

‘******************************  
‘名称: STR2Bbytes  
‘参数:strings(二进制字符串),C_CharSet(使用编码)  
‘返回值:网页内容(HTML)  
‘作用:二进制编码转换函数优化版,需要Adodb.Stream支持  
‘创建时间:2007年1月10日  
‘******************************  
Public Function Str2Bin(strings,C_CharSet)  
On Error Resume Next  
    dim stm_Str2Bin  
    set stm_Str2Bin=createObject("ADODB.Stream")   
    with stm_Str2Bin  
    .Type=2  
    .mode=3   
    .charSet=C_CharSet 
    .Open  
    .WriteText strings  
    .Position = 0  
    .type=1  
    Str2Bin=.Read  
    .flush    
    .Close  
    end with  
    set stm_Str2Bin=nothing  
  if Err then  
    Str2Bin=""
    Err.Clear  
  End if  
End Function
  
  
‘******************************  
‘名称: ReadFile  
‘参数:filepath(载入文件的相对路径),p_CharSet(使用的字符集)  
‘返回值:文件内容  
‘作用:读取文件  
‘创建时间:2007年1月10日  
‘******************************  
Public Function ReadFile(filepath,p_CharSet)  
    On Error Resume Next  
    dim stm  
    set stm =server.createobject("ADODB.Stream")   
    stm.Type=1    ‘以本模式读取 (adSaveType )
    stm.mode=3    ‘adSavemode  
    stm.Charset = p_CharSet  
    stm.Open  
    stm.LoadFromFile Server.MapPath(filepath)  
  
  If Err.number <> 0 Then   
  Err.Clear  
  ReadFile = ""  
    Else  
  ReadFile = stm.ReadText  
    End If  
    stm.Close  
    set stm=nothing  
End Function

没有评论

  • (Required)
  • (Required, will not be published)