哪位大侠，帮我修改代码加个内容分页带评论，悬赏10分谢了

<%
'读取数据库
id=request.QueryString("ps_id")

if id<>"" then
set rs=server.createobject("adodb.recordset")
sql="select * from news where id="&id
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.Write("没有该新闻")
Response.End
else
content=rs("content")
rs.update
end if
end if
'读取数据库

page=request("page")
PageLength=2000
if not isempty(page)then
page=cint(page)
else
page=1
end if
if page<1 then
page=1
end if
Length = Len(content)
PageCount = CInt(length/PageLength)
%>

<%
if page=1 then
wen= mid(content,1,1500)
response.write(wen)
else
wen= mid(content,(page-1)*pagelength,1500)
response.write(wen)
end if
%>
<%if PageCount>1 then%>

我不懂