28,409
社区成员




<%
t = "中文"
s = ""
Set cc = Server.CreateObject("ChilkatCharset2.ChilkatCharset2")
cc.UnlockComponent "30-day trial"
cc.ToCharset = "GB2312"
s = cc.ConvertFromUnicode(t)
Set cc = Nothing
u = ""
For i = 1 To Len(s)
c = Mid(s,i,1)
a = CStr(Hex(AscW(c)))
u = u & "%" & Mid(a,3,2) & "%" & Mid(a,1,2)
Next
Response.Write u
%>