fun.asp

这是一个很好的班级考勤系统

<!--''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创                    ''''
''''联系：[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=images/top.jpg>"
end if
end sub
%>
<%
sub task()
sql="select * from task "
rs.open sql,cn,1,1
 %>
<marquee  direction=up scrolldelay=0 scrollamount=2 onMouseOver="this.scrollDelay=200" onMouseOut="this.scrollDelay=30"   >
<%
 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
%>
<%
function guolv(Str)
	if not isnull(Str) then
		Dim re,po,ii

		'Str = replace(Str, """", "\""")
		Str = Replace(Str, CHR(9), "&nbsp;")
		Str = Replace(Str, CHR(39), "&#39;")
		Str = Replace(Str, CHR(13), "")
		Str = Replace(Str, CHR(10) & CHR(13), "</P><P> ")
		Str = Replace(Str, CHR(10), "")
		Str = Replace(Str, "‘", "&#39;")
		Str = Replace(Str, "’", "&#39;")
		'网友冷情圣郎提供
		Str = Replace(Str, "\", "\\")
		Str = Replace(Str, CHR(32), " ")
		Str = Replace(Str, CHR(34), "\""")
		Str = Replace(Str, CHR(39), "'")

		Set re=new RegExp
		re.IgnoreCase =true
		re.Global=True
		po=0
		ii=0

		re.Pattern="(javascript)"
		Str=re.Replace(Str,"<I>&#106avascript</I>")
		re.Pattern="(jscript:)"
		Str=re.Replace(Str,"<I>&#106script:</I>")
		re.Pattern="(js:)"
		Str=re.Replace(Str,"<I>&#106s:</I>")
		re.Pattern="(</SCRIPT>)"
		Str=re.Replace(Str,"&lt;/script&gt;")
		re.Pattern="(<SCRIPT)"
		Str=re.Replace(Str,"&lt;script")
                            
 Str = replace(Str, ">", "&gt;")
    Str = replace(Str, "<", "&lt;")
	Str = replace(Str, """", "&quot;")
    Str = Replace(Str, CHR(32), "&nbsp;")
    Str = Replace(Str, CHR(9), "&nbsp;")
    Str = Replace(Str, CHR(34), "&quot;")
    Str = Replace(Str, CHR(39), "&#39;")
    Str = Replace(Str, CHR(13), "")
    Str = Replace(Str, CHR(10) & CHR(10), "</P><P> ")
    Str = Replace(Str, CHR(10), "<BR>")
    Str=ChkBadWords(Str)
		guolv = Str
	End if
end Function
%>