asp big5 gb2312 转 Unicode

原文: http://blog.blueshop.com.tw/HammerChou/archive/2006/05/13/23578.aspx

big5转unicode

------------------------------------------------------------------

ASP 如何實作 VB 的 StrConv 函數來進行 Unicode 轉換

ASP 如何實作 VB 的 StrConv 函數來進行 Unicode 轉換 ( vbFromUnicode / vbUnicode )

 

VB6 的StrConv 函數說明 :

傳回一特定轉換後的 Variant (String)。

 

語法

StrConv(string, conversion, LCID)

 

StrConv 函數的語法有以下的指名引數:

單元 說明

string 必要引數。為欲轉換的字串運算式。

conversion 必要引數：為Integer。其值的和決定轉換的型態。

LCID 選項的。如果與系統LocaleID不同，則為LocaleID（系統LocaleID為缺省值。）

 

vbUnicode (64) 據系統的預設字元碼對應頁將字串轉成 Unicode。

vbFromUnicode (128) 將字串由 Unicode 轉成系統的預設字元碼對應頁。

 

ASP 程式碼如下 :

<%
Response.Write ConvUnicode(FromUnicode("強力Power鎯頭Hammer"))
 ' FromUnicode
Function FromUnicode(strData)
    Dim objStm
    Set objStm = Server.CreateObject("ADODB.Stream")
     objStm.Charset = "Big5"
     objStm.Type = 2
    objStm.Open
    objStm.WriteText strData
    objStm.Position = 0
    objStm.Charset = "Unicode"
    objStm.Type = 1
    FromUnicode = MidB(objStm.Read, 1)
End Function


' Unicode
Function ConvUnicode(ByVal strData)
   Dim rs, stm, bytAry, intLen
   If Len(strData & "") > 0 Then
    strData = MidB(strData, 1)
    intLen = LenB(strData)
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set stm = Server.CreateObject("ADODB.Stream")
    rs.Fields.Append "X", 205, intLen
    rs.Open
    rs.AddNew
    rs(0).AppendChunk strData & ChrB(0)
    rs.Update
    bytAry = rs(0).GetChunk(intLen)


    stm.Type = 1
    stm.Open
    stm.Write bytAry
    stm.Position = 0
    stm.Type = 2
    stm.Charset = "Big5"
    ConvUnicode = stm.ReadText
End If
On Error Resume Next
stm.Close
Set stm = Nothing
rs.Close
Set rs = Nothing
End Function
%>

 

 

gb2312转unicode

------------------------------------------------------------------

<%
'Response.Write ConvUnicode(FromUnicode("強力Power鎯頭Hammer"))
Response.Write ConvUnicode(FromUnicode("我的电脑"))
 ' FromUnicode
Function FromUnicode(strData)
    Dim objStm
    Set objStm = Server.CreateObject("ADODB.Stream")
     'objStm.Charset = "Unicode"
     objStm.Charset = "gb2312"
     objStm.Type = 2
    objStm.Open
    objStm.WriteText strData
    objStm.Position = 0
    objStm.Charset = "gb2312"
    objStm.Type = 1
    FromUnicode = MidB(objStm.Read, 1)
End Function


' Unicode
Function ConvUnicode(ByVal strData)
   Dim rs, stm, bytAry, intLen
   If Len(strData & "") > 0 Then
    strData = MidB(strData, 1)
    intLen = LenB(strData)
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set stm = Server.CreateObject("ADODB.Stream")
    rs.Fields.Append "X", 205, intLen
    rs.Open
    rs.AddNew
    rs(0).AppendChunk strData & ChrB(0)
    rs.Update
    bytAry = rs(0).GetChunk(intLen)
    stm.Type = 1
    stm.Open
    stm.Write bytAry
    stm.Position = 0
    stm.Type = 2
    stm.Charset = "gb2312"
    ConvUnicode = stm.ReadText
End If
    On Error Resume Next
    stm.Close
    Set stm = Nothing
    rs.Close
    Set rs = Nothing
    End Function
%>