当前位置：首页 → 问答吧 → 本地测试没问题，传到服务器上出现乱码?

本地测试没问题，传到服务器上出现乱码?

时间：2011-10-06

来源：互联网

个人网站，在本地址测试没问题。
传到服务器上去后，网站地址:http://www.jhsybin.com/flash/ ，点"博客日志"（用的PJBlog3程序）后，主页就出乱码，关闭浏览器，再重新打开又正常了，但一点点"博客日志"又出来乱码。

如“站点日志”asp页面：http://www.jhsybin.com/flash/webNews.asp 点"博客日志"后，这个页面就有乱码。
“站点日志”asp代码如下，是不是这里代码有问题？
VBScript code


<%@ Language=VBScript %>
<!--#include file="webConn.asp" -->
<%
Dim PageSize
dim rs

PageSize=15

Dim i 
Dim intPageCount
Dim intRecordCount
Dim page
if  isempty(Request("Page")) then
    Page=1
else
    if isnumeric(request("page")) then
        on error resume next
        Page=clng(abs(Request("Page")))
        if err.number<>0 then
            Page=1
            err.clear
        end if
        on error goto 0
    else
        Page=1
    end if
end if

Response.ContentType = "text/xml"
Response.Expires = -1
Response.Write "<?xml version='1.0' encoding='GB2312'?>"
Response.Write "<threads "

Set rs=Server.CreateObject("ADODB.RecordSet")
    rs.Open "select * from news order by id desc",con,3

    intRecordCount=rs.RecordCount
    if not (rs.EOF and rs.BOF) then
        rs.PageSize=PageSize
        intPageCount=rs.PageCount
        if page>intPageCount then
            page=intPageCount
        end if
        rs.AbsolutePage=Page
        
        Response.Write "PageCount="""&intPageCount&""" RecordCount="""&intRecordCount&""" AdminLog="""&AdminLogFlag&""">"
        
        for i=1 to pagesize
            if rs.EOF then
                exit for
            end if
        Response.Write "<message>"
        
        Response.Write "<id>"
        Response.Write rs("id")
        Response.Write "</id>"
        
        Response.Write "<date>"
        Response.Write rs("date")
        Response.Write "</date>"

        Response.Write "<body><![CDATA["
        Response.Write rs("content")
        Response.Write "]]></body>"

        Response.Write "</message>"
        rs.MoveNext
        NEXT
    END IF 

    rs.Close
    Set rs=nothing
Response.Write "</threads>"
%>