用ASP實現支援附件的EMail系統(3)

來源:互聯網
上載者:User
嘗試發送郵件,但是失敗了,請修改錯誤後重試!

<script language="javascript">
alert("您輸入的收件組格式錯誤!\r正確的格式是:'gr:001'");
history.back();
</script>
<p>
<%
response.end
else
thegroup=(mid(trim(strfieldvalue),4))
end if
end if

tmpSQL="select * from t_group where owner='"&session("myid")&"' and groupidowner='"&thegroup&"'"
'response.write tmpsql
set tmprs=server.CreateObject("ADODB.Recordset")
tmprs.Open tmpsql,conn
if tmprs.bof or tmprs.eof then
'沒有找到該組
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件組<%=thegroup%>沒有找到!");
history.back();
</script>
<p>
<%
response.end
else
if tmprs("personnum")=0 then
'組內沒有使用者
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件組<%=thegroup%>中目前沒有任何的使用者\n所以不能發送");
history.back();
</script>
<p>
<%
response.end
else
strFieldValue=trim(tmprs("groupempl"))
tmprs.close
set tmprs=nothing
end if
end if
end if

if instr(strfieldValue,"|") then
'組發
allsearch=replace(trim(strfieldValue),"|","','")
allsearch="'"&allsearch&"'"
tmpstring=trim(strfieldValue)&"|"
tosearch=""
do while len(tmpstring)>=5

tosearch=left(tmpstring,5)
tmpstring=mid(tmpstring,7)
if instr(tosearch,"|") then
'格式錯誤
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件者格式錯誤!");
history.back();
</script>
<p>
<%
response.end
end if

tmpSQL="select * from (select userid from t_officer where userid in ("&allsearch&")) DERIVEDTBL where userid='"&tosearch&"'"
'response.write tmpsql
set tmprs=server.CreateObject("ADODB.Recordset")
tmprs.Open tmpsql,conn
if tmprs.eof or tmprs.bof then
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件者<%=tosearch%>沒有找到!");
history.back();
</script>
<p>
<%
response.end
end if
tmprs.close
set tmprs=nothing
loop
strfieldValue=trim(strFieldValue)

else
if len(trim(strFieldValue))<>5 then
'格式不正確
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件者<%=trim(strFieldValue)%>不正確!");
history.back();
</script>
<p>
<%
response.end
else
if isnumeric(trim(len(strFieldValue))) then


tmpSQL="select * from t_officer where userid='"&trim(strFieldValue)&"'"

set tmprs=server.CreateObject("ADODB.Recordset")
tmprs.Open tmpsql,conn
if tmprs.eof or tmprs.bof then
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件者<%=trim(strFieldValue)%>沒有找到\r該員工可能還沒有註冊!");
history.back();
</script>
<p>
<%
response.end
end if
tmprs.close
set tmprs=nothing


strfieldValue=trim(strFieldValue)
else
%>
嘗試發送郵件,但是失敗了,請修改錯誤後重試!
<script language="javascript">
alert("您輸入的收件者<%=trim(strFieldValue)%>不正確!");
history.back();
</script>

<p> <%
response.end
end if
end if
end if

end if
strFieldValue=replace(strFieldValue,"<","<")
'response.write strfieldname
rs(STRFIELDNAME)=replace(strFieldValue,">",">")

binHTTPHeader=MIDB(binHTTPHeader,INSTRB( DataStart + 1, binHTTPHeader, divider ))

loop
'開始處理檔案資料


titem=0
rs("filesize_1")=0
rs("filesize_2")=0
rs("filesize_3")=0



Do while lenB(binHTTPHeader)>46

if INSTRB( binHTTPHeader, bnCRLF & bnCRLF )<>0 then
binHeaderData = LeftB(binHTTPHeader,INSTRB( binHTTPHeader, bnCRLF & bnCRLF )-1)
else
exit do
end if
strHeaderData=bin2str(binHeaderData)


'讀取上傳檔案的Content-Type
lngFileContentTypeStart=Instr(strHeaderData,"Content-Type:")+Len("Content-Type:")
strFileContentType=Trim(Mid(strHeaderData,lngFileContentTypeStart))
strFileContentType=Replace(strFileContentType,vbCRLF,vbNullString)

'讀取上傳的檔案名稱
if instr(strheaderdata,"filename=")>0 then
lngFileNameStart=Instr(strHeaderData,"filename="&chr(34))+Len("filename="&chr(34))
lngFileNameEnd=Instr(lngFileNameStart,strHeaderData,chr(34))
strFileName=Mid(strHeaderData,lngFileNameStart,lngFileNameEnd-lngFileNameStart)
strFileName=Trim(strFileName)
strFileName=Replace(strFileName,vbCRLF,vbNullString)
else
strfilename=""
end if

'讀取上傳檔案資料
DataStart = INSTRB( binHTTPHeader, bnCRLF & bnCRLF ) + 4
DataEnd = INSTRB( DataStart + 1, binHTTPHeader, divider ) - DataStart

If strFileName<>"" Then
if dataend>0 then
binFieldValue=MIDB( binHTTPHeader, DataStart, DataEnd )
'將上傳的檔案寫入資料庫
titem=titem+1
'response.write "titem:"&titem
rs("FileContentType_"&titem)=strFileContentType
rs("FileContent_"&titem).AppendChunk binFieldValue
rs("filesize_"&



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。