全部

如何动态输出utf-8

伊能静 2008-04-16 10:32:15

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

...全文

216 点赞收藏 30

写回复

30 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

伊能静 2008-04-17

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

回复赞

wtogether 2008-04-17

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

回复赞

文盲老顾 2008-04-17

貌似我也没办法了，不过我改了下部分内容，可以将输出结果以 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

回复赞

chinastorm 2008-04-17

关注！

回复赞

伊能静 2008-04-17

还是不行。555。

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

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

回复赞

文盲老顾 2008-04-17

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

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

<%=addr%>

==>

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

try this

回复赞

qinqinhao 2008-04-17

顶

回复赞

wtogether 2008-04-17

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

回复赞

伊能静 2008-04-16

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

回复赞

伊能静 2008-04-16

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

回复赞

文盲老顾 2008-04-16

把结果打上来看下

回复赞

伊能静 2008-04-16

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

难道没办法？

回复赞

文盲老顾 2008-04-16

<%

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

%>