有没有老大啊，问题讲了这么久都没人回答。

注册用户进不了发邮件的选择用户名里，希望老大在开发2.1的时候，能先找个时间把这个解决。因为关系到大家的使用，我本人很喜欢这个，至少我认识，现在的程序如果改下去，一定会跟完美政府相媲美，，别的就不多说了，还是希望能解决这个代码。

我拿出来。
HXINCLUDE/HX_Selectuser.asp

<form action="" method="post" name="form1">
  <%
  checkuser=request("checkuser")
  aaa=1
  set SERS=WS_S.HX_SetRSD("","HX_Department"," order by WS_OrderBy asc")
  if SERS.recordcount>0 then
  do until sers.eof
  %>
  <tr><td width="100%"><font size="2">
  <%=sers("WS_DepartmentName")%>
  </td></tr>
  <%set APRS=WS_S.HX_SetRSD("","HX_Appointment"," where WS_Did="&sers("WS_Did")&" order by WS_OrderBy asc")
     if APRS.recordcount>0 then
    do until APRS.eof
  %>
   <tr>
    <td>  <font color="#FF0000"><%=APRS("WS_AppointmentName")%></font>
<%
set URS=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_department="&sers("WS_Did")&" and WS_Appointment="&APRS("WS_Aid")&" and WS_leave=False and WS_Uid<>"&loginuid&" order by WS_Uid asc")
if URS.recordcount>0 then
   response.write "　　"
   do until URS.eof
    response.write "<input name='Uid"&aaa&"' type='hidden' value='"&urs("WS_Uid")&"'><input type='checkbox' name='name"&aaa&"' class='radio' value="&urs("WS_Name")&" id='WSOA"&urs("WS_Uid")&"'><label for='WSOA"&urs("WS_Uid")&"'><font color=blue>"&URS("WS_Name")&"</font></label>  "
    aaa=aaa+1
   URS.movenext
   loop
end if
%>
</td>
  </tr>
  <%    APRS.movenext
        loop
     end if
%>
  <tr>
     <td height=5><hr width="100%"></td>
   </tr>
<%
  sers.movenext
  loop
  end if
%>

上面的有问题，

希望喜欢的朋友把他顶起来，让老大们看到，有能力的修改吧，顶起

已解决

顶起。。。希望能得到具体的解决方案。。

请问楼主,如何解决的,麻烦传授一下.

这个问题影响了OA内部邮件,个人办公收发等功能,希望楼主和各位高人能够不吝赐教解决办法,小弟谢过了!!!!

ding ~~~
希望高手能够解决下....