┰计锣いゅ计ㄧ计 - い瓣WEB秨祇呼蹈 (http://www.webasp.net) -- м砃毙祘 (http://www.webasp.net/article/) --- ┰计锣いゅ计ㄧ计 (http://www.webasp.net/article/9/8318.htm)

-- 呼―ネ -- 祇ら戳 2004-03-17

盢"54883661"锣"きκ窾せκせ"ㄧ计 <% '################################ 'ㄧ计┰计锣いゅ计ㄧ计 '呼―ネ 'QQ:54883661 date:2002.3.7 '################################ function chnumstr(num) strlen=len(num) for i=1 to strlen select case mid(num,i,1) case 1:chnum="":case 2:chnum="":case 3:chnum="":case 4:chnum="":case 5:chnum="き" case 6:chnum="せ":case 7:chnum="":case 8:chnum="":case 9:chnum="":case 0:chnum="箂" end select chnumstr=chnumstr&chnum if i=strlen-1 and mid(num,i,1)<>0 then chnumstr=chnumstr&"" if i=strlen-2 and mid(num,i,1)<>0 then chnumstr=chnumstr&"κ" if i=strlen-3 and mid(num,i,1)<>0 then chnumstr=chnumstr&"" if i=strlen-4 and mid(num,i,1)<>0 then chnumstr=chnumstr&"窾" if i=strlen-5 and mid(num,i,1)<>0 then chnumstr=chnumstr&"" if i=strlen-6 and mid(num,i,1)<>0 then chnumstr=chnumstr&"κ" if i=strlen-7 and mid(num,i,1)<>0 then chnumstr=chnumstr&"" if i=strlen-8 and mid(num,i,1)<>0 then chnumstr=chnumstr&"窾" next end function %> <% response.write chnumstr(54883661) '案QQ腹54883661 %>

webasp.net