fun.asp

来自「后台超级账号密码admin/admin」· ASP 代码 · 共 78 行

<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[e-mail]          ''''
''''说明：需要新功能联系我      ''''
''''QQ:214297587                    ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
-->

<!--#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
%>