<!--#include file="conn.asp"-->
<!--#include file="Function/MenberName.asp"-->
<!--#include file="Function/GroupName.asp"-->
<!DOCTYPE HTML>
<html>
<head>
<meta charset="utf-8"><meta name="viewport" content="width=device-width, initial-scale=1">
<body bgcolor="ddebf3" text="#000000" width=100% height=100%>
<p align="center"><font size="20"><b>部門人員未讀檔案</b></font></p>
</head>
<hr>
<tr>
<td align="right" >
<form class="form-horizontal" METHOD=POST ACTION="Telex_UnRead_wyb.asp">
<form method="POST" name="form1" action=search.asp>
<p>輸入搜索內容:<input type="text" name="cxsj" size="20"><input type="submit" value="https://bbs.csdn.net/topics/提交" name="B1" LANGUAGE="javascript" onClick="btn_ck_bh_Click()">
</p>
</form>
<div class="col-md-12 col-lg-12">
</td>
</tr>
<table width="449" class="table">
<thead>
<tr>
<th width="40" align="center" nowrap="nowrap" class="col-md-1 text-center"><h4><strong>序號</strong></h4></th>
<th width="56" align="center" nowrap="nowrap" class="col-md-4 text-center"><h4><strong>標題</strong></h4></th>
<th width="111" align="center" nowrap="nowrap" class="col-md-2 text-center"><h4><strong>發文時間</strong></h4></th>
<th width="70" align="center" nowrap="nowrap" class="col-md-2 text-center"><h4><strong>接收人</strong></h4></th>
<th width="84" align="center" nowrap="nowrap" class="col-md-1 text-center"><h4><strong>批示內容</strong></h4></th>
</tr>
</thead>
<%
'個人收文資料表
'表內欄位有
'ID 序號
'TelFilRecTime 接收時間
'TelFilRecMember 接收人 對應人員表表（MemBer）的MemID，可以用MenberName函式顯示人名
'TelFilPosTime 送批時間
'TelFilPosMem 送批人
'TelFilPosGroup 送批部門 對應部門表中（TelRecGroup）的TelRecGroID，可以用GroupName函式顯示部門名稱
'TelFilPosTime 送批時間
'TelFilSinMark 閱讀記錄，已讀為1，未讀為null
'TelFilReadCount 閱讀次數
'RepID 批復表中的序號
'RepContent 批示內容
'ToGroup 批復給哪些部門
'TelFilID 檔案序號
'TelFilTitle 檔案標題
'TelFilLogo發文代字
'TelFilYear年份
'TelFilCategory類別，路局公文1, 網路電報2，中心檔案3
set rs=server.createobject("ADODB.recordset") '連接資料庫記錄
sql = "select * from TelPerRec_View where TelFilRecMember=1180 and TelFilSinMark is null order by TelFilPosTime desc"'查詢陳述句
rs.Open sql,conn,1,1 '只讀打開%>
<%i=1 '添加一個序號
If not rs.eof Then '判斷記錄不為空
Do While Not rs.eof '開始回圈直到資料完了%>
<tr><td align="center" nowrap="nowrap"><%=i%></td><td align="center" nowrap="nowrap"><%=rs("TelFilTitle")%></td><td align="center" nowrap="nowrap"><%=rs("TelFilPosTime")%></td><td align="center" nowrap="nowrap"><%=MenberName(rs("TelFilRecMember"))%></td><td align="center" nowrap="nowrap"><%=rs("RepContent")%></td></tr>
<%i=i+1 '序號+1
rs.movenext '移動資料庫指標到下一條記錄
Loop '回圈陳述句結束
End if '判斷記錄為空結束
%>
</table>
<%
set rs=server.createobject("<%i=i+1 '序號+1
rs.movenext '移動資料庫指標到下一條記錄
Loop '回圈陳述句結束
End if '判斷記錄為空結束
%"><%=i%>
exce="sql"
rs.open exce,conn,1,1
%>
<%
rs.PageSize=25
pagecount=rs.PageCount
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
%>
<%
if rs.bof and rs.eof then
response.write("NULL")
else
for i=1 to rs.PageSize
response.write rs("name")
response.write("<hr>")
rs.movenext
next
end if
%>
<p>
<%if page=1 and not page=pagecount then%>
首頁|前一頁
<a href="https://bbs.csdn.net/topics/log1.asp?page=">后一頁</a>|
<a href="https://bbs.csdn.net/topics/log1.asp?page=">末頁</a>|
<%elseif page<>1 and not page=pagcount then%>
<a href="https://bbs.csdn.net/topics/log1.asp?page=1">首頁</a>|
<a href="https://bbs.csdn.net/topics/log1.asp?page=">前一頁</a>|
<a href="https://bbs.csdn.net/topics/log1.asp?page=">后一頁</a>|
<a href="https://bbs.csdn.net/topics/log1.asp?page=">末頁</a>
<%elseif page=pagecount then%>
<a href="https://bbs.csdn.net/topics/log1.asp?page=1">首頁</a>|
<a href="https://bbs.csdn.net/topics/log1.asp?page=">前一頁</a>|
下一頁|
末頁
<%end if%>
<html>
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/93783.html
標籤：其他數據庫
下一篇：【求助】mysql查詢三個表