 |
|
公司简介 | About Us |
当前位置:首页→ 在线留言 |
|
|
|
|
<%
IF (output=true and session("postboard_admin")=true) or not output=true THEN
if x0=empty or not isNUMERIC(x0) then
x0=0
elseif x0>30 then
x0=30
elseif x0<-30 then
x0=-30
end if
if x0<>0 then
rs.open "select * from message order by id "&list(x0),conn,1
maxX=1
maxY=abs(x0)
elseif x0=0 then
response.write(licence)
response.end
end if
rs.pagesize=maxX*maxY '设置和计算每页的记录数,即每页共多少图片
dim everypagesize,rscount,curpage,pgcount '每页记录数,总记录数,当前页数,总页数
everypagesize=rs.pagesize
rscount=rs.recordcount
pgcount=rs.pagecount
if request.form("page")=empty or not isNumeric(request.form("page")) then
if isNumeric(request.querystring("page")) then
curpage=cint(request.querystring("page"))
else curpage=1
end if
else
curpage=cint(request.form("page"))
end if
if curpage=empty or curpage<1 then
curpage=1
elseif curpage>pgcount then
curpage=pgcount
end if
if not rs.eof=true and not rs.bof=true then
rs.absolutepage=curpage '设置当前页数
end if
%>
<%
IF rs.eof=true and rs.bof=true THEN
%>
|
还没有任何留言
There are not any messages ! |
<%
ELSE
i=1
While not rs.eof and i<=maxY
response.write("")
response.write("")
response.write(""&rs("id")&"楼 | ")
IF rs("shield").value=true then '检查shield是否为TRUE以判断此记录是否已被屏蔽
response.write(" | ")
ELSE '否则正常显示标题
if lenB(rs("title").value)>abs(lt)*2 then
response.write(" | ")
else
response.write(" | ")
end if
END IF '检查SHIELD完毕
response.write(" ")
response.write("")
response.write("")
IF rs("shield").value=true then '检查shield是否为TRUE以判断此记录是否已被屏蔽
response.write("【作者】不显示 | 【发表时间】"&rs("date").value&" | ")
'如果是则不显示留言
response.write("")
ELSE '否则正常显示
if len(rs("name").value)<=25 then
response.write("【作者】"&rs("name").value&" | 【发表时间】"&rs("date").value&" | ")
else
response.write("【作者】"&mid(rs("name").value,1,25)&"... | 【发表时间】"&rs("date").value&" | ")
end if
response.write("【留言内容】 | "&rs("content").value&" |
")
END IF '检查SHIELD完毕
IF rs("reply")<>empty THEN' 查看有没有管理员回复,有则显示回复
response.write("
------------------------- | 【管理员回复】 | "&rs("reply").value&" |
")
END IF
response.write(" | ")
IF session("postboard_admin")=true then '最近的更新方向为管理员管理,及根限设定
response.write("管理操作 | | 回复留言 | 删除留言 | ")
if rs("shield").value=true then
response.write("解除屏蔽 | ")
else
response.write("屏蔽留言")
end if
END IF
response.write(" ")
response.write("")
i=i+1
rs.movenext
Wend
END IF
%>
<%
response.write("")
if curpage>1 then
response.write(""&chr(13)&" 上一页 ")
else
response.write(" | "&chr(13)&" ")
end if
IF curpage<10 THEN '如果当前页少于10
If pgcount>10 Then '又如果总页数大于10
for k=1 to 10 '则显示可连页数为1到10
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<当前页少于10且总页数大于10>情况处理完毕
Else '否则,即总页数小于等于10
for k=1 to pgcount '则显示可连页数为1到总页数
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next '<当前页少于10且总页数小于等于10>情况处理完毕
End if '<如果当前页数少于10>的情况处理完毕
ELSEIF curpage>=10 then '如果当前页数大于等于10
If curpage+5curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
Elseif curpage+5>=pgcount then '但如果当前页加5后大于等于总页数
for k=curpage-5 to pgcount '则显示可连页为当前页减5到总页
if k<>curpage then
response.write("["&k&"] ")
else
response.write("["&k&"] ")
end if
next
End if '<当前页大于等于10>情况处理完毕
END IF
if curpage下一页  | "&chr(13)&" ")
else
response.write(" "&chr(13)&"")
end if
response.write(" 共"&pgcount&"页 当前第"&curpage&"页 | "&chr(13)&"")
END IF
%>
<% if session("postboard_admin")=true then
response.write(" | 注销管理员登陆 | 进入管理中心")
end if
%>
|
|
|
|
 |
地址:浙江省嵊州市领带工业园区园四路11号
传真:0575-3349555 网络实名:汉邦纺机
|
版权所有©2009-2010:绍兴市汉邦纺织机械有限公司
copyright© : Shaoxing Hanbang Textile Machinery co.Ltd. |
|
尹人香蕉最国产精品香蕉,和朋友换娶妻当面做,日本精品人妻AV无码自在自线,K8性欧美经典片
精品人妻无码专区在线视频|
成a人片亚洲日本久久|
天下第一社区视频WWW日本|
久久99热精品免费观看麻豆|
bbox撕裂bass俄罗斯|
bbox撕裂bass俄罗斯|
少妇性饥渴VIDEOS|
人人妻人人澡人人爽人人精品|
翁公的巨物挺进了我密|
高潮床戏有娇喘声视频大|
|