新手求助！ASP读SQLserver数据库，字段内容不能全部读出，求各位帮忙！ - 编程论坛

小弟刚刚学习ASP，自己试着写了一个很简单的ASP读取SQLSERVER数据库中的内容的程序，但字段内容不能全部被读出，不知这是为什么？请高手给看看！谢谢~~~

程序很简单：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>汉沽区体育场小学图书查询系统</title>
</HEAD>
<BODY>

  ---------------------------------------汉沽区体育场小学图书查询系统---------------------------------
<table width="800" border="1">
  <tr>
    <td>编号</td>
    <td>图书名称</td>
<td>出版社</td>
    <td>单价</td>
<td>存放位置</td>
<td>图书总数</td>
<td>现存图书数</td>
  </tr>
<%
dim strsql
dim conn,rs
dim strconn
set conn=Server.CreateObject("ADODB.Connection")
set  rs=Server.CreateObject("ADODB.Recordset")
conn.open "DSN=tixiaobook;UID=tixiao;PWD=tixiao;database=thbook;"
strsql="select * from book order by id"
rs.open strsql,conn,1,1
do while NOT rs.EOF
Response.Write"<TR>"
Response.Write"<TD>"&rs.Fields("bookid")&"</TD>"
Response.Write"<TD>"&rs.Fields("bookname")&"</TD>"

Response.Write"<TD>"&rs.Fields("publishcompany")&"</TD>"
Response.Write"<TD>"&rs.Fields("price")&"</TD>"
Response.Write"<TD>"&rs.Fields("place")&"</TD>"
Response.Write"<TD>"&rs.Fields("booktotal")&"</TD>"
Response.Write"<TD>"&rs.Fields("shengtotal")&"</TD>"

Response.Write"</TR>"
rs.MoveNext

loop

Response.Write "</TABLE>"
rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
%>
</body>
</html>

bookname  是书名字段，  程序能够读出数据库中的内容，但书名被截短（好像是6个汉字）多的就不显示了，不知道为什么？