📄 infotishi.asp
字号:
<%username=session("hxf_u_nickname")
ljldj=Session("hxf_u_grade")
if username="" then Response.Redirect "error.asp?id=440"
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select * from 短信 where sj=date() and jieshou='"&username&"' and del=false"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
duanxin=rs.recordcount
else
duanxin=0
end if
rs.close
'conn.close
'---------------end 短信统计--------------------------------------
sql="select * from 审批 where sj=date() and jieshou='"&username&"' and del=false order by id desc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
shenpi=rs.recordcount
else
shenpi=0
end if
rs.close
'---------------end 审批------------------------------------------
sql="select * from 待办 where 日期=date() and 保密度<="&ljldj&" order by id desc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
daiban=rs.recordcount
else
daiban=0
end if
rs.close
conn.close
'----------------end 待办-----------------------------------------
db="wenjian/article.asp"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr
sql="select * from article where dateandtime=date() and baomi<="&ljldj&" order by articleid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
fawen=0
else
fawen=rs.recordcount
end if
rs.close
%>
<HTML><HEAD><TITLE>OA系统提示信息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="forum.css" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY oncontextmenu=self.event.returnValue=false onkeydown="if(event.keyCode==13 && event.ctrlKey)messager.submit()"
vLink=#333333 aLink=#333333 link=#333333 bgColor=#f2f8ff background=""
topMargin=10>
<bgsound src=images/msg.wav loop=2>
<TABLE cellSpacing=0 cellPadding=0 width="257" align=center bgColor=#777777
border=0>
<TBODY>
<TR>
<TD width="273">
<TABLE borderColor=#ffffff cellSpacing=1 cellPadding=3 width="260"
border=2 height="114">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff colSpan=3 height="14" width="246"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT
color=#ffffff><span lang="en-us">OA</span></FONT><font color="#FFFFFF">系统提示</font></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#f2f8ff colSpan=3 height="42" width="246">
<img border="0" src="IMAGES/newNew.gif"></TD></TR>
<TR>
<TD vAlign=center align=middle bgColor=#e8f4ff height="1" width="386">
</TD></TR>
<TR>
<TD vAlign=top align=left bgColor=#f2f8ff height="27" width="386">
<span lang="en-us">A</span>、今日新发文<span lang="zh-cn"> </span> <font color="#FF0000">
<span lang="en-us"><%=fawen%></span></font><p><span lang="en-us">B</span>、<span lang="zh-cn">今日</span>待办事宜<span lang="en-us">
<font color="#FF0000"><%=daiban%></font></span></p>
<p><span lang="en-us">C</span>、<span lang="zh-cn">今日</span>文件审批<span lang="en-us">
<font color="#FF0000"><%=shenpi%></font></span></p>
<p><span lang="en-us">D</span>、<span lang="zh-cn">今日</span>网络短信<span lang="en-us">
<font color="#FF0000"><%=duanxin%></font></span></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY></HTML>
<%conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -