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 %>
加支付宝好友偷能量挖...