|
|
板凳

楼主 |
发表于 2009-11-26 11:30:29
|
只看该作者
addatt.asp这个里面有 上传附件 的句子,应该是改这个文件吧?
我把这个文件复制一下
<!--#include file="passinc.asp" -->
<%
dim am
set am = server.createobject("easymail.Attachments")
am.Load Session("wem"), Session("tid")
dim csstype
if request.Cookies("17mail_csstype")<>"" then
csstype=request.Cookies("17mail_csstype")
else
csstype="green"
end if
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<TITLE>WinWebMail</TITLE>
<LINK id=cssGlobe href="styles/globle.css" type=text/css rel=stylesheet>
<LINK id=cssBlue href="styles/<%=csstype%>/style.css" type=text/css rel=stylesheet>
</HEAD>
<script LANGUAGE=javascript>
<!--
function mysub()
{
if (document.fsa.upfile.value != "")
{
var theObj = document.getElementById("esave");
theObj.style.visibility="visible";
document.fsa.submit();
}
}
function delatt()
{
if (document.fsa.AttName.value != "")
location.href = "delatt.asp?id=" + document.fsa.AttName.value;
}
//-->
</script>
<BODY class="ibxBody">
<FORM ENCTYPE="multipart/form-data" ACTION="saveatt.asp" METHOD=POST NAME="fsa">
<div id="esave" style="position:absolute; top:5; left:40; z-index:10; visibility:hidden">
<TABLE WIDTH=90% BORDER=0 CELLSPACING=0 CELLPADDING=0 align="center"><TR><td width=40%></td>
<TD width="15%">
<TABLE WIDTH=100% height=22 BORDER=0 CELLSPACING=2 CELLPADDING=0>
<TR>
<td bgcolor=#eeeeee align=center>请稍候...</td>
</tr>
</table>
</td>
<td width=40%> </td>
</tr></table>
</div>
<div class="gTlBar">
<input type="button" class="bot2 btnfnt" onClick="javascript:delatt()" value="删除">
<select name="AttName" class=drpdwn size="1">
<%
allnum = am.Count
i = 0
asize = am.TotalSize
response.write "<option value=''>---共有" & allnum & "个附件 (" & 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="bot4 btnFnt">
<input type="button" value="上传附件" onClick="javascript:mysub()" class="bot2 btnfnt">
<%
if trim(request("errcode")) <> "" then
response.write "<br><font color='#FF3333'>*错误: " & trim(request("errcode")) & "</font>"
end if
%>
</div>
</FORM>
</BODY>
</HTML>
<%
set am = nothing
%> |
|