这是什么乱码，我用ASP接JS数据出现的，想知道怎么解决

解决方案 »

  1.   


    上面图片显示不了,是这个图片,这是什么乱码?
    我用ASP接JS数据出现的，想知道怎么解决
      

  2.   

    这是JS代码，打开一个新窗口，
    <script type="text/javascript">
    function doPrint(){  var str ='<body onload="window.print()"><br>'+document.getElementById("cerbgprint").innerHTML + '</body></html>';
      w = window.open("", "", "");
      w.document.write(str );
      w.document.close();
    }
    </script>新窗口里有个图片显示代码<img src="http://localhost/rcpx/showimgwz/getwzpic.asp?showwzpic=宁留莆" />
    getwzpic.asp个源码是
    <%
    response.charset="gb2312"Response.Buffer = True
    Response.ExpiresAbsolute = Now() - 1
    Response.Expires = 0
    Response.CacheControl = "no-cache"dim showwzpic
    showwzpic=trim(request.QueryString("showwzpic"))Dim zNum,CnText,urlget
    Randomize timer
    zNum = cint(9*Rnd)
    CnText=""
    'for i=1 to 4
    'CnText=CnText&Mid(newString,Int(Rnd()*498)+1,1)
    CnText=showwzpic'CnText&Mid(newString,Int(Rnd()*498)+1,1)
    'next
    'TargetFile="GetCode/"&zNum&".gif"
    if trim(request.QueryString("leixing"))="jb" then
    TargetFile="showimg/showbg_jb.gif"
    else
    TargetFile="showimg/showbg.gif"
    end ifDim Jpeg
    Set Jpeg = Server.CreateObject("Persits.Jpeg") 
    If Err.Number=-2147221005 then 
    Response.write "没有这个组件，请安装!"'
    Response.End() 
    End If 
    Jpeg.Open Server.MapPath(TargetFile)
    If err.number then 
    Response.write"打开图片失败,请检查路径！" 
    Response.End() 
    End if 
    Dim TempA 
    Dim TempB
    Dim TempC
    TempA=Jpeg.Binary
    '==========================Jpeg.Canvas.Font.Family = "宋体"
    Jpeg.Canvas.Font.Bold = false
    Jpeg.Canvas.Font.Size = 14
    Jpeg.Canvas.Font.ShadowColor = &H000000
    Jpeg.Canvas.Font.ShadowYOffset = 0 
    Jpeg.Canvas.Font.ShadowXOffset = 0 
    Jpeg.Canvas.Brush.Solid = True 
    Jpeg.Canvas.Font.Quality = 0
    Jpeg.Canvas.PrintText 10,15,CnText
    TempB=Jpeg.BinarySet MyJpeg = Server.CreateObject("Persits.Jpeg") 
    MyJpeg.OpenBinary TempA 
    Set Logo = Server.CreateObject("Persits.Jpeg") 
    Logo.OpenBinary TempB 
    MyJpeg.DrawImage 0,0, Logo, 0.8
    TempC=MyJpeg.Binary
    response.BinaryWrite TempC
    set TempA=nothing 
    set TempB=nothing 
    set TempC=nothing 
    Jpeg.close 
    MyJpeg.Close 
    Logo.Close
    %>
    后出现了