?? editmsg.asp
字號:
<!--#include file="menu.asp" -->
</td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td height="30" bgcolor="#6699FF"> <span class="fontsize14"><%=user_name%>，你好！歡迎使用留溪網上傳文系統。你現在可以修改已發送的信息！</span></td>
<td width="40" bgcolor="#6699FF"><div align="center"><a href="list.asp?pageno=<%=pageno%>" class="fontsize14wu" onMouseOver="window.status='';return true"><strong><font color="#FF0000">返回</font></strong></a></div></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<%str="select * from woa where id="&edit_id&""
set rs=conn.execute(str)
old_bt=rs("標題")
old_nr=rs("內容")
old_nr=replace(old_nr,"<br>",chr(13))
old_jsr=rs("接收者")
old_fjs=rs("附件數")
old_fjsm=replace(rs("附件說明")," ","")
old_fjname=replace(rs("附件")," ","")
old_userall=rs("所有人")
rs.close
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
<tr>
<td bgcolor="#6699FF"><table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><form name="form2" method="post" action="editmsg.asp?doing=rejsr&edit_id=<%=edit_id%>&list=all">
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff">
<tr>
<td width="16" align="center" valign="middle" bgcolor="#99CCFF">
<p class="fontsize14">接</p>
<p class="fontsize14">收</p>
<p class="fontsize14">人</p></td>
<td width="710" valign="top" bgcolor="#99CCFF" class="fontsize14h20wu"><table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td><input name="usr_all" type="checkbox" id="usr_all" value="1" <%if old_userall="1" then%>checked<%end if%>>
<span class="fontsize14">所有人 <font color="#FF0000">若選所有人接收信息，則下面不用再選擇。</font>
<%if list<>"all" then%>
<a href="editmsg.asp?list=all&edit_id=<%=edit_id%>" class="fontsize14wu" onMouseOver="window.status='';return true">顯示所有人名單</a>
<%else%>
<a href="editmsg.asp?edit_id=<%=edit_id%>" class="fontsize14wu" onMouseOver="window.status='';return true">關閉所有人名單</a>
<%end if%>
</span></td>
</tr>
</table>
<%str="select * from woa_bumeng"
set rs=conn.execute(str)
if not rs.eof then
m=0%> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%"> <input name="sele_bumeng" type="checkbox" id="sele_bumeng" value="<%=rs("部門")%>">
<span class="fontsize14"><%=rs("部門")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%> <%str="select * from woa_zhuwu"
set rs=conn.execute(str)
if not rs.eof then
m=0%> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<%do while not rs.eof%>
<td width="14%"> <input name="sele_zhuwu" type="checkbox" id="sele_zhuwu" value="<%=rs("職務")%>">
<span class="fontsize14"><%=rs("職務")%></span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if
rs.close%> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td class="fontsize14">指定接收人：
<input name="sure_user" type="text" class="inputtext" id="sure_user" size="40">
請輸入收文人姓名，多人以半角的“|”符號隔開。</td>
</tr>
</table>
<%if list="all" then%> <%str="select 姓名,部門 from user_teacher order by "&jsrx&""
set rs=conn.execute(str)
if not rs.eof then
m=0%> <table width="99%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<%do while not rs.eof%>
<td width="14%"><input name="sele_name" type="checkbox" id="sele_name" value="<%=rs("姓名")%>" <%if instr(old_jsr,"|"&rs("姓名")&"|") then%>checked<%end if%>>
<span class="fontsize12h20"><%=rs("姓名")%>(<%=left(rs("部門"),1)%>)</span></td>
<%rs.movenext
m=m+1
if m mod 7=0 then response.write "</tr><tr>"
loop%>
</tr>
</table>
<%end if%> <%rs.close%> <%end if%> </td>
</tr>
<tr>
<td height="30" colspan="2" align="center" valign="middle" bgcolor="#99CCFF" class="fontsize14"><input name="Submit4" type="submit" class="inputbox" value="修改接收人">
<input name="Submit5" type="reset" class="inputbox" value=" 重 選 "></td>
</tr>
</table>
</td></form>
</tr>
<tr>
<td><form name="form1" LANGUAGE="javascript" onsubmit="return form1_onsubmit()" method="post" action="editmsg.asp?doing=sendto&edit_id=<%=edit_id%>">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
<tr>
<td width="40" class="fontsize14"><div align="center">主題</div></td>
<td width="706"><div align="center">
<input name="zt" type="text" class="inputtext" id="zt" value="<%=old_bt%>" size="112">
</div></td>
</tr>
<tr>
<td valign="top" class="fontsize14"> <div align="center">內容</div></td>
<td><div align="center">
<textarea name="nr" style="font-family:宋體;font-size:12px" cols="110" rows="20" id="nr"><%=old_nr%></textarea>
</div></td>
</tr>
<tr>
<td valign="top" class="fontsize14"> <div align="center">
<p class="fontsize14h20">附件</p>
</div></td>
<td height="30"> <%if old_fjs>0 then %>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="20"><table width="100%" border="0" cellspacing="0" cellpadding="2">
<%for m=1 to old_fjs
temp1=mid(old_fjsm,1,instr(old_fjsm,"|")-1)
old_fjsm=mid(old_fjsm,instr(old_fjsm,"|")+1)
temp2=mid(old_fjname,1,instr(old_fjname,"|")-1)
old_fjname=mid(old_fjname,instr(old_fjname,"|")+1)
%>
<tr>
<td width="90%" height="24"> <a href=<%=temp2%> target="_blank" class="fontsize12" onMouseOver="window.status='';return true"><%=temp1%></a></td>
<td width="10%"><div align="center" class="fontsize12wu"><a href=editmsg.asp?doing=delefj&delefile=<%=temp2%>&edit_id=<%=edit_id%>&defjsm=<%=temp1%>>刪除附件</a></div></td>
</tr>
<%next%>
</table></td>
</tr>
</table>
<%end if%> <table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<input type="button" name="Submit2" class="inputbox" value="上傳附件" style="font-size: 9pt;cursor:hand" onclick="javascript:upload1()" title="選擇上傳文件">
<strong><font color="#FF0000"><span class="fontsize12">
上傳附件后須點擊“修改信息”才會顯示附件信息。 </span></font></strong><font color="#FF0000"><span class="fontsize12">
</span></font>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize04"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="40" colspan="2" class="fontsize14"><div align="center">
<input name="Submit" type="submit" class="inputbox" value=" 修改信息 ">
<input name="Submit3" type="reset" class="inputbox" value=" 重填信息 ">
</div></td>
</tr>
</table>
</td></form>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="fontsize10"> </td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelr">
<tr>
<td class="fontsize04"> </td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="bottom.asp" --></td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -