ASP ASCII 转换 Unicode函数-Function ASCII2Unicode(str) dim strLen,res,I strLen=LenB(str...

海南网站建设,网页设计
记忆工作中的点滴
首页>> Asp技术 >>ASP ASCII 转换 Unicode函数
Function ASCII2Unicode(str)
	dim strLen,res,I
	strLen=LenB(str)
	I=1
	While I < strLen+1
		If I<>strLen And AscB(MidB(str,I,1))>127 Then
			res=res&Chr(AscB(MidB(str,I,1))*256+AscB(MidB(str,I+1,1)))
			I=I+1
		Else
			res=res&ChrW(AscB(MidB(str,I,1)))
		End If
		I=I+1
	Wend
	ASCII2Unicode=res
End Function

×

感谢您的支持,我们会一直保持!

扫码支持
请土豪扫码随意打赏

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

打赏作者
版权所有,转载注意明处:不懂戀愛魚兒 » ASP ASCII 转换 Unicode函数
标签: 函数 Unicode ASCII

发表评论

路人甲 表情
看不清楚?点图切换 Ctrl+Enter快速提交

网友评论(1)

这个获取好像失败了。好像获取得是本地的?
gov 6年前 (2013-05-05) 回复