📄 addatt.asp
字号:
<!--#include file="passinc.asp" -->
<%
dim am
set am = server.createobject("easymail.Attachments")
am.Load Session("wem"), Session("tid")
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function mysub()
{
if (fsa.upfile.value != "")
{
esave.style.visibility="visible";
fsa.submit();
}
}
function delatt()
{
if (fsa.AttName.value != "")
location.href = "delatt.asp?id=" + fsa.AttName.value;
}
//-->
</script>
<BODY>
<FORM ENCTYPE="multipart/form-data" ACTION="saveatt.asp" METHOD=POST NAME="fsa">
<div id="esave" style="filter:alpha(opacity=80); position:absolute; top:5; left:80; z-index:10; visibility:hidden"><TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0 align="center"><TR><td width=40%></td>
<TD bgcolor=#104A7B width="27%">
<TABLE WIDTH=100% height=22 BORDER=0 CELLSPACING=2 CELLPADDING=0>
<TR>
<td bgcolor=#eeeeee align=center>Please wait...</td>
</tr>
</table>
</td>
<td width=40%> </td>
</tr></table></div>
<br>
<table width="95%" border="0" bgColor="#93bee2" style="BORDER-LEFT: #93bee2 4px solid; BORDER-RIGHT: #93bee2 4px solid" align="center">
<td>
<input type="button" value="Delete" onclick="javascript:delatt()" class=sbttn>
<select name="AttName" class=drpdwn size="1">
<%
allnum = am.Count
i = 0
asize = am.TotalSize
response.write "<option value=''> " & allnum & " Attachment(s) (" & CLng(asize/1000) & "K)</option>"
do while i < allnum
am.GetInfoByIndex i, aid, aname, asize
response.write "<option value=""" & aid & """>" & server.htmlencode(aname) & " (" & CLng(asize/1000) & "K)</option>"
aid = NULL
aname = NULL
asize = NULL
i = i + 1
loop
%>
</select>
<input name="upfile" type="file" class='textbox'>
<input type="button" value="Upload" onclick="javascript:mysub()" class=sbttn>
<%
if trim(request("errcode")) <> "" then
response.write "<br><font color='#FF3333'>*Error: " & trim(request("errcode")) & "</font>"
end if
%>
</td>
</tr>
</table>
</FORM>
</BODY>
</HTML>
<%
set am = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -