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

nopainsnogain 2011-11-17 04:58:25

...全文

155 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

nopainsnogain 2011-11-18

打赏
举报

搞定，。。谢谢

nopainsnogain 2011-11-17

打赏
举报

放在哪里

默默不得鱼 2011-11-17

打赏
举报

中文要server.UrlEncode和UrlDecode

nopainsnogain 2011-11-17

打赏
举报

这是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 if



Dim 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.Binary



Set 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

%>