ASP页面显示乱码,该如何解决
在简体系统下开发的,数据库为ACCESS 2000,手动在数据库中添加了一些数据,汉字在繁体系统下运行显示为问号,又在前台输入保存一些数据,汉字显示为不是问号的乱码,请问是什么问题?要怎么解决?最好是不修改数据库中的语言设置.
急等,谢谢!

[解决办法]
直接转换就可以了

VB code

Function ConversionTradSimp(ConversionString, types)   Dim Chinese_Simplified, Chinese_Traditional, ReturnString, StringCount, StrPosition, TempString, X   ReturnString = ""   Chinese_Simplified = ""   Chinese_Traditional = ""   Chinese_Simplified = Chinese_Simplified & "皑蔼碍爱翱袄奥澳靶耙坝罢摆败扳颁办绊帮绑镑谤剥雹饱宝报鲍辈贝钡狈备惫绷笔蓖毕毙闭弊臂陛边编贬变辩辫鳖别瘪濒滨宾摈饼拨钵铂驳卜补簿怖参蚕残惭惨灿"   Chinese_Simplified = Chinese_Simplified & "苍舱仓沧厕侧册测层诧搀掺蝉馋谗缠铲产阐颤猖场尝长偿肠厂畅钞车掣彻郴尘陈衬撑称惩诚骋痴迟驰耻齿炽冲虫宠酬畴踌筹绸丑橱厨锄雏础储搐触处传疮闯创锤纯"   Chinese_Simplified = Chinese_Simplified & "戳绰茨雌辞瓷词赐聪葱囱从丛凑醋促蹿窜瘁淬撮措错达戴带贷担单郸掸胆但惮诞弹当挡党荡档捣岛祷导盗灯邓迪敌涤递缔颠滇点垫电奠淀钓调爹蝶迭谍叠钉顶锭订"   Chinese_Simplified = Chinese_Simplified & "东懂动栋冻斗犊独读睹赌镀锻断缎兑队对吨敦顿钝遁哆夺鹅额讹恶遏饿儿尔饵贰发罚阀珐矾钒烦范贩饭访纺飞废费纷坟奋愤粪丰枫峰锋风疯逢冯缝讽凤肤辐抚辅赋"   Chinese_Simplified = Chinese_Simplified & "复腹负讣妇缚噶该概钙盖干赶秆赣冈刚钢纲岗皋搞镐搁鸽疙阁铬个给羹耿龚宫巩贡钩沟构购够蛊顾剐关观馆惯贯广规硅归龟闺轨诡柜贵刽辊滚锅国过骸骇韩汉阂赫"   Chinese_Simplified = Chinese_Simplified & "鹤贺横轰鸿红后壶护沪户哗华画划话徊怀坏欢环还缓换唤痪焕涣黄蝗谎挥辉恢毁慧晦贿秽会烩汇讳诲绘荤浑伙获货祸击机稽积饥讥鸡绩缉极辑级挤几蓟剂济计记际"   Chinese_Simplified = Chinese_Simplified & "继纪夹荚颊贾钾稼价驾歼监坚笺间艰缄茧检碱硷拣捡简俭减荐槛鉴践贱见键舰剑饯渐溅涧浆蒋桨奖讲酱椒焦胶浇骄娇搅铰矫侥脚饺缴绞教轿较揭秸阶节茎惊经景颈"   Chinese_Simplified = Chinese_Simplified & "静敬镜径痉竟竞净纠厩旧驹举据锯惧剧鹃绢攫杰睫洁结藉诫届紧锦仅谨进晋烬尽劲荆觉决诀绝钧军俊浚骏开凯堪坎康糠颗壳课垦恳抠库裤夸块侩宽矿旷况亏岿窥奎"   Chinese_Simplified = Chinese_Simplified & "傀馈溃扩阔蜡腊莱来赖蓝栏拦篮阑兰澜谰揽览懒缆烂滥捞劳涝乐镭垒肋类泪冷梨黎篱离理里鲤礼荔丽厉励砾历痢沥隶哩俩联莲连镰怜涟帘敛脸链恋炼练粮凉两辆谅"   Chinese_Simplified = Chinese_Simplified & "聊疗寥辽撂镣猎临邻鳞凛赁菱龄铃凌灵岭领馏刘龙聋咙笼隆垄拢陇楼娄搂篓陋芦卢颅庐炉掳卤虏鲁赂禄录陆驴吕铝侣履屡缕虑滤绿峦挛孪滦乱抡轮伦仑沦纶论萝罗"   Chinese_Simplified = Chinese_Simplified & "逻锣箩骡落骆络妈玛码蚂马骂吗买麦卖迈脉瞒馒蛮满谩猫锚铆贸么霉没镁门闷们蒙盟锰梦谜弥觅绵勉缅藐庙灭悯闽鸣铭谬摹谋亩钠纳难挠脑恼闹呢馁腻蔫撵捻酿鸟"   Chinese_Simplified = Chinese_Simplified & "聂啮镊镍柠狞宁拧泞钮纽脓浓农疟懦诺欧鸥殴呕沤潘盘盼庞国山爱下赔喷鹏骗飘频贫苹凭评坡泼颇扑铺朴谱脐齐骑岂启砌气弃讫牵扦钎铅迁签谦黔钱钳潜浅谴堑歉"   Chinese_Simplified = Chinese_Simplified & "枪呛羌墙蔷强抢锹桥乔侨撬翘窍窃钦亲轻氢倾顷请庆琼穷趋区躯驱取龋颧权痊劝炔却鹊让饶扰绕热韧认纫荣绒褥软锐闰润撒洒萨鳃赛伞嗓丧骚扫涩杀纱啥筛晒闪陕"   Chinese_Simplified = Chinese_Simplified & "赡缮伤赏捎烧绍赊赦摄慑设绅审婶肾渗声绳胜圣师狮湿诗尸时蚀实识驶势释饰视试寿兽枢输书赎熟暑署黍属术树竖数帅双谁税瞬顺说硕烁丝饲耸怂颂讼诵艘擞苏诉"   Chinese_Simplified = Chinese_Simplified & "肃蒜虽绥碎岁孙损笋梭缩琐锁獭挞抬酞摊贪瘫滩坛痰谭谈袒探叹汤烫涛绦腾誊锑题啼体嚏涕屉条贴铁厅听烃铜统头图涂团颓蜕退拖脱鸵驮驼椭洼袜弯湾顽万网韦违"   Chinese_Simplified = Chinese_Simplified & "围惟为潍维苇伟伪纬谓卫温闻纹稳问翁瓮挝蜗涡窝握呜钨乌诬无芜吴坞雾务误锡牺膝檄袭习铣戏细虾辖峡侠狭厦锨鲜纤咸贤衔闲显险现献县馅羡宪限线厢镶乡详响"   Chinese_Simplified = Chinese_Simplified & "项萧销晓啸些蝎协挟携胁谐写卸懈泻谢锌衅兴汹锈绣戌虚嘘须许绪续轩悬选癣绚薛学勋询寻驯训讯逊压鸦鸭哑亚讶咽阉烟盐严颜阎艳厌砚唁彦谚验鸯杨扬疡阳痒养"   Chinese_Simplified = Chinese_Simplified & "样邀瑶摇尧遥窑谣药噎爷页业叶夜壹医铱颐遗仪彝蚁艺亿逸疫毅忆义诣议谊译异翌绎荫阴银饮樱婴鹰应缨莹萤营荧蝇颖哟拥佣痈雍踊咏涌优忧邮铀犹游诱盂愚舆鱼"   Chinese_Simplified = Chinese_Simplified & "渝渔娱与屿语吁御狱誉预驭鸳渊辕园员圆源缘远愿院约跃钥岳粤悦阅云郧匀陨运蕴酝晕韵杂灾载攒暂赞赃脏遭凿枣灶责择则泽贼赠扎札轧铡闸诈斋债瞻毡盏斩辗崭"   Chinese_Simplified = Chinese_Simplified & "蘸栈战湛绽张涨帐账胀赵蛰辙锗这甄臻贞针侦诊振镇阵挣睁狰帧郑证织职殖执纸挚掷帜质钟终种肿众诌轴皱昼骤猪诸诛烛瞩嘱贮铸筑驻专砖转赚桩庄装妆壮状锥赘"   Chinese_Simplified = Chinese_Simplified & "坠缀谆浊兹资渍棕踪综总纵邹诅组钻致钟么为只凶准启板里雳余链泄"   Chinese_Traditional = Chinese_Traditional & "澳靶耙扳雹蓖弊臂陛簿怖"   Chinese_Traditional = Chinese_Traditional & "猖掣郴酬搐"   Chinese_Traditional = Chinese_Traditional & "戳茨雌瓷醋促瘁淬撮措戴但迪滇奠爹蝶叠"   Chinese_Traditional = Chinese_Traditional & "懂睹敦遁哆遏峰逢"   Chinese_Traditional = Chinese_Traditional & "腹噶概搞疙羹耿矽骸赫"   Chinese_Traditional = Chinese_Traditional & "後徊蝗恢慧晦夥稽"   Chinese_Traditional = Chinese_Traditional & "稼椒焦教揭景"   Chinese_Traditional = Chinese_Traditional & "敬竟攫睫藉俊浚堪坎康糠奎"   Chinese_Traditional = Chinese_Traditional & "傀肋冷梨黎理荔痢哩"   Chinese_Traditional = Chinese_Traditional & "聊寥撂菱隆陋履"   Chinese_Traditional = Chinese_Traditional & "落麽蒙盟勉藐摹呢蔫"   Chinese_Traditional = Chinese_Traditional & "甯懦潘盼山下坡砌黔歉"   Chinese_Traditional = Chinese_Traditional & "羌撬取痊炔褥撒嗓啥"   Chinese_Traditional = Chinese_Traditional & "捎赦熟暑署黍瞬艘"   Chinese_Traditional = Chinese_Traditional & "蒜碎梭酞痰袒探啼嚏涕退拖"   Chinese_Traditional = Chinese_Traditional & "惟翁握膝檄限"   Chinese_Traditional = Chinese_Traditional & "些卸懈戌薛咽唁"   Chinese_Traditional = Chinese_Traditional & "邀噎夜壹逸疫毅翌雍盂愚"   Chinese_Traditional = Chinese_Traditional & "渝源院遭瞻"   Chinese_Traditional = Chinese_Traditional & "蘸湛甄臻振殖"   Chinese_Traditional = Chinese_Traditional & "棕"   StringCount = Len(ConversionString)   If types = 1 Then      For X = 1 To StringCount         TempString = Mid(ConversionString, X, 1)         StrPosition = InStr(Chinese_Simplified, TempString)         If Int(StrPosition) <> 0 Then            ReturnString = ReturnString & Mid(Chinese_Traditional, StrPosition, 1)         Else            ReturnString = ReturnString & TempString         End If      Next   ElseIf types = 2 Then      For X = 1 To StringCount         TempString = Mid(ConversionString, X, 1)         StrPosition = InStr(Chinese_Traditional, TempString)         If Int(StrPosition) <> 0 Then            ReturnString = ReturnString & Mid(Chinese_Simplified, StrPosition, 1)         Else            ReturnString = ReturnString & TempString         End If      Next   End If   ConversionTradSimp = ReturnStringEnd Function 
 
