📄 jj2.asp
字号:
<%Response.Expires=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
if Session("hxf_u_counted")<>"1" then
sql="SELECT value FROM system WHERE name='visitor'"
rs.open sql,conn,1,3
rs("value")=rs("value")+1
Application.Lock
Application("hxf_c_visitor")=rs("value")
Application.UnLock
rs.update
rs.close
Session("hxf_u_counted")="1"
end if
visitor=Application("hxf_c_visitor")
%>
<!--#include file="config/config1.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="setup.css">
<title><%=systemname%></title>
<SCRIPT language=JavaScript type=text/JavaScript>
function HideMenu()
{
}
</SCRIPT>
<SCRIPT language=JavaScript1.2 src="menu.js"></SCRIPT>
</head>
<body bgcolor="#EFEFEF">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="94%" id="AutoNumber1" height="179">
<tr>
<td width="72%" height="179" valign="top" >
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber4">
<tr>
<td>系统信息提示：</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="448" id="AutoNumber5" height="171" bordercolordark="#C0C0C0" bordercolorlight="#C0C0C0">
<tr>
<td height="171" width="196"><%'---------------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() order by 日期 desc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
tongzhi=rs.recordcount
else
tongzhi=0
end if
rs.close
'conn.close
'----------------end 待办-----------------------------------------
sql="select 日期 from 公文 where 日期=date() order by 日期 desc"
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
gongwen=rs.recordcount
else
gongwen=0
end if
rs.close
'conn.close
'----------------end 公文-----------------------------------------
%><br>
今日公文发布<font color="#FF0000"><%=gongwen%></font>条<br>
<br>
<br>
未处理待审批事宜<font color="#FF0000"><%=shenpi%></font>件<br>
<br>
<br>
今日通知信息<font color="#FF0000"><%=tongzhi%></font>条</td>
<td height="171" width="246">
<p align="center">
<a target="_self" href="office/index.asp?action=44">
<img border="0" src="images/jj2/panel_calendar.gif"></a><span lang="en-us">
</span>
<a target="_self" href="daiban/index.asp?action=50">
<img border="0" src="images/jj2/icon_book.gif"></a><span lang="en-us">
</span><a target="_self" href="softdown/index.asp">
<img border="0" src="images/jj2/panel_states.gif"></a><br>
公司通讯录 <span lang="en-us"> </span>邮箱服务 常用软件</td>
</tr>
</table>
</center>
</div>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber8">
<tr>
<td><br>
<font color="#FF0000"> </font><span lang="en-us">OA</span>附加功能：[营业受理专用]</td>
</tr>
</table>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450" id="AutoNumber7" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<tr>
<td width="149" align="center" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<p align="center">
<a target="_self" href="office/index.asp?action=101"> <img border="0" src="images/fujia/a1.gif"></a></td>
<td width="149" align="center" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<a target="_self" href="office/index.asp?action=102">
<img border="0" src="images/fujia/a2.gif"></a></td>
<td width="150" align="center" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0">
<a target="_self" href="office/index.asp?action=103">
<img border="0" src="images/fujia/a3.gif"></a></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber6">
<tr>
<td> </td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber3">
<tr>
<td> </td>
</tr>
</table>
</center>
</div>
</td>
<td width="28%" height="179" valign="top" >
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="200" id="AutoNumber2" height="285" bordercolorlight="#808080" bordercolordark="#808080">
<tr>
<td height="13">
<p align="center"><img border="0" src="images/gonggao.gif"></td>
</tr>
<tr>
<td height="268" valign="top"><span lang="en-us">
<div align="center">
<center>
<table width="100%" style="filter:shadow(color=ffffff, direction=145); position: relative; border-collapse:collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<marquee direction="up" scrollamount="1" style="COLOR: red"><p><%=gg%></p></marquee>
</table>
</center>
</div>
</span></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
<% conn.close
Set rs=nothing
Set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -