📄 desktop.asp
字号:
<!--#include file="includes/db.asp"-->
<%
if session("User_id")="" then
response.redirect "reload.htm"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
<LINK href="conn/style.css" rel=stylesheet>
<title>办公自动化系统</title>
<link href="Includes/Style.css" rel="stylesheet" type="text/css">
</head>
<body topmargin=0 leftmargin=0 bgcolor="#FFFFFF">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="4" cellspacing="0">
<tr bgcolor="#E6F7FF">
<td width="17%" bgcolor="#E6F7FF"><img src="images/desktop_zxzx.jpg" width="102" height="19"></td>
<td width="18%" align="right" bgcolor="#E6F7FF"><a href="Notice/Browse.asp">更多</a> </td>
</tr>
<tr>
<td colspan="2" cellpadding="4">
<%
dim NOTICE_TITLE
sql="SELECT top 3 * FROM Notice " _
&"ORDER BY Notice_date DESC "
call openDB()
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td width=""75%"" colspan=2>"
response.write "还没有公告通知。"
response.write "</td></tr>"
end if
while not rs.eof
Notice_title=rs("Notice_title")
Notice_date=rs("Notice_date")
Notice_title=replaceBack(Notice_title)
Notice_date=Left(Notice_date,10)
response.write"<tr>"
response.write"<td width=""50%"" height=""25"" bgcolor=""#FCFCFC""> <a href=Notice/Read.asp?NOTICE_ID="&rs("Notice_id")&">" _
&NOTICE_TITLE&"</a> "&NOTICE_DATE&"</td>"
response.write"</tr>"
rs.MoveNext
wend
%>
</td>
</tr>
<tr bgcolor="#E6F7FF">
<td bgcolor="#E6F7FF"><img src="images/desktop_zxtz.jpg" width="102" height="19"></td>
<td align="right" bgcolor="#E6F7FF"><a href="MessageBoard/Browse.asp">更多</a> </td>
</tr>
<tr cellpadding="4">
<td colspan="2" cellpadding="4">
<%
sql="SELECT top 3 * FROM MessageBoard Where Authorship='1' ORDER BY Article_date DESC "
call openDB()
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr>"
response.write "<td width=""75%"" colspan=5 bgcolor=""#FCFCFC"" align=center>"
response.write "还没有任何留言。</td></tr>"
end if
while not rs.eof
Article_title=rs("Article_title")
Article_title=replaceBack(Article_title)
Article_date=rs("Article_date")
Article_date=left(Article_date,10)
response.write"<tr>"
response.write" <td width=""35%"" bgcolor=""#FCFCFC""><a href=MessageBoard/Read.asp?Article_id="&rs("Article_id")&"> "&Article_title&"</a> "&Article_date&"</td>"
response.write"</tr>"
rs.movenext
wend
%>
</td>
</tr>
<tr bgcolor="#E6F7FF">
<td bgcolor="#E6F7FF"><img src="images/desktop_jsb.jpg" width="102" height="19"></td>
<td align="right" bgcolor="#E6F7FF"><a href="Notes/Browse.asp">更多</a> </td>
</tr>
<tr>
<td colspan="2">
<%
sql="SELECT top 3 * FROM Notes WHERE User_id="&session("User_id")&" " _
&"ORDER BY Note_date DESC"
call openDB()
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr><td width=""75%"" colspan=3 align=center>"
response.write "你的记事本是空的."
response.write "</tr></td>"
end if
while not rs.eof
Note_date=rs("Note_date")
Note_date=left(Note_date,10)
response.write "<tr bgcolor=""#FCFCFC"">"
response.write "<td width=""45%""><a href=""Notes/Read.asp?Note_id="&rs("Note_id")&""">"&rs("Note_title")&"</a>"" "&Note_date&"</td>"
response.write "</tr>"
rs.MoveNext
wend
call closeDB()
%>
</td>
</tr>
<tr>
<td bgcolor="#E6F7FF"><img src="images/desktop_wdyx.jpg" width="102" height="19"></td>
<td align="right" bgcolor="#E6F7FF"><a href="Message/Browse.asp">更多</a> </td>
</tr>
<tr>
<td colspan="2">
<%
User_id=session("User_id")
sql="SELECT top 3 * from Message WHERE Message_to_id ='"&User_id&"' ORDER BY Message_id DESC "
call openDB()
rs.open sql,conn,1,1
if rs.eof then
response.write "<tr>"
response.write "<td width=""75%"" colspan=5 bgcolor=""#FCFCFC"" align=center>"
response.write "还没有任何信件。</td></tr>"
end if
i=0
while not rs.eof
i=i+1
Message_title=rs("Message_title")
Message_title=replaceBack(Message_title)
response.write"<tr>"
response.write" <td width=""35%"" bgcolor=""#FCFCFC""><a href=""Read.asp?Message_id="&rs("Message_id")&""">"&rs("Message_title")&"</a> "&rs("Username")&" "&rs("Message_date")&"</td>"
response.write"</tr>"
rs.movenext
wend
call closeDB()
%>
</td>
</tr>
</table></td>
</tr>
</table>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -