VB6 StrConv函数ASP的实现方法

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实现vb6 strconv源代码如下:

 

<%
Response.Write ConvUnicode(FromUnicode("强力Power鎯头Hammer"))
' FromUnicode
Private Function FromUnicode(strData)
Dim objStm
Set objStm = Server.CreateObject("ADODB.Stream")
With objStm
.Charset = "Big5"
.Type = 2
.Open
.WriteText strData
.Position = 0
.Charset = "Unicode"
.Type = 1
FromUnicode = MidB(.Read, 1)
End With
End Function
' Unicode
Public 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")
With rs
.Fields.Append "X", 205, intLen
.Open
.AddNew
rs(0).AppendChunk strData & ChrB(0)
.Update
bytAry = rs(0).GetChunk(intLen)
End With
With stm
.Type = 1
.Open
.Write bytAry
.Position = 0
.Type = 2
.Charset = "Big5"
ConvUnicode = .ReadText
End With
End If
On Error Resume Next
stm.Close
Set stm = Nothing
rs.Close
Set rs = Nothing
End Function
%>

 

加支付宝好友偷能量挖...


评论(0)网络
阅读(666)喜欢(1)Asp/VBScript