尝试发送邮件，但是失败了，请修改错误后重试！

＜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
lngFileContentTypeS