谁能帮我看看这段代码怎么输出中文，为什么都是乱码

AlexJia2046 2003-12-04 10:37:48

<%@ Language=VBScript %>
<%Response.Buffer=True
Response.ContentType = "text/xml"
Response.CharSet = "GB2312"
%>
<HTML>
<HEAD>

<title>Get Source Code For any Web Page</title>
<SCRIPT LANGUAGE=javascript>

</SCRIPT>
</HEAD>
<BODY>
<form name=getsourceform method=post action=test.asp>
<SCRIPT LANGUAGE=vbscript RUNAT=Server>
Function GetHTML(strURL)
on error resume next
Dim objXMLHTTP, strReturn
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send
strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

GetHTML = strReturn
End Function
</SCRIPT>
<table width=95% align=center border=1 cellpadding=1 cellspacing=2 bordercolor=#d1d5e6 bgcolor=#f6f8fc>
<tr>
<td>
<table width=100% align=center border=0 cellpadding=1 cellspacing=2>
<tr><td colspan=2 align=center><font face=verdana size=2 color=navy><b>View Source Of Any Web Page </b></font></td></tr>
<tr>
<td align=center>
<font face=verdana size=2 color=blue>Enter URL of the file:</font>
<input type=text name=myurl <%If trim(request("myurl"))="" Then%> value="http://www.google.com" <%Else%> value="<%=trim(request("myurl"))%>" <%End If%>size=35>
<input type=button name=getbut value="Get It" onclick="javascript:getit('get')">
</td>
</tr>
</table>
</td>
</tr>
<%

myurl = trim(request("myurl"))
retval = replace(server.HTMLEncode(GetHTML(myurl)),chr(13),"<br>")

Response.Write "<?xml version=""1.0"" encoding=""GB2312""?>"
Response.Write "<tr><td><font face=verdana size=1 color=red>Source of " & myurl & " is:</font><br><font face=verdana size=1 color=black>" & retval & "</font></td></tr>"

%>
</table>
</form>
</BODY>
</HTML>

...全文