ASP简易留言板--ASP simple postboard v1.21

<% 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("") 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 session("postboard_admin")=true then '最近的更新方向为管理员管理,及根限设定 response.write("") else response.write("屏蔽留言") end if END IF response.write("

"&rs("id")&"楼

标题：不显示

标题： "&mid(rs("title").value,1,abs(lt))&"...

标题： "&rs("title").value&"

") 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 rs("shield").value=true then response.write("解除屏蔽

") response.write("

") i=i+1 rs.movenext Wend END IF %>

<% response.write("") if curpage>1 then response.write(""&chr(13)&""&chr(13)&""&chr(13)&"") else response.write("　　"&chr(13)&"") end if response.write(""&chr(13)&"") END IF %>

上一页　　") else response.write("

") 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下一页

共"&pgcount&"页　当前第"&curpage&"页　　

发表留言
标题 title :	*
姓名 name:	value="管理员"<%end if%> name="name" type="text" id="name" style="BORDER-RIGHT: #D7E8FF 1px solid; BORDER-TOP: #D7E8FF 1px solid; BORDER-LEFT: #D7E8FF 1px solid; BORDER-BOTTOM: #D7E8FF 1px solid; BACKGROUND-COLOR: #F7FAFF" onMouseOver="this.style.backgroundColor='#ffffff'" onMouseOut="this.style.backgroundColor='#F7FAFF'" title="This value is your IP Address if value is empty" maxlength="40"> <% if writename=true then%> *<%end if%>
电邮 E-mail :
留言内容 content of message	*