📄 modifynotice.asp
字号:
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<script Language="JavaScript">
function form_check(){
if(document.form2.meetname.value==""){window.alert("会议名称不能为空");document.form2.meetname.focus();return (false);}
if(document.form2.opendept.value==""){window.alert("组织单位不能为空");document.form2.opendept.focus();return (false);}
if(document.form2.meettime.value==""){window.alert("会议时间不能为空");document.form2.meettime.focus();return (false);}
// if(document.form2.joinman.value==""){window.alert("与会单位不能为空");document.form2.joinman.focus();return (false);}
}
</script><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css"></head>
<body bgcolor="#eeeeee" topmargin="5" leftmargin="0">
<br><center>
<b>会议通知修改</b> "<font color=red>*</font>"号的表示必须填写
</center>
<center>
<%
set conn=opendb("oabusy","conn","accessdsn")
'从userlist提交而来，为修改与会单位
if request("nid")<>"" then
count=0
condition=""
for each idno in request("nid")
count=count+1
condition=condition+"|" & idno
next
end if
'修改还差meetuser表格的对应用户
if request("submit")="修改" then
meetname=request("meetname")
meettime=request("meettime")
opendept=request("opendept")
joinman=request("joinman")&"|"
id=request("id")
if request("qdyn")="yes" then
sql="update meetdate set meetname='"&meetname&"', opendept='"&opendept&"', meettime='"&meettime&"', joinman='"&joinman&"',qdyn=1,"
else
sql="update meetdate set meetname='"&meetname&"', opendept='"&opendept&"', meettime='"&meettime&"',joinman='"&joinman&"', qdyn=0,"
end if
if request("fkyn")="yes" then
sql=sql&" fkyn=1 where id="&id
else
sql=sql&" fkyn=0 where id="&id
end if
'Response.Write sql
conn.execute sql
sql="delete from meetuser where reid="&id
conn.execute sql
set rs=server.createobject("ADODB.recordset")
sql="select * from meetuser"
rs.Open sql,conn,1,3
mysendto=split(joinman,"|",-1,1)
for each sendtoinf in mysendto
if trim(sendtoinf)<>"" then
set rs1=server.createobject("ADODB.recordset")
sql="select * from userinf where username='"&trim(sendtoinf)&"'"
rs1.Open sql,conn,1,3
rs.addnew
rs("username")=sendtoinf
if not rs1.EOF then rs("name")=rs1("name")
rs("qshou")=0
rs("qdao")=0
rs("reid")=id
rs("meetname")=meetname
rs.update
rs1.Close
set rs1=nothing
end if
next
rs.close
set rs=nothing
%>
<br>
<br>
<font color="red">会议通知修改成功！</font>
<a href="noticecontrol.asp">返回</a>
<%
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from meetdate where id="&request("id")
rs.Open sql,conn,1%>
<br>
<form method=post name=form2 action="modifynotice.asp" onsubmit="return form_check();" >
<table width="80%" border="0" cellpadding="1" cellspacing="0" align="center">
<tr>
<td>
<table width="100%" border="0">
<tr>
<td>
<table width="100%" border="0" bgcolor="#cccccc" cellpadding="0" cellspacing="1">
<tr bgcolor="#cccccc">
<td height="14" colspan="3"> </td>
</tr>
<tr bgcolor="#eeeeee">
<td width="15%" height="30" align="center"> 会 议 名 称：</td>
<td width="72%">
<input type=text name="meetname" size=60 value="<%=rs("meetname")%>" style='border:1 solid #000000;background:#ffffff'>
<font color=red>*</font> </td>
<td width="13%">
<div align="center"><font color="#FF0000">需要签到</font>
<input type="checkbox" name="qdyn" value="yes" <%if rs("qdyn")=1 then%>checked<%end if%> style='border:1 solid #000000;background:#ffffff'>
</div> </td>
</tr>
<tr bgcolor="#eeeeee">
<td height="30" align="center">会议组织单位：</td>
<td>
<input type=text name="opendept" size=60 value="<%=rs("opendept")%>" style='border:1 solid #000000;background:#ffffff'>
<font color=red>*</font> </td>
<td>
<div align="center"><font color="#FF0000">需要反馈</font>
<input type="checkbox" name="fkyn" value="yes" <%if rs("fkyn")=1 then%>checked<%end if%> style='border:1 solid #000000;background:#ffffff'>
</div> </td>
</tr>
<tr bgcolor="#eeeeee">
<td height="30" align="center">会议召开时间：</td>
<td colspan="2">
<input type=text name="meettime" size=40 value="<%=rs("meettime")%>" style='border:1 solid #000000;background:#ffffff'>
<font color=red>*</font> 格式如:2003-2-28 8:30</td>
</tr>
<tr bgcolor="#eeeeee">
<td height="30" align="center">参加会议人员：</td>
<td valign="top" align="left" colspan="2">
<textarea name="joinman" cols="60" rows="4" readonly=" " style='border:1 solid #000000;background:#ffffff'><% if request("nid")<>"" then
Response.Write condition
else
Response.Write rs("joinman")
end if
%></textarea>
<font color=red>*</font><a href="USERLIST.ASP?opper=modifynotice.asp&id=<%=rs("id")%>" >与会人员列表</a></td>
</tr>
<tr bgcolor="#eeeeee">
<td height="30" align="center">会议内容文件：</td>
<td colspan="2"> <%=rs("filename")%> </td>
</tr>
</table>
</table>
</table>
<br><input type="hidden" name="id" value="<%=rs("id")%>">
<input type="submit" name="submit" value="修改" style='border:1 solid #000000;background:#cc6600'>
</form>
<%
rs.Close
set rs=nothing
end if
conn.close
set conn=nothing
%>
</center>
</body>
</html><!--#include file="footer.htm"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -