日期:2014-05-17  浏览次数:20813 次

asp简体转繁体要怎么实现?
网上找了很多关于转繁体的代码。都是函数,但是我看很多好像只是在页面的地址后加一个参数就可以改变编码了。这个要怎么做呢?我现在是用是utf-8的编码。。还请知道的通知指点指点

------解决方案--------------------
http://www.baidu.com/s?wd=asp%BC%F2%CC%E5%D7%AA%B7%B1%CC%E5%D2%AA%D4%F5%C3%B4%CA%B5%CF%D6&rsv_bp=0&ch=5&tn=maxthon2&bar=&rsv_spt=3&n=2&inputT=1110
------解决方案--------------------
http://zhidao.baidu.com/question/4409639.html
这里有你想要的答案
------解决方案--------------------
1.gb.asp 


<% 
获取服务器生成的html代码 
function gethttppage(url) 
dim xmlhttp 
set xmlhttp=server.createobject("microsoft.xmlhttp") 
xmlhttp.open "get",url,false 
xmlhttp.send() 
gethttppage=http.responsetext 
if xmlhttp.readystate<>4 then exit function 
gethttppage=bytes2bstr(xmlhttp.responsebody) 
set xmlhttp=nothing 
if err.number<>0 then err.clear 
end function 
function bytes2bstr(vin) 
dim bytesstream,stringreturn 
set bytesstream = server.createobject("adodb.stream") 
bytesstream.type = 2 
bytesstream.open 
bytesstream.writetext vin 
bytesstream.position = 0 
bytesstream.charset = "gb2312" 
bytesstream.position = 2 
stringreturn =bytesstream.readtext 
bytesstream.close 
set bytesstream = nothing 
bytes2bstr = stringreturn 
end function 

转换函数中的页面分隔输出函数 
sub splitwords(words) 
into=words 
out="" 
response.write "共有字数:"&len(into)&"<br>" 
for i=1 to len(into) 循环遍历每个字符 
response.write "现在循环"&i&"/"&len(into)&"次,并开始检测字符"&mid(into,i,1)&"<br>" 
if ascw(mid(into,i,1))<0 or ascw(mid(into,i,1))>255 then 如果是简体中文,进入检测阶段 
code=instr(application("gb"),mid(into,i,1)) 获取此字符在简体字库中的位置 
if code then如果在简体字库中出现 
out=out&mid(application("other_language"),code,1) 输出在繁体字库中相应的繁体字 
response.write "现在输出繁体第"&i&"个字符:"&mid(application("other_language"),i,1)&"<br>" 
else 
out=out&mid(into,i,1) 原样输出 
response.write "现在输出简体第"&i&"个字符"&mid(into,i,1)&"<br>" 
end if 
else 
out=out&mid(into,i,1) 原样输出 
response.write "现在输出简体第"&i&"个字符"&mid(into,i,1)&"<br>" 
end if 
next 
response.write out 
end sub 

转换函数 
function change(words) 
dim gb,other_language,into,out,code,wordsnum,i 
wordsnum=300 大页面字符数定义 
定义简体字库 
application("gb")="万与专业丛东丝丢两严丧个临为丽举义乌乐乔习乡书买乱争亏亘亚产亩亲亵亿仅从仑仓仪们价众优会伛伞伟传伤伥伦伧伪伫体佥侠侣侥侦侧侨侩侪侬俣俦俨俩俪俭债倾偬偻偾偿傥傧储傩儿兑兖党兰关兴兹养兽冁内冈册写军农冯冲决况冻净凄凉减凑凛凤凫凭凯击凿刍刘则刚创删别刭刹刽刿剀剂剐剑剥剧劝办务劢动励劲劳势勋匀匦匮区医华协单卖卢卤卧卫却卺厂厅历厉压厌厍厕厢厣厦厨厩县叁参双发变叙叠叶号叹叽吓吕吗吨听启吴呐呒呓呕呖呗员呙呛呜咏咙咛响哑哒哓哔哕哗哙哜哝哟唛唠唢唤啧啬啭啮啸喷喽喾嗫嗳嘘嘤嘱噜嚣团园囱围囵国图圆圣圹场坏块坚坛坜坝坞坟坠垄垆垒垦垩垫垭垲埘埙埚堑堕墙壮声壳壶处备复够头夹夺奁奂奋奖奥妆妇妈妩妪妫姗娄娅娆娇娈娱娲娴婴婵婶媪嫒嫔嫱嬷孙学孪宁宝实宠审宪宫宽宾寝对寻导寿将尔尘尝尧尴尽层屉届属屡屦屿岁岂岖岗岘岚岛岭岿峄峡峤峥峦崂崃崭嵘嵛嵝巅巩巯币帅师帏帐帜带帧帮帱帻帼幂广庆庐庑库应庙庞废廪开异弃弑张弥弪弯弹强归当录彦彻径徕忆忏忧忾怀态怂怃怄怅怆怜总怼怿恋恒恳恶恸恹恺恻恼恽悦悫悬悭悯惊惧惨惩惫惬惭惮惯愠愤愦慑懑懒懔戆戋戏戗战戬户执扩扪扫扬扰抚抛抟抠抡抢护报担拟拢拣拥拦拧拨择挚挛挝挞挟挠挡挢挣挤挥捞损捡换捣据掳掴掷掸掺掼揽揿搀搁搂搅携摄摅摆摇摈摊撄撑撵撷撸撺擞攒敌敛数斋斓斩断无旧时旷昙昼显晋晓晔晕晖暂暧术机杀杂权条来杨杩极构枞枢枣枥枨枪枫枭柠柽栀栅标栈栉栊栋栌栎栏树栖样栾桠桡桢档桤桥桦桧桨桩梦检棂椁椟椠椤椭楼榄榇榈榉槛槟槠横樯樱橥橱橹橼檩欢欤欧歼殁殇残殒殓殚殡殴毁毂毕毙毡毵氇气氢氩氲氽汇汉汤汹沟没沣沤沥沦沧沩沪泞泪泶泷泸泺泻泼泽泾洁洒洼浃浅浆浇浈浊测浍济浏浑浒浓浔涛涝涞涟涠涡涣涤润涧涨涩淀渊渌渍渎渐渑渔渖渗温湾湿溃溅溆滗滚滞滟滠满滢滤滥滦滨滩潆潇潋潍潜潴澜濑濒灏灭灯灵灾灿炀炉炖炜炝点炼炽烁烂烃烛烟烦烧烨烩烫烬热焕焖焘爱爷牍牵牺犊状犷犹狈狞独狭狮狯狰狱狲猃猎猕猡猪猫献獭玑玛玮环现玺珏珐珑珲琏琐琼瑶瑷璎瓒瓯电画畅畲畴疖疗