?? mail_edit.asp
字號:
<%
'OA 表單生成器1.0
'功能：編輯內部信箱
'參數(shù)：request.form("addedit_subed")="send"#表單提交;
%>
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
'response.buffer=false
'------------------------------------------------設置參數(shù)
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '當前用戶ID
pid=request("id") '記錄ID
pmod=request("mod") '模式（0撰寫，1修改，2回復，3轉發(fā)）
if pmod="" then pmod=0
pmod=cint(pmod)
'------------------------------------------------
if pid<>"" then
'取郵件記錄
'------------------------------------------------取記錄
'取要查看的記錄 （返回rs對象）
table="tbioamail" '表名
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from " & table & " where ID="&pid
rs.open sql,oConn,1,1
'------------------------------------------------
'------------------------------------------------標記為已讀
if rs("read_mod")=false then
sql="update " & table & " set read_mod=1 where ID="&pid
oConn.Execute sql
end if
'------------------------------------------------
Select Case pmod
Case 1 '修改
show_nbsjr=rs("nbsjr")'收件人
show_subject=Server.HTMLEncode(rs("subject"))'主題
show_body=Server.HTMLEncode(rs("body"))'內容
Case 2 '回復
show_nbsjr=rs("fjr")
show_subject="Re:"&Server.HTMLEncode(rs("subject"))
show_body=""
Case 3 '轉發(fā)
show_nbsjr=""
show_subject="Fw:"&Server.HTMLEncode(rs("subject"))
show_body=vbcrlf&vbcrlf&vbcrlf&vbcrlf&"= = = = = = 下面是轉發(fā)郵件 = = = = = = ="&vbcrlf&Server.HTMLEncode(rs("body"))&vbcrlf&"= = = = = = = = = = = = = = = = = = = ="
Case Else
show_nbsjr=""
show_subject=""
show_body=""
End Select
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<script src="../js/Popup.js"></script>
<script src="../js/front_chec.js"></script>
<script src="../js/user_select.js"></script>
<script language="JavaScript">
<!--
function require(form){
if (!checnull(form.input_nbsjrxm,"請?zhí)顚懯占耍?quot;)) return false;
if (!checnull(form.input_subject,"請?zhí)顚懼黝}！")) return false;
form.input_body.value=editor.save()
if (form.input_body.value=="") {alert("請?zhí)顚懻模?quot;); return false;}
return true;
}
function SelectTemplate(obj){
if (obj.value!=0){
showbody.id.value=obj.value;
showbody.submit();
}
}
function select_nbsjr(form){
strtmpusers = SelectUsers(form.input_nbsjr.value);
if (strtmpusers != "") {
strtmpusers=strtmpusers.split("_")
form.input_nbsjr.value=strtmpusers[0]
form.input_nbsjrxm.value=strtmpusers[1]
}
}
function setcount()
{
str='';
if(!window.eventfrm.upcount.value)
window.eventfrm.upcount.value=1;
for(i=1;i<=window.eventfrm.upcount.value;i++)
{
str+='<table cellSpacing="1" borderColorDark="#808080" cellPadding="0" width="100%" bgColor="#efefef" borderColorLight="#ffffff" border="0">';
str+='<tr>';
str+='<td noWrap width="60"> 附件'+i+'： </td>';
str+='<td><input type="file" size="60" name=file'+i+'></td>';
str+='</tr></table>';
}
window.upfiletd.innerHTML=str;
}
function GetObjID(ObjName)
{
for (var ObjID=0; ObjID < window.eventfrm.elements.length; ObjID++)
if ( window.eventfrm.elements[ObjID].name == ObjName )
{ return(ObjID);
break;
}
return(-1);
}
function DeleteItem(ObjName)
{
ObjID = GetObjID(ObjName);
minselected=0;
if ( ObjID != -1 )
{
for (i=window.eventfrm.elements[ObjID].length-1; i>=0; i--)
{ if (window.eventfrm.elements[ObjID].options[i].selected)
{ // window.alert(i);
if (minselected==0 || i<minselected)
minselected=i;
window.eventfrm.elements[ObjID].options[i] = null;
}
}
i=window.eventfrm.elements[ObjID].length;
if (i>0) {
if (minselected>=i)
minselected=i-1;
window.eventfrm.elements[ObjID].options[minselected].selected=true;
}
S_Accessory();
}
}
function S_Accessory()
{
var str;
str="";
for (i=0;i<eventfrm.Accessory.options.length;i++)
str+=eventfrm.Accessory.options[i].value+',';
eventfrm.AccessoryID.value=str;
}
-->
</script>
</head>
<body topmargin="10" leftmargin="10">
<%if pmod=0 then%>
<!--#include file="mail_menu.html"-->
<hr width="100%" size=1 color="#000000">
<%end if%>
<table border=0 cellspacing="0" cellpadding="0">
<tr>
<td>內部信箱->編輯郵件</td>
</tr>
</table>
<hr width="100%" size=1 color="#000000">
<br>
<div align="left">
<table width="100%" cellspacing="1" cellpadding="2" class="tab">
<tr>
<td width="20%" class="tdTop">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="tdTop">
<p align="left"><img border="0" src="../images/icon_title.gif" align="left">
<%
Select Case pmod
Case 2
response.write("回復郵件")
Case 3
response.write("轉發(fā)郵件")
Case Else
response.write("寫郵件")
End Select
%>
</p>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td class="td1">
<% if request.form("addedit_subed")<>"" then %>
<table border="0" width="100%" cellspacing="10" cellpadding="0">
<tr>
<td width="36%">
<p align="right"><img border="0" src="../images/edit.gif" width="32" height="32">
</td>
<td width="64%"><p> </p>
<%=word%>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
</td>
</tr>
</table>
<% else %>
<form name="eventfrm" method="POST" action="update.asp" enctype="multipart/form-data" onSubmit="return require(this)">
<input type=hidden name="addedit_subed" value="send">
<input type=hidden name="mod" value="<%=pmod%>">
<input type=hidden name="id" value="<%=pid%>">
<table height="22" cellSpacing="0" cellPadding="0" width="100%" bgColor="#efefef" border="0">
<tbody>
<tr>
<td>
<table cellSpacing="0" borderColorDark="#808080" cellPadding="0" bgColor="#efefef" borderColorLight="#ffffff" border="1">
<tbody>
<tr borderColorLight="#efefef" borderColorDark="#efefef">
<td noWrap align="absmiddle">
<table onmouseup="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF'" onmousedown="javascript:this.borderColorDark='#ffffff';this.borderColorLight='#808080'" onmouseover="javascript:this.borderColorDark='#808080';this.borderColorLight='#ffffff';" style="CURSOR: hand" onclick="javascript:eventfrm.addedit_subed.value='send';if (require(eventfrm)) {document.eventfrm.submit();}" onmouseout="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF';" height="22" cellSpacing="0" borderColorDark="#efefef" cellPadding="0" borderColorLight="#efefef" border="1">
<tbody>
<tr>
<td vAlign="center" noWrap borderColorLight="#efefef" align="middle" bgColor="#efefef" borderColorDark="#efefef"><img src="../images/send.gif" align="absMiddle" width="16" height="16"><span class="menuText">
立即發(fā)送</span></td>
</tr>
</tbody>
</table>
</td>
<td noWrap>
<table height="22" cellSpacing="0" borderColorDark="#efefef" cellPadding="0" borderColorLight="#efefef" border="0">
<tbody>
<tr>
<td vAlign="center" noWrap borderColorLight="#efefef" align="middle" bgColor="#efefef" borderColorDark="#efefef"><img src="../images/toolbar2.gif" width="2" height="22"></td>
</tr>
</tbody>
</table>
</td>
<td noWrap align="absmiddle">
<table onmouseup="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF'" onmousedown="javascript:this.borderColorDark='#ffffff';this.borderColorLight='#808080'" onmouseover="javascript:this.borderColorDark='#808080';this.borderColorLight='#ffffff';" style="CURSOR: hand" onclick="javascript:eventfrm.addedit_subed.value='save'; if (require(eventfrm)) {document.eventfrm.submit();}" onmouseout="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF';" height="22" cellSpacing="0" borderColorDark="#efefef" cellPadding="0" borderColorLight="#efefef" border="1">
<tbody>
<tr>
<td vAlign="center" noWrap borderColorLight="#efefef" align="middle" bgColor="#efefef" borderColorDark="#efefef"><img src="../images/save.gif" align="absMiddle" width="16" height="16"><span class="menuText">
<%if pmod=1 then%>保存郵件<%else%>保存到草稿夾<%end if%></span></td>
</tr>
</tbody>
</table>
</td>
<%if pmod<>0 then%>
<td noWrap>
<table height="22" cellSpacing="0" borderColorDark="#efefef" cellPadding="0" borderColorLight="#efefef" border="0">
<tbody>
<tr>
<td vAlign="center" noWrap borderColorLight="#efefef" align="middle" bgColor="#efefef" borderColorDark="#efefef"><img src="../images/toolbar2.gif" width="2" height="22"></td>
</tr>
</tbody>
</table>
</td>
<td noWrap align="absmiddle">
<table onmouseup="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF'" onmousedown="javascript:this.borderColorDark='#ffffff';this.borderColorLight='#808080'" onmouseover="javascript:this.borderColorDark='#808080';this.borderColorLight='#ffffff';" style="CURSOR: hand" onclick="javascript:window.close()" onmouseout="javascript:this.borderColorDark='#EFEFEF';this.borderColorLight='#EFEFEF';" height="22" cellSpacing="0" borderColorDark="#efefef" cellPadding="0" borderColorLight="#efefef" border="1">
<tbody>
<tr>
<td vAlign="center" noWrap borderColorLight="#efefef" align="middle" bgColor="#efefef" borderColorDark="#efefef"><img src="../images/icon_return.gif" align="absMiddle" width="16" height="16"><span class="menuText">
關閉</span></td>
</tr>
</tbody>
</table>
</td>
<%end if%>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table cellSpacing="1" borderColorDark="#808080" cellPadding="0" width="100%" bgColor="#efefef" borderColorLight="#ffffff" border="1">
<tbody>
<tr>
<td noWrap borderColorLight="#efefef" bgColor="#efefef" borderColorDark="#efefef"></td>
</tr>
</tbody>
</table>
<table width="100%" cellspacing="1" cellpadding="2">
<tbody>
<tr>
<td noWrap> 收件人： </td>
<td><input size="70" name="input_nbsjrxm" value="<%=Server.HTMLEncode(getusernames(show_nbsjr," "))%>" readonly onclick="javascript:select_nbsjr(eventfrm)" style="CURSOR: hand"><input type="hidden" name="input_nbsjr" value="<%=show_nbsjr%>"></td>
</tr>
<tr>
<td noWrap> 主題： </td>
<td><input size="70" name="input_subject" value="<%=show_subject%>"></td>
</tr>
<tr>
<td noWrap> 郵件模板： </td>
<td>
<select name="template" onchange="SelectTemplate(this)">
<option value="" selected>－選擇郵件模板－</option>
<%Call Options("tbioaMail_Template","Title",0)%>
</select>
</td>
</tr>
<tr>
<td vAlign="center" noWrap colSpan="2">
<!--<textarea name="input_body" rows="16" wrap="hard" cols="79"><%=show_body%></textarea>-->
<input type=hidden name="input_body" value="">
<%if pid="" then pid=0%>
<iframe id="editor" src="../inc/editor.asp?edit=select body from tbioamail where ID=<%=pid%>" width="100%" height="400" scrolling="yes" style="border: 1 solid #000000"></iframe>
</td>
</tr>
<tr>
<td vAlign="center" noWrap colSpan="2">
<input type="checkbox" value="1" name="input_backup_mod">保存一份在寄件夾
<input type="checkbox" value="1" name="input_revert_mod">對方讀到信時給我回應
</td>
</tr>
<% if pid<>"" then
set rs1=Server.CreateObject("ADODB.RecordSet")
sql="select * from tbioaMail_Accessory where Parentid="&pid
rs1.open sql,oconn,1,1
if rs1.RecordCount>0 then%>
<tr>
<td noWrap> 已上傳附件： </td>
<td>
<select name=Accessory>
<%
do while not rs1.eof%>
<option value=<%=rs1("id")%>><%=server.HTMLEncode(rs1("name") & "")%></option>
<%
rs1.movenext
loop%>
</select>
<input type=hidden value="" name=AccessoryID>
<input type=button value="刪除附件" class=input onClick="JavaScript:if (window.confirm('真的要刪除嗎？\n該操作不可逆。')) DeleteItem('Accessory');">
<script language="javascript">
S_Accessory();
</script>
</td>
</tr>
<%end if
end if%>
<tr>
<td noWrap> 附件個數(shù)： </td>
<td>
<select name="upcount" onchange="JavaScript:setcount()" style="color:#FF0000" >
<%for i=1 to 10%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
</td>
</tr>
<tr>
<td vAlign="center" noWrap colSpan="2" id=upfiletd>
</td>
</tr>
</tbody>
</table>
</form>
<% end if %>
</td>
</tr>
<tr>
<td width="25%" class="tdBottom">
</td>
</tr>
</table>
</div>
</body>
<form id="showbody" method="POST" action="tbioaMail_SelectTemplate.asp" target="hidframe">
<input type="hidden" name="id" value="">
</form>
</html>
<script language="javascript">
setcount(); //附件個數(shù)
</script>
<%'釋放對象變量
oConn.close
%> ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -