|
|
|
 Phần mềm : |
 |
|
Trình độ : Beginer |
| Đánh giá : |
 |
/ |
 |
|
|
| Chuyển từ ANSI sang Unicode (ASP) |
| (Thứ Ba, 22/06/2010-2:24 PM) |
|
|
 |
|
Chúng tôi xin giới thiệu một cách chuyển từ ANSI sang Unicode rất nhanh trong ASP. Sẽ giúp bạn rất nhiều khi lập trình các vấn đề đề liên quan đến việc chuyển đổi sang Unicode. Mời các bạn tham khảo. |
|
|
|
Code:
<%
Dim test
Dim c
For i = 1 To 2000
c = 65 + Int(Rnd * 25)
test = test & ChrB(AscB(Chr©))
if i Mod 4 = 0 Then
test = test & ChrB(AscB('' ''))
End if
Next
Response.Write ANSIToUnicode(test)
function ANSIToUnicode(ByRef pbinBinaryData)
Dim lbinData' Binary Data (ANSI)
Dim llngLength' chiều dài binary data (byte count)
Dim lobjRs' Recordset
Dim lstrData' Unicode Data
' VarType Reference
'8 = Integer (this is expected var type)
'17 = Byte Subtype
' 8192 = Array
' 8209 = Byte Subtype + Array
Set lobjRs = Server.CreateObject(''ADODB.Recordset'')
if VarType(pbinBinaryData) = 8 Then
' chuyển integers(4 bytes) To Byte Subtype Array (1 byte)
llngLength = LenB(pbinBinaryData)
if llngLength = 0 Then
lbinData = ChrB(0)
Else
Call lobjRs.Fields.Append(''BinaryData'', adLongVarBinary, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields(''BinaryData'').AppendChunk(pbinBinaryData & ChrB(0)) ' + Null terminator
Call lobjRs.Update()
lbinData = lobjRs.Fields(''BinaryData'').GetChunk(llngLength)
Call lobjRs.Close()
End if
Else
lbinData = pbinBinaryData
End if
llngLength = LenB(lbinData)
if llngLength = 0 Then
lstrData = ''''
Else
Call lobjRs.Fields.Append(''BinaryData'', adLongVarChar, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields(''BinaryData'').AppendChunk(lbinData)
Call lobjRs.Update()
lstrData = lobjRs.Fields(''BinaryData'').Value
Call lobjRs.Close()
End if
Set lobjRs = Nothing
ANSIToUnicode = lstrData
End function
%>
Theo khkt.net
|
|
|
|
|
|
|
|
| Các bài sau |
|
