如何动态输出utf-8

[伊能静]

这个：<%=addr%>
是从数据库中调出，但数据库是gb2312的，我要他输出utf-8。怎么做？
谢谢。

[yyusnO]

<script>
var mode="zhuan";
function encode(obj,btn){
if(mode=="zhuan"){
obj.value=obj.value.replace(/[^\u0000-\u00FF]/g,function($0){return escape($0).replace(/(%u)(\w{4})/gi,"&#x$2;")});
btn.value="还原";
mode="huan";
}else{
obj.value=unescape(obj.value.replace(/&#x/g,'%u').replace(/;/g,''));
btn.value="转化";
mode="zhuan";
}
}
</script>
这个是ｊｓ

[伊能静]

也不可以。呼呼。

[EexeNet]

唉,你把文章提供出来吧,我帮你弄好它的...

[伊能静]

谢谢高手。代码很简单，就一个文件：
代码全部在这里：
http://www2.zhuatu.com/lover/2.txt
改为.asp
下面是程序需要用的数据库：
http://www2.zhuatu.com/lover/QQWry.Dat

[xiaojing7]

没办法

[underone]

等高手

[伊能静]

其他都不是乱码，就是<%=addr%> 这是乱码。
是不是要函数转换一下？怎么做？

[文盲老顾]

<%
response.write C4Code(addr,"GB2312","UTF-8")
' 该方法未测试

' C4Code(vStr,FromCharset,ToCharset)
' 转换字符串编码
'
' #####################################################
'
' vStr 为原始字符串
' FromCharset 为原始编码
' ToCharset 为转换后编码
'
' #####################################################
'

Function C4Code(vStr,FromCharset,ToCharset)
	Dim File
	Set File = server.CreateObject("Adodb.Stream")
	File.Charset = ToCharset
	File.Mode = 3
	File.Open
	File.Type = 2
	File.Position = 0
	File.WriteText vStr
	File.Position = 0
	File.Charset = FromCharset
	C4Code = File.ReadText
End Function
%>

[伊能静]

谢谢。还是不行。
页面是utf-8，<%=addr%>是从QQWry.dat这个数据库中调出，页面中其他都不是乱码，就是 <%=addr%> 这是乱码。

难道没办法？

[文盲老顾]

把结果打上来看下

[伊能静]

http://www2.zhuatu.com/lover/1.asp

[伊能静]

您这代码如何用？我是放在上部。还要怎么做？是不是我用错了？谢谢。

[wtogether]

已经测试了你的代码,只要在代码前加上
Response.Charset = "UTF-8"
就可以显示正确

[qinqinhao]

顶

[文盲老顾]

http://www2.zhuatu.com/lover/QQWry.Dat 404 file not found

你在输出的时候加编码函数

<%=addr%>

==>

<%=C4Code(addr,"GB2312","UTF-8")%>

try this

[伊能静]

还是不行。555。

QQWry.Dat 在这里下载：
http://update.cz88.net/soft/qqwry.rar

麻烦高手看看。难道真的没任何办法？

[chinastorm]

关注！

[文盲老顾]

貌似我也没办法了，不过我改了下部分内容，可以将输出结果以 urlEnCode 编码后的结果输出，然后使用一下 ajax 取得编码后的内容。。。比较麻烦

修改后的代码如下

http://x-bs.com/test.rar

修正内容

	Private Function GetStr() 
		Dim c
		GetStr = ""
		Do While (True)
			c = AscB(Stream.Read(1))
			If (c = 0) Then Exit Do 
			
			'如果是双字节，就进行高字节在结合低字节合成一个字符
			If c > 127 Then
				If Stream.EOS Then Exit Do
				GetStr = GetStr & "%" & Hex(C) & "%" & Hex(AscB(Stream.Read(1)))   ' <-- 修改后的内容
'				GetStr = GetStr & Chr(AscW(ChrB(AscB(Stream.Read(1))) & ChrB(C)))   ' <-- 修改前的内容
			Else
				GetStr = GetStr & Chr(c)
			End If
		Loop 
	End Function

[wtogether]

转换没问题,是你自己的代码问题
<%@language="vbscript"%>
<%
response.write C4Code(addr,"GB2312","UTF-8")'这里的addr是空白字符
.....
在最后
<%=addr%>这里还是GBK

[伊能静]

谢谢superwfei 。
wtogether ，那怎么做才正确？