<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?
    ????    
				'
				如果輸入參數為空，則退出函數?
				
						
    
						
				    
				????
				If
				?szInput?
				=
				?
				""
				?
				Then
				?
    ????????toUTF8?    
				=
				?szInput?
    ????????    
				Exit
				?
				Function
				?
    ????    
				End
				?
				If
				?
    ????    
				'
				開始轉換?
				
						
    
						
				    
				?????
				For
				?x?
				=
				?
				1
				?
				To
				?
				Len
				(szInput)?
    ????????    
				'
				利用mid函數分拆GB編碼文字?
				
						
    
						
				    
				????????wch?
				=
				?
				Mid
				(szInput,?x,?
				1
				)?
    ????????    
				'
				利用ascW函數返回每一個GB編碼文字的Unicode字符代碼?
				
						
    
						
				    
				????????
				'
				注：asc函數返回的是ANSI?字符代碼，注意區別?
				
						
    
						
				    
				????????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之間采用三字節模版?
				
						
    
						
				    
				????????????????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 閱讀(861) 評論(0)  編輯  收藏  所屬分類: 閑言碎語 
    

    







    
	    
    




    








    

				

    







    







    
        
	



主站蜘蛛池模板：
女人18毛片水真多免费看
|
亚洲AV美女一区二区三区|
日韩毛片在线免费观看|
国产精品免费视频一区|
老子影院午夜伦不卡亚洲|
日本免费人成视频播放|
亚洲AV无码资源在线观看|
四虎影视永久免费观看网址|
国产偷国产偷亚洲高清人|
无码欧精品亚洲日韩一区夜夜嗨
|
国产a不卡片精品免费观看|
精品亚洲成a人在线观看|
国产乱弄免费视频|
精品国产_亚洲人成在线|
亚洲成a人无码av波多野按摩|
成人免费网站视频www|
亚洲永久无码3D动漫一区|
在线涩涩免费观看国产精品|
亚洲狠狠综合久久|
精品一区二区三区无码免费视频|
亚洲的天堂av无码|
99久久精品日本一区二区免费|
亚洲性色精品一区二区在线|
无码欧精品亚洲日韩一区夜夜嗨|
精品免费久久久久国产一区
|
精品日韩99亚洲的在线发布|
四虎影院免费视频|
污网站免费在线观看|
亚洲精品无码专区在线在线播放
|
免费很黄很色裸乳在线观看|
国产无遮挡又黄又爽免费网站|
精精国产www视频在线观看免费|
亚洲国产精品无码AAA片|
蜜臀98精品国产免费观看|
亚洲精品av无码喷奶水糖心|
精品国产香蕉伊思人在线在线亚洲一区二区
|
亚洲国产精品尤物YW在线观看|
久久久久久久99精品免费观看|
久久亚洲精品国产亚洲老地址|
亚洲日韩在线观看|
18禁美女裸体免费网站|