ASP中十大常用程序代码.：第九节〈我的心得〉

用ASP实现支持附件的EMail系统(3)
  
　　尝试发送邮件，但是失败了，请修改错误后重试！
＜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＞