|
尝试发送邮件，但是失败了，请修改错误后重试！ ＜script language="javascript"＞ alert("您输入的收件组格式错误！正确的格式是:'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%＞中目前没有任何的用户 所以不能发送"); 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&"'" |