<% page=Request.QueryString("page") result=Request.QueryString("result") ChkUser=session("UserName") ChkPassword=session("UserPassword") 'response.write(ChkUserid) 'response.end 'response.write(ChkPassword) 'response.end if page<=1 or page="" then page=1 set rs=Server.CreateObject("Adodb.Recordset") rs.source="Select * from bbs order by Id desc" rs.open rs.Source,conn,1,1 rs.PageSize=15 for i=1 to rs.PageSize * (page-1) if not rs.EOF then rs.MoveNext end if next if result="logout" then session("UserPassword")="error" session("UserName")="error" response.redirect"index.asp" end if %>

中国食用菌网 www.mushroom.gov.cn 主办单位:上海农科院食用菌研究所　庆元县香菇市场

. . . : : :: : .: : .:加入收藏夹 |食用菌供求信息 |会员注册|食用菌企业数据库 |留言板 |菌种登记|联系我们|关于我们

<% for i=1 to rs.pagesize if not rs.EOF then %> <% rs.movenext end if next %>

发表新贴  搜索贴子  <% if chkUser="" and ChkPassword="" then %> 管理员登录 帐号： 密码： <% if result="error" then response.write("密码错误!")%> <% else %>">修改管理员资料 注销登录   管理员登录成功! <% ChkUserid=session("UserId") set ChkPurview=server.createobject("adodb.recordset") ChkPurview.source="select * from User where id="&ChkUserid ChkPurview.open ChkPurview.source,conn,1,1 end if %>
表情	主题	作者	回复	点击	最后更新	最后回复人
>	<% if chkUser="" and ChkPassword="" then %> " title="<%=rs("title")%>"><%=unhtml(rs("title"))%> <% else %> <% if ChkPurview("purview") = "super" then %> " title="<%=rs("title")%>"><%=unhtml(rs("title"))%> >修改|>删除 <% end if %> <% end if %>	" title="<%=unhtml(rs("email"))%>"> <% if len(unhtml(rs("name")))>5 then %> <%=left(unhtml(rs("name")),5)&".."%> <% else %> <%=unhtml(rs("name"))%> <% end if %>	<%=rs("revertcount")%>	<%=rs("click")%>	<%=rs("revertDate")%>	<%=unhtml(rs("revertname"))%>
页码: <% for i=1 to rs.PageCount Response.Write "" & i & " " next %>
程序制做: 沈亮版权所有　 中国食用菌网留言版 Ver 1.0