<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% Rs.Open "SELECT * FROM siteset" ,Conn,1,1 sitename = rs(1) gonggaostr = rs(3) tophtml = rs(2) rs.close %> <%= sitename %>
<%= tophtml %>
<% 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 %> <% end if %>
<%= gonggaostr %> - 返回公司首页
<% 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))) %>
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 %>
发表留言
昵称*  
QQ  
邮箱  
主页  
头像
查看   仅管理员可以看到此留言   大家都可以看到此留言 性别   男  
留言内容*

<% for i = 1 to 6 %><% next %>
<% for i = 7 to 12 %><% next %>
<% for i = 13 to 18 %><% next %>
<% for i = 19 to 24 %><% next %>
<% for i = 25 to 30 %><% next %>

验证码*
    
版权所有:深圳市裕新泰金属锡制品有限公司
<% set rs=nothing conn.close set conn = nothing %>