<?xml version=""1.0"" encoding=""utf-8""?> asp 中文写入数据库乱码
如果将编码改成encoding=""GBK""或别的，则页面全部乱码！
请高手赐教！
<%
Response.ContentType="application/xml"
Response.Expires=0
Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>")
dim qid,aid,rid,co,rss,ssql,plnum,uip
uip=Request.ServerVariables ("HTTP_X_FORWARDED_FOR")
....
if UserLogined=True then uip=name
sql="select * from comment"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
...
rs("content")=co
rs("commname")=uip
rs.update
rs.Close
if aid>0 then
call conn.Execute("Update Reply Set comments=comments+1 where id="&aid)
else
call conn.Execute("Update Question Set comments=comments+1 where id="&qid)
end if
set rs=nothing
if int(wdvcfen)<int(wdd7) then Call conn.Execute("update [user] set wdzfen=wdzfen+"&wdd4&",wdvcfen=wdvcfen+"&wdd4&" ,LastwdTime=now() where Userid="&uid&"")
end if
ssql="select * from comment where qid="& qid & " and rid=" & aid &" order by id desc"
set rss=server.createobject("adodb.recordset")
rss.open ssql,conn,1,1
plnum=rss.recordcount
if plnum<0 then plnum=0
dim pgsize,pgnm,i,page,spage
pgsize=10
page=request("pages")
rss.pagesize=pgsize
pgnm=rss.pagecount
if page="" or clng(page)<1 then
page=1
else
page=page+1
end if
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rss.absolutepage=page
i=0
if page<2 then
spage=""
else
spage="<a href=""javascript:OpenSection('"&qid&"','"&rid&"','"&page-2&"');"">上一页</a>"
end if
if pgnm-page<1 then
spage=spage
else
spage=spage&" <a href=""javascript:OpenSection('"&qid&"','"&rid&"','"&page&"');"">下一页</a>"
end if
%>
<comment>
<result>OK</result>
<total><%=plnum%></total>
<body>
<![CDATA[
....
</table>
第一，这样看你用的什么数据库，数据库编码要个程序编码一致；
第二，可能是浏览器问题，你试着把浏览器编码调整下。
好像不能改的吧，XML就是utf-8编码的
<?xml version=""1.0"" encoding=""utf-8""?> asp 中文写入数据库乱码
你是指在数据库中保存的数据乱码么？那可能是数据库的编码问题了，你用的什么数据库
dfg