📄 top.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
LoginID=trim(session("LoginID"))
if LoginID="" then LoginID=0
UserName= trim(session("RealName"))
userRights=getRights()'取用户权限
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/index.css" type=text/css>
<title>top</title>
<base target="Main">
</head>
<%
strID=request("strID")
strSQL="select * from tbioaUser "
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,oConn
%>
<body topmargin="0" leftmargin="0" background="../images/topback.gif">
<div id="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height=83 width="323" rowspan="4"><img src="../images/logo.gif" border="0">
<br>
</td>
<td height=23 width="15"> </td>
<td height=23><font color="#FFFFFF"></td>
<td width="471" style="color:#FFF" align=right rowspan="4">
<TABLE style="WIDTH: 100%; HEIGHT: 100%" cellSpacing=0 cellPadding=6
border=0 id="table1">
<TBODY>
<TR class=WSOASTopMenuFont>
<TD title=在线同事 style="CURSOR: hand" onclick=changeFaceAdpter()
align=middle>
<a target="_blank" style="text-decoration: none" href="../office/OnlineMain.asp">
<img border="0" src="../images/line.gif" width="32" height="32"><BR>
<STRONG style="font-weight: 400"><span style="font-size: 12px">
<font color="#FFFFFF">
[查看哪些人在线]</font></span></STRONG></a></TD>
<TD style="CURSOR: hand" onclick=gotoMydesk(7)
align=middle width="111">
<a target="_blank" href="../chat/index.asp?strid=<%=loginid%>">
<IMG height=30
src="../images/help.gif" border="0"><BR>
<STRONG style="font-weight: 400">
<span style="text-decoration: none"><font color="#FFFFFF">[多人即时聊天室]</font></span></STRONG></a></TD>
<TD style="CURSOR: hand" onclick=gotoMydesk(8)
align=middle>
<a href="../Default.asp?quit=1">
<IMG height=30
src="../images/exit.gif" border="0"><BR>
<font color="#FFFFFF">
<span style="text-decoration: none">
<STRONG style="font-weight: 400">
<a href="../body.asp?id=01" target="_top" style="text-decoration: none">
<font color="#FFFFFF">[<%=userName%>]</font></a></STRONG></span></a></font></TD>
<TD style="CURSOR: hand" onclick=gotoMydesk(9)
align=middle>
<font color="#FFFFFF">
<IMG height=30
src="../images/Refresh.gif"><br>
</font>
<STRONG style="font-weight: 400"><font color="#FFFFFF">
<a href="../Default.asp?quit=1" style="text-decoration: none">
<font color="#FFFFFF">[退出]</font></a></font></STRONG></TD></TR></TBODY></TABLE>
<script>
var iTimerID;
var enabled = 0; today = new Date();
var date,iver,sver;
sver=navigator.appVersion;
iver=parseFloat(sver.substring(sver.indexOf("MSIE")+5,sver.indexOf("MSIE")+8));
date = today.getYear() + "年" + (today.getMonth() + 1) + "月" + today.getDate() + "日 "+DateDemo()+ " ";
function DateDemo(){
var d, day, x, s = "";
var x = new Array("星期日", "星期一", "星期二","星期三","星期四", "星期五","星期六");
d = new Date();
day = d.getDay();
return(s += x[day]);
}
</script>
<script>document.write(date+"<SPAN id=timer1>" + today.getHours() + ":"+today.getMinutes()+":"+today.getSeconds()+"</SPAN>");</script>
<script>
changetime();
function changetime()
{
var minutes,seconds,t=new Date();
minutes = t.getMinutes();
if(t.getMinutes()<10)
minutes = "0"+t.getMinutes();
seconds = t.getSeconds();
if(t.getSeconds()<10)
seconds = "0"+t.getSeconds();
timer1.innerText=t.getHours() + ":"+minutes+":"+seconds;
setTimeout("changetime()",1000);
}
</script>
</td>
<td width="20" rowspan="4"></td>
</tr>
<tr>
<td height=20 width="15"> </td>
<td height=40 rowspan="2">
<p align="right"><font color="#FFFFFF"> <%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaPlan where UserID="&LoginID&" and StartDate<='"&sdate&" "&time()&"' and EndDate>='"&sdate&" "&time()&"' and finish<100"
rs.open sql,oConn,1,1
if rs.eof then
response.write "<font color=#ffffff>提醒：你今天没有日程安排！</font>"
else
%> </font> </font> <a href="../plan/plan_list.asp?selectdate=<%=sdate%>">
<font color="#FFFFFF">你当前有<%=rs.Recordcount%>条日程未完成</font></a><font color="#FFFFFF">。
<%
end if
rs.close
%>
</font></td>
</tr>
<tr>
<td height=20 width="15"> </td>
</tr>
<tr>
<td height=20 width="15"> </td>
<td height=20> </td>
</tr>
</table>
</div>
<!--linkx-->
<div id="linkx">
<a href="../office/OfficeMain.asp" class="menu1">首页</a> <span class="bai">|</span>
<%
set oRsRightType=server.createobject("ADODB.RecordSet")
sql="select * from tbioaRoleRightsType where mod<>'X'"
oRsRightType.open sql,oConn,1,1
while not oRsRightType.eof
set oRsRight=server.createobject("ADODB.RecordSet")
sql="select * from tbioaRoleRights where TypeNumber='"&oRsRightType("Number")&"' and FileName<>'' and mod<>'X' and number in ("&userRights&"0)"
oRsRight.open sql,oConn,1,1
if not oRsRight.eof then
%>
<a href="../body.asp?id=<%=oRsRightType("Number")%>" class="menu1"><%=htmlout(oRsRightType("Title"))%></a> <span class="bai">|</span>
<%
end if
oRsRight.close
oRsRightType.movenext
wend
oRsRightType.close
%>
</div>
<!--linkx-->
</body>
</html> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -