📄 meetinglist.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>会议安排</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<form name="form" method="post" action="meetinglist.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
<tr>
<td height="50" class="title" align="center"><img src="images/meetinglist.gif"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="F5FAFD">
<tr>
<td height="26">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" bgcolor="#BADCFC">
<tr height=1>
<td colspan=5 bgcolor="#66AAE3" height="1"></td>
</tr>
<tr>
<td width="6%" align="right">状 态</td>
<td width="35%" align="center"> 标 题</td>
<td width="30%" align="center">会 议 内 容</td>
<td width="16%" align="center">会议时间</td>
<td width="13%" align="center">会议地点</td>
</tr>
<tr height=1>
<td colspan=5 bgcolor="#66AAE3" height="1"></td>
</tr>
</table>
</td>
</tr>
<!--#include file="checksql.asp"-->
<%set rs=server.createobject("adodb.recordset")
title=checksql(request("title"))
if session("type")="admin" then
sql="select id,bz,meetingname,timestart,timeend,roomname from applymeeting where status=1 and (meetingname like '%"& title &"%' or roomname like '%"& title &"%') order by donetime desc"
else
sql="select id,bz,meetingname,timestart,timeend,roomname from applymeeting where status=1 and share=0 and (meetingname like '%"& title &"%' or roomname like '%"& title &"%') and (attendid like '"&session("uid")&";%' or attendid like '%;"&session("uid")&";%') or share=1 order by donetime desc"
end if
rs.open sql,conn,1,1
mypage=8
rs.pagesize=CINT(mypage)
PageNo=CLng(REQUEST("PageNo"))
TSum=1
if PageNo="" or PageNo=0 then
PageNo=1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
if not rs.eof then
TSum=INT(rs.RECORDCOUNT/Mypage*-1)*-1
rs.absolutepage=PageNo
RowCount=rs.PageSize
nowrecord=0
end if
%>
<%if rs.eof then %>
<tr height="1">
<td bgcolor="#ffffff"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="26">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr bgcolor='#F5FAFD'>
<td align="center" class="f6wait">没有会议安排</td>
</tr>
</table>
</td>
</tr>
<tr height="1">
<td bgcolor="#C9E9FC"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%
else
for i=1 to mypage
if rs.eof then exit for
meetingstart=rs("timestart")
meetingend=rs("timeend")
meetingyear=left(meetingstart,4)
meetingmonth=mid(meetingstart,5,2)
meetingday=mid(meetingstart,7,2)
hourstart=mid(meetingstart,9,2)
minutestart=mid(meetingstart,11,2)
hourend=mid(meetingend,9,2)
minuteend=mid(meetingend,11,2)
meetingtime=meetingyear&"-"&meetingmonth&"-"&meetingday&" "&hourstart&":"&minutestart
%>
<tr height="1">
<td bgcolor="#ffffff"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td height="26">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr bgcolor='#F5FAFD'>
<td width="5%" align="right">
<%a=year(date())
b=month(date())
if len(b)=1 then b="0"&b
c=day(date())
if len(c)=1 then c="0"&c
temp=a&b&c
if CLng(left(rs("timestart"),8))>CLng(temp) then
response.write "<img src='images/email13.gif'>"
urllink="readmeeting1.asp"
else
response.write "<img src='images/newwork2.gif'>"
urllink="readmeetingjl.asp"
end if
%>
</td>
<td width="36%" align="center"> <a href="<%=urllink%>?flowid=<%=rs("id")%>" class="flow">
<%temp=""&trim(rs("meetingname"))
if len(temp)>15 then
temp=left(temp,15)&"…"
end if
response.write(temp)
%>
</a>
<%
if trim(session("type"))="admin" then
response.write " <a href=meetingjl.asp?flowid="&rs("id")&" class='flow'>"
response.write "[会议记录]</a>"
end if
%>
</td>
<td width="30%" align="center"> <a href="<%=urllink%>?flowid=<%=rs("id")%>" class="flow">
<%
temp=""&rs("bz")
if len(temp)>15 then
temp=left(temp,15)&"…"
end if
response.write(temp)
%> </a> </td>
<td width="16%" class="applygz" align="center"><%=meetingtime%></td>
<td width="13%" class="applygz" align="center"><%=rs("roomname")%></td>
</tr>
</table>
</td>
</tr>
<tr height="1">
<td bgcolor="#C9E9FC"><img src="images/spacer.gif" width="1" height="1"></td>
</tr>
<%
rs.movenext
next
end if
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="30" bgcolor="#BADCFC">
<tr height=1>
<td colspan=3 bgcolor="#66AAE3" height="1"></td>
</tr>
<tr>
<td width="54%" align="right">
<% if (PageNo*mypage-mypage)>0 then
PrwePage=PageNo-1
response.write "<a href='meetinglist.asp?title="&title&"&PageNo="&PrwePage&"' class='aapply'>上一页</a> "
else
response.write "上一页 "
end if
if (PageNO*mypage)<rs.recordcount then
NextPage=PageNo+1
response.write" <a href='meetinglist.asp?title="&title&"&PageNo="&NextPage&"' class='aapply'>下一页</a>"
else
response.write" 下一页"
end if
%>
页次:<font color="#ff5bad"><%=PageNo%></font>/<%=tsum%>页 查询:
<input class="boxinput" type="text" name="title" size="10" tableindex=1 maxlength="10" value="<%=request("title")%>">
</td>
<td width="14%" align="center" valign="bottom">
<input type="image" name="find3" value="查 找" src="images/findgif.gif" alt="查找">
</td>
<td width="32%" valign="bottom">
<input type="image" name="find22" onClick="history.go(-1);return false;" src="images/fanhuigif.gif" width="71" height="19" alt="返回">
</td>
</tr>
<tr height=1>
<td colspan=3 bgcolor="#66AAE3" height="1"></td>
</tr>
</table>
<table width="60%" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td >
<div align="center" class="9blue">注：可以对会议标题或会议室进行查询，如“表彰大会”、“308会议室”等</div>
</td>
</tr>
</table>
</form>
<!--#INCLUDE FILE="close.asp" -->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -