<% if len(request.QueryString("e")) <> 0 then
if request.QueryString("e") = "maintxt" then
infotxt = "内容不可以为空"
elseif request.QueryString("e") = "feifa" then
infotxt = "非法请求"
elseif request.QueryString("e") = "username" then
infotxt = "昵称不可以为空"
elseif request.QueryString("e") = "yzerr" then
infotxt = "您输入的验证码有误"
else
infotxt = "非法请求"
end if %>
<%= infotxt %>
<% end if %>
<% if Request.Cookies("messod_cookie") = username then %>
<% Rs.Open "SELECT * FROM postname order by postdate desc" ,Conn,1,1
if not rs.eof then
rs.pagesize = 10
if request.QueryString("p") = "" or cint(request.QueryString("p")) < 1 then
rs.absolutepage = 1
elseif cint(request.QueryString("p")) > rs.pagecount then
rs.absolutepage = rs.pagecount
else
rs.absolutepage = cint(request.QueryString("p"))
end if
nowpage = rs.absolutepage
i = 0
while not rs.eof and i < rs.pagesize %>
<% if rs(5) = 1 or rs(11) = 0 then
if Request.Cookies("messod_cookie") = username then
look_tid = "ok"
else
look_tid = ""
end if
else
look_tid = "ok"
end if
if look_tid = "ok" then %>
留言编码:<%= rs(0) %><% if rs(5) = 1 then %> [隐藏贴]<% end if %><% if rs(11) = 0 then %> [待审核]<% end if %>
发表时间:<%= rs(9) %>
引用
<% if Request.Cookies("messod_cookie") = username then %> 删除编辑 |
<% if rs(11) = 0 then %>审核通过<% else %>审核留言<% end if %><% end if %>
<% if rs(4) <> "" then %><%= rs(1) %><% else %><%= html2str(rs(1)) %><% end if %>
<%= ubb2html(html2str(rs(7))) %>
<%= html2str(rs(7)) %>
IP:<%= ipsplit(rs(8)) %><% if rs(3) <> "" then %> | E-Mail:<%= html2str(rs(3)) %><% end if %><% if rs(2) <> "" then %> | QQ:<%= html2str(rs(2)) %><% end if %>
<% end if %>
<% rs.movenext
i = i + 1
wend
else %>
留言编码:1
发表时间:2009-9-6 17:01:14
欢迎使用裕新泰留言板,在发布第一篇留言之后,此留言自动消失。
您可以在发帖前参考UBB
代码使用说明以及支持情况。
IP:127.0.0.*
<% end if %>
<% rs.close %>
版权所有:深圳市裕新泰金属锡制品有限公司
<%
set rs=nothing
conn.close
set conn = nothing
%>