我要留言 留言管理
  返回首页   置顶公告:欢迎各位网友就发明、专利、科学探索方面的问题发表见解或评论
<% dim rname,rsex,raddr,rmail,rpage,roicq,rhead,rtitl,rcont,rtime,rip,rrepflag,recont set rs=Server.CreateObject("ADODB.Recordset") sqlstr="select * from guest order by id DESC" rs.open sqlstr,conn,1,3 pagesize=GBENum %> <% currentpage=request.querystring("currentpage") if currentpage="" then currentpage=0 rs.movefirst else rs.move Clng(currentpage)*pagesize end if i=0 while i
 
   <% =rs("name") %>   发表于  <% =rs("Date") %> <% =rs("Time") %>  来自: <% =rs("address") %> (IP已记录)
 
 
.gif" class="mytext">  
<% 'if rs("repflag")=true then set rsb=Server.CreateObject("ADODB.Recordset") '-----------------------此处进行了更改 V2.0 版-------------------------------- strsql="select * from reply where GuestID=" & Trim(rs("ID")) rsb.open strsql,conn,1,3 if not rsb.eof then if not rs("ReNoView")=True then recont=rsb("content") '-----------------------此处进行了更改 V1.1版------------------------------- %> <% '-----------------------此处进行了更改 V2.0 版------------------------------- end if end if rsb.close set rsb=nothing 'end if '-----------------------此处进行了更改 V2.0 版------------------------------- %>
  <% =rs("Title") %>  
  <% if rs("sec")=true then %> (非公开内容,只有站长能看到) <% else %> <% =ubbcode(rs("content"))%> <% end if %>  
  站长回复:  
  <% =ubbcode(recont) %> 
 
 
<% rs.movenext i=i+1 wend %>
  <% rscount=rs.recordcount %>  共有  <% =rscount %>  条留言, 共  <% totalpage=(rscount-1)/pagesize totalpage=int(totalpage)+1 %> <% =totalpage %>  页, 每页  <% =pagesize %>  条, 这是第  <% =currentpage+1 %>  页留言. <% if Clng(currentpage)>0 then %> 上一页 <% else %> 上一页 <% end if %> / <% if Clng(currentpage)+1 下一页 <% else %> 下一页 <% end if %>  
  [ <% i=1 while i<=totalpage %> <% =i %> <% i=i+1 wend %> ]  
     
 

发明工场(1999-2011)◎版权所有
www.cn1.net

 
<% rs.close set rs=nothing conn.close set conn=nothing %>