汉字简繁转换asp函数/asp简体转繁体(简繁转换)

汉字简繁转换asp函数/asp简体转繁体(简繁转换)

<%
@#====================================================================
@#by surnfu 030313.org  2005.04.27
@#间繁转换函数
@#调用  response.write surnfujtof("我",1)   1简到繁  2繁到简
@#字体集是在网上下载的，我发现有重复，通过函数处理掉400多个重复字符
@# 可是还是有重复，很奇怪不知道为什么处理不完全
@#下面我给出处理代码
@#如果你知道怎么回事麻烦你给我email  

@#====================================================================
@#dim l,i,surnfujian,surnfufan
@#surnfujian="同下面"
@#surnfufan="同下面"
@#l=len(surnfujian)
@#for i=1 to l Step 1
@#if StrComp(mid(surnfujian,i,1),mid(surnfufan,i,1),0)=0  then
@#surnfujian=mid(surnfujian,1,i-1)&mid(surnfujian,i+1)
@#surnfufan=mid(surnfufan,1,i-1)&mid(surnfufan,i+1)
@#end if
@#next
@#response.write surnfujian&"<br>"&surnfufan
@#====================================================================
function surnfujtof(str,types)
dim surnfujian,surnfufan,surnfujtofstr
surnfujtofstr=""
surnfujian="皑蔼碍爱翱袄奥澳靶耙坝罢摆败扳颁办绊帮绑镑谤剥雹饱宝报鲍辈贝钡狈备惫绷笔蓖毕毙闭弊臂陛边编贬变辩辫鳖别瘪濒滨宾摈饼拨钵铂驳卜补簿怖参蚕残惭惨灿苍舱仓沧厕侧册测层诧搀掺蝉馋谗缠铲产阐颤猖场尝长偿肠厂畅钞车掣彻郴尘陈衬撑称惩诚骋痴迟驰耻齿炽冲虫宠酬畴踌筹绸丑橱厨锄雏础储搐触处传疮闯创锤纯戳绰茨雌辞瓷词赐聪葱囱从丛凑醋促蹿窜瘁淬撮措错达戴带贷担单郸掸胆但惮诞弹当挡党荡档捣岛祷导盗灯邓迪敌涤递缔颠滇点垫电奠淀钓调爹蝶迭谍叠钉顶锭订东懂动栋冻斗犊独读睹赌镀锻断缎兑队对吨敦顿钝遁哆夺鹅额讹恶遏饿儿尔饵贰发罚阀珐矾钒烦范贩饭访纺飞废费纷坟奋愤粪丰枫峰锋风疯逢冯缝讽凤肤辐抚辅赋复腹负讣妇缚噶该概钙盖干赶秆赣冈刚钢纲岗皋搞镐搁鸽疙阁铬个给羹耿龚宫巩贡钩沟构购够蛊顾剐关观馆惯贯广规硅归龟闺轨诡柜贵刽辊滚锅国过骸骇韩汉阂赫鹤贺横轰鸿红后壶护沪户哗华画划话徊怀坏欢环还缓换唤痪焕涣黄蝗谎挥辉恢毁慧晦贿秽会烩汇讳诲绘荤浑伙获货祸击机稽积饥讥鸡绩缉极辑级挤几蓟剂济计记际继纪夹荚颊贾钾稼价驾歼监坚笺间艰缄茧检碱硷拣捡简俭减荐槛鉴践贱见键舰剑饯渐溅涧浆蒋桨奖讲酱椒焦胶浇骄娇搅铰矫侥脚饺缴绞教轿较揭秸阶节茎惊经景颈静敬镜径痉竟竞净纠厩旧驹举据锯惧剧鹃绢攫杰睫洁结藉诫届紧锦仅谨进晋烬尽劲荆觉决诀绝钧军俊浚骏开凯堪坎康糠颗壳课垦恳抠库裤夸块侩宽矿旷况亏岿窥奎傀馈溃扩阔蜡腊莱来赖蓝栏拦篮阑兰澜谰揽览懒缆烂滥捞劳涝乐镭垒肋类泪冷梨黎篱离理里鲤礼荔丽厉励砾历痢沥隶哩俩联莲连镰怜涟帘敛脸链恋炼练粮凉两辆谅聊疗寥辽撂镣猎临邻鳞凛赁菱龄铃凌灵岭领馏刘龙聋咙笼隆垄拢陇楼娄搂篓陋芦卢颅庐炉掳卤虏鲁赂禄录陆驴吕铝侣履屡缕虑滤绿峦挛孪滦乱抡轮伦仑沦纶论萝罗逻锣箩骡落骆络妈玛码蚂马骂吗买麦卖迈脉瞒馒蛮满谩猫锚铆贸么霉没镁门闷们蒙盟锰梦谜弥觅绵勉缅藐庙灭悯闽鸣铭谬摹谋亩钠纳难挠脑恼闹呢馁腻蔫撵捻酿鸟聂啮镊镍柠狞宁拧泞钮纽脓浓农疟懦诺欧鸥殴呕沤潘盘盼庞国山爱下赔喷鹏骗飘频贫苹凭评坡泼颇扑铺朴谱脐齐骑岂启砌气弃讫牵扦钎铅迁签谦黔钱钳潜浅谴堑歉枪呛羌墙蔷强抢锹桥乔侨撬翘窍窃钦亲轻氢倾顷请庆琼穷趋区躯驱取龋颧权痊劝炔却鹊让饶扰绕热韧认纫荣绒褥软锐闰润撒洒萨鳃赛伞嗓丧骚扫涩杀纱啥筛晒闪陕赡缮伤赏捎烧绍赊赦摄慑设绅审婶肾渗声绳胜圣师狮湿诗尸时蚀实识驶势释饰视试寿兽枢输书赎熟暑署黍属术树竖数帅双谁税瞬顺说硕烁丝饲耸怂颂讼诵艘擞苏诉肃蒜虽绥碎岁孙损笋梭缩琐锁獭挞抬酞摊贪瘫滩坛痰谭谈袒探叹汤烫涛绦腾誊锑题啼体嚏涕屉条贴铁厅听烃铜统头图涂团颓蜕退拖脱鸵驮驼椭洼袜弯湾顽万网韦违围惟为潍维苇伟伪纬谓卫温闻纹稳问翁瓮挝蜗涡窝握呜钨乌诬无芜吴坞雾务误锡牺膝檄袭习铣戏细虾辖峡侠狭厦锨鲜纤咸贤衔闲显险现献县馅羡宪限线厢镶乡详响项萧销晓啸些蝎协挟携胁谐写卸懈泻谢锌衅兴汹锈绣戌虚嘘须许绪续轩悬选癣绚薛学勋询寻驯训讯逊压鸦鸭哑亚讶咽阉烟盐严颜阎艳厌砚唁彦谚验鸯杨扬疡阳痒养样邀瑶摇尧遥窑谣药噎爷页业叶夜壹医铱颐遗仪彝蚁艺亿逸疫毅忆义诣议谊译异翌绎荫阴银饮樱婴鹰应缨莹萤营荧蝇颖哟拥佣痈雍踊咏涌优忧邮铀犹游诱盂愚舆鱼渝渔娱与屿语吁御狱誉预驭鸳渊辕园员圆源缘远愿院约跃钥岳粤悦阅云郧匀陨运蕴酝晕韵杂灾载攒暂赞赃脏遭凿枣灶责择则泽贼赠扎札轧铡闸诈斋债瞻毡盏斩辗崭蘸栈战湛绽张涨帐账胀赵蛰辙锗这甄臻贞针侦诊振镇阵挣睁狰帧郑证织职殖执纸挚掷帜质钟终种肿众诌轴皱昼骤猪诸诛烛瞩嘱贮铸筑驻专砖转赚桩庄装妆壮状锥赘坠缀谆浊兹资渍棕踪综总纵邹诅组钻致钟么为只凶准启板里雳余链泄"
surnfufan="皚藹礙愛翺襖奧澳靶耙壩罷擺敗扳頒辦絆幫綁鎊謗剝雹飽寶報鮑輩貝鋇狽備憊繃筆蓖畢斃閉弊臂陛邊編貶變辯辮鼈別癟瀕濱賓擯餅撥缽鉑駁蔔補簿怖參蠶殘慚慘燦蒼艙倉滄廁側冊測層詫攙摻蟬饞讒纏鏟産闡顫猖場嘗長償腸廠暢鈔車掣徹郴塵陳襯撐稱懲誠騁癡遲馳恥齒熾沖蟲寵酬疇躊籌綢醜櫥廚鋤雛礎儲搐觸處傳瘡闖創錘純戳綽茨雌辭瓷詞賜聰蔥囪從叢湊醋促躥竄瘁淬撮措錯達戴帶貸擔單鄲撣膽但憚誕彈當擋黨蕩檔搗島禱導盜燈鄧迪敵滌遞締顛滇點墊電奠澱釣調爹蝶叠諜疊釘頂錠訂東懂動棟凍鬥犢獨讀睹賭鍍鍛斷緞兌隊對噸敦頓鈍遁哆奪鵝額訛惡遏餓兒爾餌貳發罰閥琺礬釩煩範販飯訪紡飛廢費紛墳奮憤糞豐楓峰鋒風瘋逢馮縫諷鳳膚輻撫輔賦複腹負訃婦縛噶該概鈣蓋幹趕稈贛岡剛鋼綱崗臯搞鎬擱鴿疙閣鉻個給羹耿龔宮鞏貢鈎溝構購夠蠱顧剮關觀館慣貫廣規矽歸龜閨軌詭櫃貴劊輥滾鍋國過骸駭韓漢閡赫鶴賀橫轟鴻紅後壺護滬戶嘩華畫劃話徊懷壞歡環還緩換喚瘓煥渙黃蝗謊揮輝恢毀慧晦賄穢會燴彙諱誨繪葷渾夥獲貨禍擊機稽積饑譏雞績緝極輯級擠幾薊劑濟計記際繼紀夾莢頰賈鉀稼價駕殲監堅箋間艱緘繭檢堿鹼揀撿簡儉減薦檻鑒踐賤見鍵艦劍餞漸濺澗漿蔣槳獎講醬椒焦膠澆驕嬌攪鉸矯僥腳餃繳絞教轎較揭稭階節莖驚經景頸靜敬鏡徑痙竟競淨糾廄舊駒舉據鋸懼劇鵑絹攫傑睫潔結藉誡屆緊錦僅謹進晉燼盡勁荊覺決訣絕鈞軍俊浚駿開凱堪坎康糠顆殼課墾懇摳庫褲誇塊儈寬礦曠況虧巋窺奎傀饋潰擴闊蠟臘萊來賴藍欄攔籃闌蘭瀾讕攬覽懶纜爛濫撈勞澇樂鐳壘肋類淚冷梨黎籬離理裏鯉禮荔麗厲勵礫曆痢瀝隸哩倆聯蓮連鐮憐漣簾斂臉鏈戀煉練糧涼兩輛諒聊療寥遼撂鐐獵臨鄰鱗凜賃菱齡鈴淩靈嶺領餾劉龍聾嚨籠隆壟攏隴樓婁摟簍陋蘆盧顱廬爐擄鹵虜魯賂祿錄陸驢呂鋁侶履屢縷慮濾綠巒攣孿灤亂掄輪倫侖淪綸論蘿羅邏鑼籮騾落駱絡媽瑪碼螞馬罵嗎買麥賣邁脈瞞饅蠻滿謾貓錨鉚貿麽黴沒鎂門悶們蒙盟錳夢謎彌覓綿勉緬藐廟滅憫閩鳴銘謬摹謀畝鈉納難撓腦惱鬧呢餒膩蔫攆撚釀鳥聶齧鑷鎳檸獰甯擰濘鈕紐膿濃農瘧懦諾歐鷗毆嘔漚潘盤盼龐國山愛下賠噴鵬騙飄頻貧蘋憑評坡潑頗撲鋪樸譜臍齊騎豈啓砌氣棄訖牽扡釺鉛遷簽謙黔錢鉗潛淺譴塹歉槍嗆羌牆薔強搶鍬橋喬僑撬翹竅竊欽親輕氫傾頃請慶瓊窮趨區軀驅取齲顴權痊勸炔卻鵲讓饒擾繞熱韌認紉榮絨褥軟銳閏潤撒灑薩鰓賽傘嗓喪騷掃澀殺紗啥篩曬閃陝贍繕傷賞捎燒紹賒赦攝懾設紳審嬸腎滲聲繩勝聖師獅濕詩屍時蝕實識駛勢釋飾視試壽獸樞輸書贖熟暑署黍屬術樹豎數帥雙誰稅瞬順說碩爍絲飼聳慫頌訟誦艘擻蘇訴肅蒜雖綏碎歲孫損筍梭縮瑣鎖獺撻擡酞攤貪癱灘壇痰譚談袒探歎湯燙濤縧騰謄銻題啼體嚏涕屜條貼鐵廳聽烴銅統頭圖塗團頹蛻退拖脫鴕馱駝橢窪襪彎灣頑萬網韋違圍惟爲濰維葦偉僞緯謂衛溫聞紋穩問翁甕撾蝸渦窩握嗚鎢烏誣無蕪吳塢霧務誤錫犧膝檄襲習銑戲細蝦轄峽俠狹廈鍁鮮纖鹹賢銜閑顯險現獻縣餡羨憲限線廂鑲鄉詳響項蕭銷曉嘯些蠍協挾攜脅諧寫卸懈瀉謝鋅釁興洶鏽繡戌虛噓須許緒續軒懸選癬絢薛學勳詢尋馴訓訊遜壓鴉鴨啞亞訝咽閹煙鹽嚴顔閻豔厭硯唁彥諺驗鴦楊揚瘍陽癢養樣邀瑤搖堯遙窯謠藥噎爺頁業葉夜壹醫銥頤遺儀彜蟻藝億逸疫毅憶義詣議誼譯異翌繹蔭陰銀飲櫻嬰鷹應纓瑩螢營熒蠅穎喲擁傭癰雍踴詠湧優憂郵鈾猶遊誘盂愚輿魚渝漁娛與嶼語籲禦獄譽預馭鴛淵轅園員圓源緣遠願院約躍鑰嶽粵悅閱雲鄖勻隕運蘊醞暈韻雜災載攢暫贊贓髒遭鑿棗竈責擇則澤賊贈紮劄軋鍘閘詐齋債瞻氈盞斬輾嶄蘸棧戰湛綻張漲帳賬脹趙蟄轍鍺這甄臻貞針偵診振鎮陣掙睜猙幀鄭證織職殖執紙摯擲幟質鍾終種腫衆謅軸皺晝驟豬諸誅燭矚囑貯鑄築駐專磚轉賺樁莊裝妝壯狀錐贅墜綴諄濁茲資漬棕蹤綜總縱鄒詛組鑽緻鐘麼為隻兇準啟闆裡靂餘鍊洩"
if types=1 then  @#简到烦
surnfujtofstr=surnfujof(str,surnfujian,surnfufan)
elseif  types=2 then  @#简到烦
surnfujtofstr=surnfujof(str,surnfufan,surnfujian)
end if
surnfujtof=surnfujtofstr
end function
function surnfujof(str,str1,str2)
dim surnfufori,finlishstr,surnfulens
surnfulens=len(str)
finlishstr=""
for surnfufori=1 to surnfulens
if instr(str1,mid(str,surnfufori,1))<>0 then
finlishstr=finlishstr&mid(str2,instr(str1,mid(str,surnfufori,1)),1)
else
finlishstr=finlishstr&mid(str,surnfufori,1)
end if
next
surnfujof=finlishstr
end function
%>

原文转自：http://www.ltesting.net