?? mail_tell.asp
字號(hào):
<%
'OA 表單生成器1.0
'功能:郵件通知
'參數(shù):
%>
<!--#include file="../inc/NoCatch.asp"-->
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------設(shè)置參數(shù)
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '當(dāng)前用戶ID
'------------------------------------------------
'------------------------------------------------取記錄
'
table="tbioamail" '表名
'接受查詢參數(shù)
'查尋條件
if Search="" then
Search="WHERE "
Search=Search & "folder='收件夾' and "
Search=Search & "read_mod=0 and "
Search=Search & "userid="&LoginID'只能查看自己錄入的記錄
END if
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select id,sdate,fjr,subject,read_mod from " & table & " " & Search & " order by ID desc"
rs.open sql,oConn,1,1
'------------------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>新郵件通知</title>
</head>
<body topmargin="10" leftmargin="10">
<table border=0 cellspacing="0" cellpadding="0">
<tr>
<td nowrap><img border="0" src="../images/icon_menu.gif" align="left"> 新郵件通知</td>
<td align="right" width=100%>
共有 <%=GetTableNum("tbioamail","where userid="&LoginID&" and folder='收件夾' and read_mod=0")%> 封未讀郵件
</td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
<%
if rs.RecordCount=0 then
response.write "<BR><BR>暫時(shí)為空!"
else
%>
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td class="tdTop">主題</td>
<td class="tdTop" width="100">寄件人</td>
</tr>
<form name="eventfrm" method="POST" action="mail_dele.asp">
<input type=hidden name="mod" value="0">
<input type=hidden name="folder" value="0">
<%for i = 0 to rs.PageSize-1
If rs.EOF Then Exit For
if i mod 2 = 0 then td_class="td1" else td_class="td2"
%>
<tr>
<td class="<%=td_class%>"><a href="mail_show.asp?id=<%=rs("id")%>" target="_blank"><%if rs("read_mod")=0 then response.write"<b>"%><%=HtmlOut(rs("subject"))%></a></td>
<td class="<%=td_class%>"><%=HtmlOut(getusername(rs("fjr")))%></td>
</tr>
<%
rs.MoveNext
next
%>
</form>
<tr>
<td class="tdbottom" colSpan="5" align="right"> </td>
</tr>
</table>
<%
end if
rs.close
%>
</body>
</html>
<%'釋放對(duì)象變量
oConn.close
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -