main.asp

来自「这是我做的一个OA雏形」· ASP 代码 · 共 91 行

ASP
91 行
字号 
<!--#INCLUDE FILE="data.asp" -->
<!--#INCLUDE FILE="check.asp" -->
<html>

<meta http-equiv="refresh" content="1;url=main1.asp?action=search">
<title>圣时代Loading ....</title>
<script>

function OpenWindows1(url,widthx,heighx)
{
  var 
 newwin=window.open(url,"_blank","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=20,left=60,width=420,height=300");
 return false;
 
}
</script>
</head>

<body style="font-family: 宋体; font-size: 9pt">

<p>请等待<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Loading ...</p>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (userid="&session("Uid")&" and daoshitime2<'"&shijian&"') ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
if not rs.eof then
    do while not (rs.eof or rs.bof)
%>
        <%rs.movenext 
loop 

%>
        <script LANGUAGE="JavaScript">

OpenWindows1('checkcalendar.asp?id=<%=rs("id")%>','width=420','height=300')

</script><%end if%>
<%rs.Update
	rs.close
	Set rs=nothing
%>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (userid="&session("Uid")&" and tx=1 and daoshitime<'"&shijian&"') ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
if not rs.eof then
    do while not (rs.eof or rs.bof)
%>
        <%rs.movenext 
loop 

%>
        <script LANGUAGE="JavaScript">

OpenWindows1('checkcalendar1.asp?id=<%=rs("id")%>','width=420','height=300')

</script><%end if%>
<%rs.Update
	rs.close
	Set rs=nothing
%>
<%
nowtime=now()
shijian=cstr(year(nowtime))+right("0"+cstr(month(nowtime)),2)+right("0"+cstr(day(nowtime)),2)
strSQL ="SELECT * FROM soft where (remindtime<'"&shijian&"') ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,1,1
if not rs.eof then
    do while not (rs.eof or rs.bof)
%>
        <%rs.movenext 
loop 

%>
        <script LANGUAGE="JavaScript">

OpenWindows1('checkcalendar3.asp?id=1','width=420','height=300')

</script><%end if%>
<%rs.Update
	rs.close
	Set rs=nothing
%>
</body>
</html>

main.asp - 源码说明

本页面展示了「这是我做的一个OA雏形」中的 main.asp 源码文件，采用 ASP 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与OA系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?