在线求助ASP输入指定行数问题

不一定要固定行数显示，也可以固定字数显示。
用函数 left(string,num) 就可以实现。 如果你的文章是从数据库里取出来的。
<%
dim s_book,page '
s_book=rs("book") '假设文章存储在某数据表里的book字段
page=request("page")
if page="" or page=0 then 'page是页码
page=1
end if
dim pagesize,s_count
pagesize=3000 '每页显示字数

if len(s_book)\pagesize=len(s_book)/pagesize then '计算页数,如果总字数是每页字数的整数倍，那么页数等于总字数除以每页字数
s_count=len(s_book)/pagesize
else
s_count=len(s_book)\pagesize+1
end if
dim book
book=left(s_book,pagesize*(page-1)+1,pagesize)
response.write book

dim text
text=""
if page>1 then
text="<br><a herf='xxx.asp?page="&page-1&"'>"
text=text&"上一页</a>"
else
text="上一页"
end if
text=text&" "&page&"/"& s_count& " "
if page< s_count the