求助 textarea显示的问题！
有一access数据表，有studentname,studnentkaohao,studentdanwei,zgttm1,zgttm2,均为文本字段,zgtda1、zgtda2为备注字段，用来存放较多的文字。想实现在当前页面下通过textarea显示zgtda1和zgtda2的内容，打印。现在出现的都是乱码，高手救命，快崩溃了<!--#include file="conn.asp"-->
<html >
<head>
<title>主观题阅卷</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<center class="Noprint" >
<p>
<OBJECT id=WebBrowser classid=CLSID:8856F961-340A-11D0-A96B-00C04FD705A2 height=0 width=0>
</OBJECT>
<input type=button value=打印 onclick=document.all.WebBrowser.ExecWB(6,1)>
<input type=button value=直接打印 onclick=document.all.WebBrowser.ExecWB(6,6)>
<input type=button value=页面设置 onclick=document.all.WebBrowser.ExecWB(8,1)>
</p>
<p>
<input name="button" type=button onClick=document.all.WebBrowser.ExecWB(7,1) value=打印预览>
<input type="button" name="Submit" value="下一条">
</p>
</center>
<%
'function encode(str)
'str = Replace(str, " <br> ", "[br] ")
'str = Replace(str, "> ", "> ")
'str = Replace(str, " < ", "< ")
'str = Replace(str, CHR(32), " ")
'str = Replace(str, CHR(34), "" ")
'str = Replace(str, CHR(39), "' ")
'str = Replace(str, CHR(13) & CHR(10), "[br] ")
'str = Replace(str, "[br] ", " <BR> ")
'encode=str
'end function
%>
<%
dim rs,sql,strzgtda1
set rs = server.createobject("adodb.recordset")
sql="select * from zgtda "
rs.open sql,conn,1,1
%>
<table width="100%" height="100%" border="1" align="center" ">
<tr>
<td colspan="3" ><div align="left">准考证号: <%=rs("studentkaohao")%></div>
<div align="left">考生姓名: <%=rs("studentname")%> </div>
<div align="left">工作单位: <%=rs("studentdanwei")%></div>
</td>
</tr>
<tr>
<td width="36%" height="37"><div align="center">题目</div></td>
<td width="50%"><div align="center">考生答案</div></td>
<td width="14%"><div align="center">得分</div></td>
</tr>
<tr>
<td height="37"><%=rs("zgttm1") %> </td>
<td><textarea name="zgtda1" cols="70" rows="4" id="zgtda1"><%=rs("zgtda1")%></textarea>
</td>
<td> </td>
</tr>
<tr>
<td height="37"><%= rs("zgttm2") %></td>
<td><textarea name="zgtda2" cols="70" rows="4" id="zgtda2"><%=rs("zgtda2")%></textarea>
</td>
<td> </td>
</tr>
</table>
<%
rs.close
set rs=nothing
call endConnection()
%>
<label></label>
</body>
</html>
