📄 meetquery.asp
字号:
<tr bgcolor="<%=bg%>">
<td color=""width=50%>会议召开时间:<%=rs("meettime")%></td>
<td color="" width="50%">会议组织单位:<font color=blue><%=rs("opendept")%></font></td>
</tr>
<tr bgcolor="<%=bg%>">
<td width="47%" color=""> 会议签收:
<%
qsflag=false '签收标志
qdflag=false '签收标志
startmeet=false '会议开始标志
'str=""
Set rs1=Server.CreateObject("ADODB.recordset")
sql="select * from meetuser where reid="&rs("id")&" and username='"&oabusyusername&"'"
rs1.open sql,conn,1
if not rs1.EOF and not rs1.BOF then
if rs1("qshou")=1 then
qsflag=true
Response.Write "<font color=#00a200>您已签收!</font>"
Response.Write " "
Response.write "<a title=下载打印会议通知 href='download.asp?path="&rs("filepath")&rs("filename")&"'>点击下载通知</a>"
else
'str=str &" "& rs1("meetname")
Response.Write "<img src='img\qsno.gif'>"
Response.Write " "
response.write "<a href='meetquery.asp?action=qs&thisid="&rs1("id")&"&id="&rs("id")&"'>点击签收通知</a>"
end if
else
Response.Write "情况未明!"
end if
%>
</td>
<td width="53%" color=""> 会议签到:
<%
'是否需要签到
'是否发布签到单
'是否发布签到单
'是否签到
if not rs1.EOF and not rs1.BOF then
'1
if rs("qdyn")=1 then
'2
if rs("fbqdao")=1 then
startmeet=true '开始开会，通过发布签到单来验证开始（这是在需要签到情况下）
'3
if rs1("fbqdao")=1 then
'4
if rs1("qdao")=1 then
qdflag=true
Response.Write "<font color=#00a200>您已签到!</font>"
else
Response.Write "<font color='red'><img src='img/qdno.gif'></font>"
Response.Write " "
if qsflag=true then response.write "<a href='meetquery.asp?action=qd&thisid="&rs1("id")&"&id="&rs("id")&"'>点击签到会议</a>"
end if
'4
else
Response.Write "<font color='red'>还未开会!</font>"
end if
'3
else
Response.Write "<font color='red'>还未开会!</font>"
end if
'2
else
Response.Write "<font color='green'>不需签到!</font>"
end if
'1
else
Response.Write "情况未明!"
end if
%>
</td>
</tr>
<tr bgcolor="<%=bg%>">
<td width="47%" color="">
会议材料:
<%
'是否签到或不需要签到+已经签收了
' 有讲话稿，则开会开始
if qdflag=true or (rs("qdyn")=0 and qsflag=true) then
i=0
total=0
if rs("ldjhyn")=1 then startmeet=true '验证开会开始第二个方法，发布了会议材料
Set rs2=Server.CreateObject("ADODB.recordset")
'会议材料篇数
sql="select count(*) as totalnum from ldjhg where reid="&rs("id")
rs2.open sql,conn,1
if rs2("totalnum")>0 then
totalnum=rs2("totalnum")
else
totalnum=0
end if
rs2.Close
Response.Write "共"&totalnum&"篇 >>下载会议材料: "
'按序列显示会议材料
sql="select * from ldjhg where reid="&rs("id")
rs2.open sql,conn,1
if not rs2.eof and not rs2.bof then
do while not rs2.EOF
i=i+1
filepath=rs2("filepath")&rs2("filename")
Response.Write "<a href='download.asp?path="&filepath&"'>"&i&"</a> "
rs2.MoveNext
loop
end if
rs2.Close
set rs2=nothing
end if
%>
</td>
<td colspan="2" color="" width="53%"> 反馈情况:
<%
'是否需要反馈
'用户是否反馈了
'i没有，则根据是否开会了，是否签到或不需要签到来显示没有反馈，或没参加会议
if not rs1.EOF and not rs1.BOF then
if rs("fkyn")=1 then
if rs1("fkiu")=1 then
%>
<font color='green'>您已反馈意见 </font> >><a href='javascript:openScript1("fk.asp?action=showfk&id=<%=rs("id")%>",700,580)'>查看反馈意见!</a>
<%
else
'如未开会，则显示还未开会
if startmeet=true then
'需在此插入判断语句，作用是根据是否要签到来显示没有反馈字样，或您还未参加会议字样
if qdflag=true or (rs("qdyn")=0 and qsflag=true) then
Response.Write "<font color='red'><img src='img/fkno.gif'></font>"
Response.Write " "
Response.Write "<a href=javascript:MM_openBrWindow1('fk.asp?action=fk&id="&rs("id")&"','_blank','width=703,height=580,resizable=1,scrollbars=yes,menubar=no,status=no,left=5,top=10')>我要反馈</a>"
else
Response.Write "<font color='red'>您还未参加会议!</font>"
end if
else
Response.Write "<font color='red'>还未开会!</font>"
end if
end if
else
Response.Write "<font color='green'>该会议不需要网上反馈!</font>"
end if
else
Response.Write "情况未明!"
end if
%>
</td>
</tr>
<%if rs("fbdw")=oabusyusername then%>
<tr bgcolor="<%=bg%>">
<td colspan="3" color="" ><div align=center>
<font color="#009933"> <a href="javascript:openScript1('meetqs.asp?id=<%=rs("id")%>',600,500)">签收签到情况</a>
<a href="javascript:openScript1('meetfk.asp?id=<%=rs("id")%>',600,500)">查看反馈情况</a></font></div></td>
</tr><%end if%>
</table>
<hr size="1" color="#cccccc">
<%
rs1.Close
set rs1=nothing
end if
rs.MoveNext
color=not color
count =count+1
loop
'如果没有记录则
else
Response.Write "</TD></TR></TBODY></TABLE></table></CENTER></DIV><p>"
Response.Write "没有符合条件的会议"
end if
' end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</table></table>
<!--查询开始-->
<FORM name=FrmSearch action=meetquery.asp method=post>
<TABLE width="90%" border=0 cellPadding=0 cellSpacing=1 align="center" bgcolor="#cccccc">
<TBODY>
<TR bgColor=#eeeeee>
<TD align=center colSpan=2 height="20">--查询会议通知--</TD></TR>
<TR bgColor=#ffffff>
<TD align="right" noWrap>名称：
<INPUT class=smallinput size=14 name=meetname> </TD>
<TD> 单位：
<INPUT class=smallinput size=14 name=opendept >
</TD>
</TR>
<TR bgColor=#ffffff>
<TD align="right" noWrap>自：
<INPUT class=smallinput maxLength=4 size=3
name=byear >
年
<INPUT class=smallinput maxLength=2 size=1
name=bmonth >
月
<INPUT class=smallinput maxLength=2 size=1 name=bday >
日 </TD>
<TD> 至：
<INPUT class=smallinput maxLength=4 size=3
name=eyear >
年
<INPUT class=smallinput maxLength=2 size=1
name=emonth >
月
<INPUT class=smallinput maxLength=2 size=1 name=eday >
日 </TD>
</TR>
<TR bgColor=#ffffff>
<TD align=middle colSpan=2><INPUT class=buttonface type=submit size=10 value=查询 name=B1> <INPUT class=buttonface type=reset size=10 value=重写 name=B2></TD></TR></TBODY></TABLE></FORM><!--查询结束-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle width="100%">
</TD></TR>
<TR>
<TD>
<P align=center></P></TD></TR>
<TR vAlign=center>
<TD align=middle width="100%"><FONT face=宋体 color=navy><!--#include file="footer.htm"--></FONT></TD>
</TR></TBODY></TABLE><p></P></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -