高分急求助，ASP多条记录传递显示，超过200条无法传递
我一个程序，2个页面，A页是输入号码段的，比如输入1-10000，B页面要接收1-10000，并显示出相关数据，可是我输入1-200没问题，但是假如输入1-1000的话根本没反应了，B页面接收不到。
急死了，谁帮我下，可以加我QQ757197，解决了再追加200分！
A页面负责传递的代码部分：
rs.Open sql_r,conn,1,3
if not rs.eof then
r_str=""
do while not rs.eof
r_ma = rs("id")
r_str= r_str&"$$"&r_ma
rs.movenext
loop
else
response.write "<script>alert('「"&ma1&"-"&ma0&"」本号段不存在，或者已经兑换');history.go(-1);</Script>"
Response.End
end if
r_str = right(r_str,len(r_str)-2)
'response.write r_str
r_num = UBound(split(r_str,"$$"))+1
response.Write"<script language=javascript>alert('该 「" &ma1& " - "&ma0&"」 共有"&r_num&"未兑换');this.location.href='manage_cashed_all_ok_ok.asp?r_str="&r_str&"&r_q="&request("productdateyear1")&","&request("productdatemonth1")&"';</script>"
Response.End
end if%>
参考答案:<%rs.Open sql_r,conn,1,3
if not rs.eof then
r_str=""
do while not rs.eof
r_ma = rs("id")
r_str= r_str&"$$"&r_ma
rs.movenext
loop
else
response.write "<script>alert('「"&ma1&"-"&ma0&"」本号段不存在，或者已经兑换');history.go(-1);</Script>"
Response.End
end if
r_str = right(r_str,len(r_str)-2)
'response.write r_str
r_num = UBound(split(r_str,"$$"))+1
response.Write"<FORM name=ssub METHOD=POST ACTION=manage_cashed_all_ok_ok.asp><INPUT TYPE=hidden NAME=r_str><INPUT TYPE=hidden NAME=r_q></FORM><script language=javascript>alert('该 「" &ma1& " - "&ma0&"」 共有"&r_num&"未兑换');ssub.r_str.value='"&r_str&"';ssub.r_q.value='"&request("productdateyear1")&","&request("productdatemonth1")&"';ssub.submit()</script>"
Response.End
end if%>