[解决办法]
乱码产生的环节有存储、传输、显示。

如果你首先单独用 Access 打开都不能正确显示，存储环节就有问题，说明 Access 不支持你的需求，你只能在一个语言环境下开发使用了。
[解决办法]
VB code
    NowLanguage = GetRequestStr("L", "zh-cn")    ...    Select Case LCase(NowLanguage)    Case "zh-cn":  MessageTitle = rs("TitleZHCN")    Case "big5":   MessageTitle = rs("TitleBIG5")    Case "en-us":  MessageTitle = rs("TitleENUS")    End Select    ...<head><% If LCase(NowLanguage) = "en-us" Then %>    <meta http-equiv="Content-Type" content="text/html; charset=utf-8">    <meta http-equiv="Content-Language" content="en-us">    <meta name="GENERATOR" content="Humanhomester ASP Editor 2.0">    <meta name="ProgId" content="ASPEdit.Editor.Document">    <title><%=MessageTitle%></title>    <SCRIPT LANGUAGE="vbscript" src="/Script/VBScript/Basic.vbs"></SCRIPT><% Else %>    <meta http-equiv="Content-Type" content="text/html; charset=gb2312">    <meta http-equiv="Content-Language" content="zh-cn">    <meta name="GENERATOR" content="Humanhomester ASP Editor 2.0">    <meta name="ProgId" content="ASPEdit.Editor.Document">    <title><%=MessageTitle%></title>    <SCRIPT LANGUAGE="vbscript" src="/Script/VBScript/Basic.vbs"></SCRIPT><% End If %>