<% option explicit %> <% if session("purview")="" then response.redirect "../login.asp" response.end end if dim n dim rs,sql,rsc n=2 %> 中英艾滋病策略支持项目新闻发布管理系统 <% if session("purview")="99999" then %>
管理员配置工具
修改密码
管理用户
管理版面
管理专栏
系统参数
<% set rs = server.createobject("adodb.recordset") rs.open "select * from type",conn,1,1 if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "没有类别" response.end else do while not rs.eof %>
';return true;" onMouseOut="window.status='';return true;"><%=rs("typename") %>
<% set rsc=server.createobject("adodb.recordset") sql="select * from border where typeid=" & rs("typeid") & " order by borderid" rsc.open sql,conn,1,1 if err.number <> 0 then response.write "数据库出错" else if not rsc.bof and not rsc.eof then %>
<% do while not rsc.eof %> &borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><%=rsc("bordername") %>
<% rsc.movenext loop %>
<% rsc.close set rsc=nothing end if end if rs.movenext n=n+1 loop rs.close set rs=nothing end if end if else if session("purview")="99998" then %>
审核员配置工具
修改密码
<% set rs = server.createobject("adodb.recordset") rs.open "select * from type",conn,1,1 if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "没有类别" response.end else do while not rs.eof %>
';return true;" onMouseOut="window.status='';return true;"><%=rs("typename") %>
<% set rsc=server.createobject("adodb.recordset") sql="select * from border where typeid=" & rs("typeid") & " order by borderid" rsc.open sql,conn,1,1 if err.number <> 0 then response.write "数据库出错" else if not rsc.bof and not rsc.eof then %>
<% do while not rsc.eof %> &borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><%=rsc("bordername") %>
<% rsc.movenext loop %>
<% rsc.close set rsc=nothing end if end if rs.movenext n=n+1 loop rs.close set rs=nothing end if end if else %>
录入员配置工具
修改密码
<% set rs = server.createobject("adodb.recordset") rs.open "select * from type where typeid=" & cstr(session("purview")),conn,1,1 if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "没有类别" response.end else %>
';return true;" onMouseOut="window.status='';return true;"><%=rs("typename") %>
<% set rsc=server.createobject("adodb.recordset") sql="select * from border where typeid=" & rs("typeid") & " order by borderid" rsc.open sql,conn,1,1 if err.number <> 0 then response.write "数据库出错" else if not rsc.bof and not rsc.eof then %>
<% do while not rsc.eof %> &borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><%=rsc("bordername") %>
<% rsc.movenext loop %>
<% rsc.close set rsc=nothing end if end if n=n+1 rs.close set rs=nothing end if end if end if end if %>
刷新页面
退 出