<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
|
<%Session.CodePage=65001%>
|
<!--#include virtual="/inc/chkadmin.gds"-->
|
<!--#include virtual="/inc/function.gds"-->
|
<%
|
'Response.Redirect "test_PC.gds"
|
Response.Redirect "Task_List.gds?OrdState=2&OrdDateType=&OrdClassList=&h_menu1_1=1"
|
|
urlstr=trim(Request("urlstr"))
|
|
if len(urlstr)=0 then
|
urlstr="admin.asp"
|
else
|
urlstr = replace(urlstr,"*","&")
|
end if
|
|
Set rs = Server.CreateObject("ADODB.Recordset")
|
%>
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
<head>
|
<title><%=LindemanAdmin%></title>
|
<!--#include virtual="/inc/ccs.gds"-->
|
</head>
|
<body onkeydown="xKeyEvent(event)">
|
<!--#INCLUDE FILE="menu_header.gds" -->
|
<!-- content -->
|
<div id="content">
|
<%h_menu1="1"
|
h_menu2=""%>
|
<!--#INCLUDE FILE="Message_menu_left.gds" -->
|
<!-- content / right -->
|
<div id="right">
|
<!-- table -->
|
<div class="box">
|
<!-- box / title -->
|
<div class="title">
|
<h5>公告</h5>
|
<div class="search">
|
<form action="#" method="post">
|
<div class="input">
|
<input type="text" id="search" name="search" />
|
</div>
|
<div class="button">
|
<input type="submit" name="submit" value="搜索" />
|
</div>
|
</form>
|
</div>
|
</div>
|
<!-- end box / title -->
|
<!--#include virtual="/inc/SystemMessages.gds" -->
|
<div class="table">
|
<form action="" method="post">
|
<table>
|
<thead>
|
<tr>
|
<th class="left">标题</th>
|
<th>发布时间</th>
|
<th>发信人</th>
|
<th class="selected last"><input type="checkbox" class="checkall" /></th>
|
</tr>
|
</thead>
|
<tbody>
|
<%
|
acc1=clng(request("page"))
|
if acc1=empty then acc1=clng(1)
|
QuantityInt = 10
|
acc2=0
|
acc3=0
|
|
MessageTypeSql=""
|
if session("Admin_Type")=2 then
|
MessageTypeSql=MessageTypeSql&" or MessageType=1 "
|
elseif session("Admin_Type")=3 then
|
MessageTypeSql=MessageTypeSql&" or MessageType=2 "
|
end if
|
if session("Admin_Language")="zh-CN" then
|
MessageTypeSql=MessageTypeSql&" or MessageType=4 "
|
elseif session("Admin_Language")="En" then
|
MessageTypeSql=MessageTypeSql&" or MessageType=5 "
|
end if
|
sql="select * from B2B_OrdersMessage where MessageType=0"&MessageTypeSql&" or (MessageType=3 and ToAdmin_UserID="&session("adminID")&" and MessageReadIDs not like '%,"&session("adminID")&",%') order by MessageTime desc"
|
rs.open sql,objConn,3,1
|
if not rs.eof then
|
rs.pagesize=QuantityInt
|
rs.absolutepage=acc1
|
acc2=rs.pagecount
|
acc3=rs.recordcount
|
end if
|
i=1
|
|
do while not rs.Eof and i<=QuantityInt
|
OrdersMessageID = rs("OrdersMessageID")
|
OrdersMessageTitle = rs("OrdersMessageTitle")
|
SenderID = rs("SenderID")
|
MessageTime = rs("MessageTime")
|
MessageReadIDs = rs("MessageReadIDs")
|
MessageType = rs("MessageType")
|
|
if MessageType=0 then
|
MessageTypeTXT="[公告] "
|
end if
|
i=i+1
|
%>
|
<tr>
|
<td class="title"><A HREF="Message_Detail.asp?OrdersMessageID=<%=OrdersMessageID%>"><%=MessageTypeTXT & OrdersMessageTitle%><%if InStr(MessageReadIDs,","&session("adminID")&",")<=0 then Response.Write " (新)"%></A></td>
|
<td class="date"><%=MessageTime%></td>
|
<td class="category"><%=TVadminUser(SenderID,"UserName",0)%></td>
|
<td class="selected last"><input type="checkbox" /></td>
|
</tr>
|
<%rs.movenext
|
loop
|
rs.close()
|
%>
|
<%if i<24 then
|
for j=i to 24%>
|
<tr>
|
<td class="title"> </td>
|
<td class="date"> </td>
|
<td class="category"> </td>
|
<td class="selected last"> </td>
|
</tr>
|
<%next
|
end if%>
|
</tbody>
|
</table>
|
<!-- pagination -->
|
<div class="pagination pagination-left">
|
<div class="results">
|
<%
|
ShowingLeast = (acc1-1)*QuantityInt+1
|
ShowingMax = QuantityInt*acc1
|
if ShowingMax>acc3 then ShowingMax=acc3
|
%>
|
<span><%="显示 "& ShowingLeast &"-"& ShowingMax &" of "&acc3%></span>
|
</div>
|
<%if acc2>1 then%>
|
<ul class="pager">
|
<%if acc1=1 then%>
|
<li class="disabled">« 上页</li>
|
<%else%>
|
<li><a href="?page=<%=acc1-1%>">« 上页</a></li>
|
<%end if%>
|
<%
|
acc4=""
|
for i=1 to acc2
|
if acc2<=9 then
|
acc4=acc4&","&i
|
else
|
if i=1 then
|
acc4=acc4&","&i
|
elseif acc1<=5 and i<=7 then
|
acc4=acc4&","&i
|
elseif acc1>=acc2-4 and i>=acc2-6 then
|
acc4=acc4&","&i
|
elseif i>=acc1-2 and i<=acc1+2 then
|
acc4=acc4&","&i
|
elseif i=acc2 then
|
acc4=acc4&","&i
|
elseif i=2 or i=acc2-1 then
|
acc4=acc4&",0"
|
end if
|
end if
|
next
|
acc4SP=SPLIT(acc4,",")
|
for i = 1 to UBOUND(acc4SP)%>
|
<%if acc4SP(i)="0" then%>
|
<li class="separator">...</li>
|
<%elseif acc1=cint(acc4SP(i)) then%>
|
<li class="current"><%=acc4SP(i)%></li>
|
<%else%>
|
<li><a href="?page=<%=acc4SP(i)%>"><%=acc4SP(i)%></a></li>
|
<%end if%>
|
<%next%>
|
<%if acc1>=acc2 then%>
|
<li class="disabled">下页 »</li>
|
<%else%>
|
<li><a href="?page=<%=acc1+1%>">下页 »</a></li>
|
<%end if%>
|
</ul>
|
<%end if%>
|
</div>
|
<!-- end pagination -->
|
</form>
|
</div>
|
</div>
|
<!-- end table -->
|
|
|
|
</div>
|
<!-- end content / right -->
|
</div>
|
<!-- end content -->
|
<!--#include FILE="vicgame.asp"-->
|
</body>
|
</html>
|
