📄 start_lr.asp
字号:
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>MIS系统</title>
<!-- #include file="../inc/css.asp" -->
<style type="text/css">
<!--
.p9 {
font-family: "宋体";
font-size: 10pt;
line-height: 20pt;
color: #000000;
}
-->
</style>
</head>
<%
Session("send")="recived" '收件箱
Set rs = Server.CreateObject("ADODB.Recordset")%>
<body background="../images/MIS-10.gif" leftmargin="0" topmargin="0" >
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="94%" align="left" valign="top" background="../images/MIS-12.gif"><img src="../images/MIS-01.gif" width="625" height="52"></td>
<td width="6%" align="right" background="../images/MIS-12.gif"><img src="../images/MIS-11.gif" width="7" height="52"></td>
</tr>
</table>
<table width="71%" border="0" align="left" cellpadding="0" cellspacing="0" height="55%">
<tr>
<td width="30" align="left" valign="top"> </td>
<td width="25%" align="left" valign="top">
<table width="294" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="399">
<tr>
<td width="295" height="50"><img src="../images/MIS-08.gif" width="290" height="49"></td>
<td width="10" align="left" valign="top" background="../images/MIS-05.gif"><img src="../images/MIS-05.gif" width="5" height="5"></td>
</tr>
<tr>
<td background="../images/MIS-09.gif" valign=top width="295" height="335">
<table width="82%" border="0" align="center" height="145">
<%
sql="select top 6 * from offiche order by vdate desc"
rs.open sql,Session("conn"),1,1
num=1
while not rs.eof
response.write("<tr height=18><td nowrap > <img src='../images/arrow_r.gif' width='9' height='9' border='0' align='absmiddle'>")
response.write(" <a title='发布时间:" & rs("vdate") & vbcrlf & "内容概述:" & left(rs("vtext"),100) & "'" )
response.write(" href='../offiche/disp.asp?id=" & rs("id") & "&opFlag=start'>" & fixx(rs("vtitle"),16) & "</a></td></tr>")
rs.movenext
num=num+1
wend
rs.close
%>
<tr>
<td> </td>
</tr>
</table>
<img src="../images/MIS-dbsy.gif" width="290" height="22">
<table width="82%" border="0" align="center" height="162">
<%
sql="select top 6 * from todolist where (vread<>'t' or vread is null ) and vowner='" & Session("id") & "' order by vtime desc"
rs.open sql,Session("conn"),1,1
num=1
while not rs.eof
cout("<tr height=22><td nowrap valign=bottom ><img src='../images/arrow_r.gif' width='9' height='9' border='0' align='absmiddle'> <a href=../todo/opreate.asp?id=" & rs("id") & ">")
if rs("vread")<>"t" then cout bluestr(fixx(rs("vtitle"),16)) else cout fixx(rs("vtitle"),16)
cout "</a>[" & month(rs("vtime")) & "." & day(rs("vtime")) & " " & hour(rs("vtime")) & ":" & minute(rs("vtime")) & "]"
rs.movenext
num=num+1
wend
rs.close
%>
<tr>
<td> </td>
</tr>
</table>
</td>
<td align="left" background="../images/MIS-05.gif" width="10" height="335"><img src="../images/MIS-05.gif" width="5" height="5"></td>
</tr>
<tr>
<td align="right" width="295" height="10"><a href="../todo/main.asp"><img src="../images/smore1.gif" name="Image111" width="49" height="15" border="0"></a> </td>
<td align="left" background="../images/MIS-05.gif" width="10" height="10"><img src="../images/MIS-05.gif" width="5" height="5"></td>
</tr>
<tr>
<td align="left" valign="top" background="../images/MIS-03.gif" width="295"><img src="../images/MIS-03.gif" width="10" height="7"></td>
<td align="left" valign="top" width="10"><img src="../images/MIS-04.gif" width="5" height="7"></td>
</tr>
</table>
</td>
<td valign="top">
<table border="0" height="178" cellspacing="2" cellpadding="2" width="325">
<tr>
<td height="40"><img src="../images/MIS-02.gif" width="328" height="39"></td>
</tr>
<tr height=100>
<td valign="top">
<table>
<%
sql="select top 6 * from remind where vowner='" & Session("id") & "' order by vremindtime desc"
rs.open sql,Session("conn"),1,1
num=1
while not rs.eof
response.write("<tr height=18><td nowrap > <img src='../images/arrow_r.gif' width='9' height='9' border='0' align='absmiddle'>")
response.write(" <a title='活动时间:" & rs("vtime") & vbcrlf & "内容概述:" & left(rs("vtext"),100) & "'" )
response.write(" href='../remind/disp.asp?id=" & rs("id") & "&opFlag=start'>" & fixx(rs("vtitle"),16) & "</a></td></tr>")
rs.movenext
num=num+1
wend
rs.close
%>
</table>
</td>
</tr>
<tr>
<td height="20" align="right">
<table width="49%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="../remind/edit.asp?opFlag=cmdAddNew">新日程</a></td>
<td><a href="../remind/main.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image121','','../images/MIS-an-s02.gif',1)">更多日程...
</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table cellpadding="2" cellspacing="2" border="0" width="336" height="198">
<tr>
<td height="40"><img src="../images/MIS-07.gif" width="324" height="40"></td>
</tr>
<tr height=100>
<td valign="top">
<table>
<%
sql="select top 6 * from recived" & Session("id") & " order by idatetime desc"
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open sql,Session("conn2"),1,1
num=1
while not rs.eof
response.write("<tr><td height=18> <img src='../images/arrow_r.gif' width='9' height='9' border='0' align='absmiddle'>")
if rs("iread")<>"t" then response.write "<b>"
response.write(" <a title='接收时间:" & rs("iDateTime") & vbcrlf & "内容概述:" & left(rs("iinfo"),100) & "'" )
response.write(" href='../mail/readmail.asp?page=1&num=" & num & "&opFlag=start'>" & fixx(rs("cent"),16) & " <small>[" & rs("ifrom") & "]</small></a>")
if rs("iread")<>"t" then response.write "</b>"
response.write("</td></tr>")
rs.movenext
num=num+1
wend
rs.close
%>
</table>
</td>
</tr>
<tr>
<td align="right" height="20">
<table width="207" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="96"><a href="../mail/WRITE.ASP"><img src="../images/MIS-an-x01.gif" name="Image11" width="49" height="15" border="0"></a></td>
<td width="96"><a href="../mail/MAILBOX.ASP?mailbox=recived"><img src="../images/MIS-an-s01.gif" name="Image12" width="49" height="15" border="0"></a></td>
<td width="98"><a href="../mail/MAILBOX.ASP?mailbox=sendout"><img src="../images/MIS-an-f01.gif" name="Image13" width="49" height="15" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -