right.asp

来自「功能非常强大的一款办公自动化软件原代码,其中的文档签收功能特别实用.不相信下下来」· ASP 代码 · 共 43 行

<!--#include file="check.asp"-->
<!--#include file="connect.asp"-->
<%
set bzwb=server.createobject("oaserver.right")
bzwb.main(conn)
%>

<script language="javascript" src="apply.js">
</script>
<script language="JavaScript">
 function timestart() {
 if (!confirm("您确定要签到吗？"))
     {
	 document.form.flag.value=""
	 return false}
	 else
	 {
	 document.form.flag.value="timestart"
		 }
	 
 }
  function timeend() {
 if (!confirm("您确定要签退吗？"))
     { 
	 document.form.flag.value=""
	 return false
	 }
	 else
	 {
	 document.form.flag.value="timeend"
	 		 }
 }
  function marquee1()
 { 
 document.write("<marquee behavior=scroll direction=up width='100%' height=85 scrollamount=1 scrolldelay=1 onmouseover='this.stop()' onmouseout='this.start()'>" )
 }
</script>
 
<%
bzwb.main1(conn)
%>