fun.asp

考勤评分系统 功能发布： 1、管理员权限

<!--
菜菜考勤评分系统V1.0
www.pcicai.cn
[e-mail]
还望多指教！
菜菜网CMSV1.0发布正在筹备中，请关注 www.pcicai.cn
小飞@蝙蝠 QQ 285305740
--> 

<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp"-->
<link href=../css.css rel=stylesheet>
<%
sub jianjie()
sql="select * from jianjie  "
rs.open sql,cn,1,1

 
text=rs("text") 
 rs.close
if trim(text)<>"" then 
response.write  ubbcode(text)
else
response.write "<img src=top.bmp>"
end if






end sub
%>
<%
sub task()
sql="select * from task "
rs.open sql,cn,1,1
%>
<marquee  direction=up onMouseOver=this.stop() onMouseOut=this.start() scrollamount=2   >
<%
 do while not rs.eof
 title=rs("title") %>
<img src=images/a1.gif><a href=taskview.asp?title=<%=title%> target=_blank><%=title%></a><br>
<%
rs.movenext
loop
%>
</marquee>
<%
 if (rs.eof and rs. bof) then 
response.write "<center>没有任务"
end if
 rs.close
end sub
%>


<%
sub annouce()
sql="select * from annouce "
rs.open sql,cn,1,1
 do while not rs.eof
 title=rs("title") 
response.write "<img src=images/a1.gif><a href=annouceview.asp?title="&title&" target=_blank>"&title&"</a>::"
rs.movenext
loop
 if (rs.eof and rs. bof) then 
response.write "还没有公告"
end if
 rs.close
end sub
%>
<%
sub myinf()
response.write "<center>我的详细资料</center>"
end sub
%>