Question

怎样用asp—VBScript分页显示符合要求的内容？

比如一个网站接受用户的来访留言，要求用户在留言时注明是否公开，如果是不公开的留言，则其他用户浏览时不显示。只有凭个人的用户名和密码才能看到自己想对应的非公开留言和管理员对留言的回复！
If Not rs.Bof And Not rs.Eof Then
dim page_no
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=20
rs.absolutepage=page_no
dim i
i=rs.pagesize
%>
。。。。。。
<%
do while not rs.eof and i>0
i=i-1
%>
。。。。。。
<%
rs.movenext
loop
%>
</table>
<p>
<div align="center">
<a href="main.asp"target="right"> </a>
<%
Response.Write "<div align='center'>请选择数据页: "
for i=1 to rs.pagecount
if i=page_no then
response.write i &" "
else
response.write "<a href='main.asp?page_no="&i&"'>"&i&"</a> "
end if
next
end if
%>
我不知道怎样在分页这里只显示公开的内容.... 教教我，穷，给不起分，哪天多开几个号给你刷分也得.....

Answer 1

只需要数据库中加一个字段，比如sshow为显示字段，当然用户勾选公开时，此字段输入VALUE值1，不公开输入VALUE值为0
显示页面加上对此字段的判断，如果用户登陆成功，即session("username")=true时，查询语句为select * from table
session("username")=false时，查询语句为select * from table where sshow=1
这样一来，登陆用户可以看到所有字段数据，而非登陆使用只能看到勾选了SSHOW字段，即公开被勾选的数据。