|
|
 |
 |
 |
在线留言 |
|
 |
<%
sql2="select * from [book] where 用户='"& user & "'order by ID desc"
sqlrunNum=sqlrunNum + 1
set gbook=server.createobject("adodb.recordset")
gbook.open sql2,conn,1,1
if gbook.eof and gbook.bof then
%>
<%else
'如果有人已经留言了。
%>
<%
dim temptable '用来控制在最上面不显示吊链
temptable = 0
gbook.pagesize=rs("count")
gbook.absolutepage=1
if request("page")<>"" then gbook.absolutepage=request("page")
rowcount=gbook.pagesize
total=gbook.recordcount
do while not gbook.eof and rowcount>0
if request("page")<>"" then
t=rowcount+total-request("page")*gbook.pagesize
else t=rowcount+total-gbook.pagesize
end if
%>
<%if temptable<>0 then%>
<%end if
temptable=1
%>
| 第 <%=t%> 条留言 留言者:<%=gbook("昵称")%> 主题:<%if not gbook("title")="" then%><%=gbook("title")%><%else%><%=left(gbook("内容"),20)%><%end if%> |
<%if gbook("image")<>"" then%>
<% if session("book_session")=gbook("用户") then%>
[密] <%=gbook("内容")%> <%else%>
此留言为悄悄话,留言内容只有版主才能查看……[密] <%end if%>
<%else%>
<%=gbook("内容")%> <%end if%>
|
<% if not gbook("回复")="" then %>
|
〖版主回复〗 |
<%=gbook("回复")%> |
<%end if%>
|
|
<%
gbook.movenext
rowcount=rowcount-1
loop
%>
| 第 [
<%
if gbook.pagecount>0 then
for i=1 to gbook.pagecount
response.write " " & i & ""
next
end if%>
] 页
<%
endtime=timer()
response.Write(" 程序执行了:"&formatnumber((endtime-starttime)*1000,5)&"毫秒,查询了"&sqlrunNum&"次数据库。")
%>
|
|