源程序请教：为什么不能存放超过9000个字的文章

with2000 2000-07-03 03:38:00

我用text字段来接受textarea传进来的文章，但是当文章字数超过9000字时，
提交的时候没有报错，但是显示的时候只有9000字的内容，那位高手能够指点指点？

--------------add.asp---------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name=form1 action=sub.asp method=post>
<P>标题：<INPUT id=text1 name=topic></P>
<P>内容：</P>
<P><TEXTAREA id=TEXTAREA1 name=content style="HEIGHT: 329px; WIDTH: 610px"></TEXTAREA> </P>
<P> <INPUT id=submit1 name=submit1 type=submit value=Submit>
<INPUT id=reset1 name=reset1 type=reset value=Reset>
</P>
</form>
<P> </P>
</BODY>
</HTML>
-----------------------------sub.asp----------------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'topic = Request.QueryString("topic")
'content = request.QueryString("content")
topic = Request("topic")
content = request("content")
Response.Write "topic="+topic
Response.Write "******"
'Response.Write content
Response.Write "<p>length of topic: "
Response.Write len(topic)
Response.Write "******length of content: "
Response.Write len(content)

Response.Write "<p>byte of topic: "
Response.Write lenb(topic)
Response.Write "******byte of content: "
Response.Write lenb(content)

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=MSDASQL;driver={SQL Server};server=test;database=test;UID=sa;PWD="
set rs = Server.CreateObject("ADODB.RecordSet")

conn.Execute ("insert into atable values('"+topic+"','"+content+"')")
Response.Write "<p>insert ok"
%>

</BODY>
</HTML>

-------------------------list.asp--------------------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "provider=MSDASQL;driver={SQL Server};server=test;database=test;UID=sa;PWD="
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from atable",conn,3
do while not rs.EOF
%>
<table border=0 width=100% style="font-size:14px">
<tr><td>标题<td><%=rs(1)%>*****<%=len(rs(2))%>
<tr><td>内容<td><%=rs(2)%>
</table>

<% rs.MoveNext
loop
%>
<P> </P>

</BODY>
</HTML>

...全文