<rt id="bn8ez"></rt>
<label id="bn8ez"></label>
  • 

    • <span id="bn8ez"></span>
    

    <label id="bn8ez"><meter id="bn8ez"></meter></label>
    

    
    

    




    







												


        您好朋友，感謝您關注xiaosilent，我在blogjava的博客已經停止更新，請訪問http://kuan.fm了解我的最新情況，謝謝！




    
	
		
		
    

隨筆-82 
評論-133 
文章-0 
trackbacks-0

    
	

    

    
	
					


    
	
	
		
    ?
    
		
    
				
				Function
				?toUTF8(szInput)?
    ????    
				Dim
				?wch,?uch,?szRet?
    ????    
				Dim
				?x?
    ????    
				Dim
				?nAsc,?nAsc2,?nAsc3?
    ????    
				'
				如果輸入?yún)?shù)為空，則退出函數(shù)?
				
						
    
						
				    
				????
				If
				?szInput?
				=
				?
				""
				?
				Then
				?
    ????????toUTF8?    
				=
				?szInput?
    ????????    
				Exit
				?
				Function
				?
    ????    
				End
				?
				If
				?
    ????    
				'
				開始轉換?
				
						
    
						
				    
				?????
				For
				?x?
				=
				?
				1
				?
				To
				?
				Len
				(szInput)?
    ????????    
				'
				利用mid函數(shù)分拆GB編碼文字?
				
						
    
						
				    
				????????wch?
				=
				?
				Mid
				(szInput,?x,?
				1
				)?
    ????????    
				'
				利用ascW函數(shù)返回每一個GB編碼文字的Unicode字符代碼?
				
						
    
						
				    
				????????
				'
				注：asc函數(shù)返回的是ANSI?字符代碼，注意區(qū)別?
				
						
    
						
				    
				????????nAsc?
				=
				?AscW(wch)?
    ????????    
				If
				?nAsc?
				<
				?
				0
				?
				Then
				?nAsc?
				=
				?nAsc?
				+
				?
				65536
				?
    ?????
    ????????    
				If
				?(nAsc?
				And
				?
				&
				HFF80)?
				=
				?
				0
				?
				Then
				?
    ????????????szRet?    
				=
				?szRet?
				&
				?wch?
    ????????    
				Else
				?
    ????????????    
				If
				?(nAsc?
				And
				?
				&
				HF000)?
				=
				?
				0
				?
				Then
				?
    ????????????????uch?    
				=
				?
				"
				%
				"
				?
				&
				?
				Hex
				(((nAsc?
				\
				?
				2
				?
				^
				?
				6
				))?
				Or
				?
				&
				HC0)?
				&
				?
				Hex
				(nAsc?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
    ????????????????szRet?    
				=
				?szRet?
				&
				?uch?
    ????????????    
				Else
				?
    ???????????????    
				'
				GB編碼文字的Unicode字符代碼在0800?-?FFFF之間采用三字節(jié)模版?
				
						
    
						
				    
				????????????????uch?
				=
				?
				"
				%
				"
				?
				&
				?
				Hex
				((nAsc?
				\
				?
				2
				?
				^
				?
				12
				)?
				Or
				?
				&
				HE0)?
				&
				?
				"
				%
				"
				?
				&
				?_?
    ????????????????????????????    
				Hex
				((nAsc?
				\
				?
				2
				?
				^
				?
				6
				)?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
				&
				?
				"
				%
				"
				?
				&
				?_?
    ????????????????????????????    
				Hex
				(nAsc?
				And
				?
				&
				H3F?
				Or
				?
				&
				H80)?
    ????????????????szRet?    
				=
				?szRet?
				&
				?uch?
    ????????????    
				End
				?
				If
				?
    ????????    
				End
				?
				If
				?
    ????    
				Next
				?
    ?????????
    ????toUTF8?    
				=
				?szRet?
    
				End?Function
		
    

	
    posted on 2008-08-12 17:55 xiaosilent 閱讀(862) 評論(0)  編輯  收藏  所屬分類: 閑言碎語 
    

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
日本黄页网址在线看免费不卡|
亚洲综合av一区二区三区|
特级毛片免费播放|
日韩免费观看视频|
亚洲国产欧美一区二区三区|
暖暖免费高清日本一区二区三区|
亚洲欧洲av综合色无码|
永久免费无码网站在线观看|
国产亚洲精品美女久久久久|
免费人成激情视频|
成年女人A毛片免费视频|
啊v在线免费观看|
国产精品美女免费视频观看|
国产V亚洲V天堂A无码|
无码国产精品一区二区免费vr|
亚洲精品国产福利片|
成人性生交大片免费看无遮挡|
亚洲欧好州第一的日产suv|
免费在线观看日韩|
中文在线观看国语高清免费|
亚洲avav天堂av在线不卡|
在线视频免费观看爽爽爽|
中国china体内裑精亚洲日本|
又粗又大又长又爽免费视频|
2022国内精品免费福利视频|
久久精品国产亚洲AV麻豆网站|
啦啦啦高清视频在线观看免费|
麻豆安全免费网址入口|
亚洲国产成人一区二区精品区|
希望影院高清免费观看视频|
看免费毛片天天看|
久久综合日韩亚洲精品色|
国产一精品一AV一免费孕妇|
男女作爱免费网站|
亚洲爱情岛论坛永久|
免费理论片51人人看电影|
久久久久久成人毛片免费看|
欧洲亚洲国产精华液|
亚洲综合精品一二三区在线|
国产精品免费综合一区视频|
99在线观看免费视频|