|
【声明：转载此信息在于传递更多信息，其内容表达的观点并不代表本站立场，由这些信息所产生的一切后果本站不负任何责任。如果您对本信息有什么意见，欢迎和本站联系，谢谢！】http://CiDu.Net
有关接受传值的代码：
Do While Len(gstrFormData) < gintContentLength
rc = ReadFile(ghStdIn, ByVal sBuff, gintContentLength, lBytesRead, ByVal 0&)
gstrFormData = gstrFormData & Left$(sBuff, lBytesRead)
Loop 输入——<INPUT type="hidden" value ="测试数据" name="testfield">
得到的数值却是testfield=%B2%E2%CA%D4%CA%FD%BE%DD 如何把这个字串转回中文？
Function chinese2unicode(AA)
Dim i
Dim AA_one
Dim AA_unicode
For i = 1 To Len(AA)
AA_one = Mid(AA, i, 1)
AA_unicode = AA_unicode & Chr(38)
AA_unicode = AA_unicode & Chr(35)
AA_unicode = AA_unicode & Chr(120)
AA_unicode = AA_unicode & Hex(AscW(AA_one))
AA_unicode = AA_unicode & Chr(59)
Next
Me.Caption = AA_unicode
End Function
将GB数组的类型从Unicode编码转换为系统缺省码
bteGB = StrConv(strSource, vbFromUnicode)
声明：以上信息资料大都是网上搜集而来，版权归作者，如有版权问题请留言告知我将马上改正。
文中所提到的各种观点只是原文观点，各种说法未经一一确认。并不代表本站认可此观点！！
|
登录 
注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
51La 电邮：cidunet#163.com（请将#换成@）
