  <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="no"
	dir="no" 
  %>
 <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../rolecheck.asp"-->

 <%
  HOPE_id=Replace_Text(Request("userid"))
  if HOPE_id="" then 
 	call HOPE_err("操作错误","请不要非法提交数据","关闭","javascript:window.close();")
	Response.end
  end if
  HOPE_action=Replace_Text(Request("HOPE_action"))
  if HOPE_action="HOPE_save" then 
 	HOPE_content=HOPE_Str(Replace_Text(Request("HOPE_content")))
	HOPE_id=Split(HOPE_id,",")
	For  i=0 to ubound(HOPE_id)
		Set rsbook=Server.createobject("adodb.recordset")
			Sqlbook="Select * from Websen_getprice"
			rsbook.open sqlbook,conn,1,3
			rsbook.addnew()
			rsbook("mycid")=HOPE_id(i)
			rsbook("sendcid")=0
			rsbook("title")="系统管理员留言"
			rsbook("content")=HOPE_content
			rsbook("requestinfo")="......管理员留言.........."
			rsbook("datetime")=now()
			rsbook("limitedtime")=now()
			rsbook("sendflag")=0
			rsbook("reflag")=0
			rsbook("saveflag")=0
			rsbook("delreceive")=0
			rsbook("delsend")=0
			rsbook("sendemail")=0
			rsbook("sendcontact")=0
			rsbook("checkdate")=0
			rsbook("needtrust")=0
			rsbook("getprice1id")=0
			rsbook("upsize_ts")="暂无"
 			rsbook.update()
		Response.write "<script>alert('发送成功!');window.close();</script>"
		Response.end
 	next
  end if
 Set rs=server.createobject("adodb.Recordset")
sql="select * from Websen_corporation where ID in("&HOPE_id&")" 
rs.open sql,conn,1,1
 %>
 <html>
<head>
	<title>
 	</title>
	<link rel="stylesheet" type="text/css" href="../css/style.css">
 </head>
  <body onload='document.form1.HOPE_content.focus();'>
<script language="javascript1.1">
	function HOPE_return(returncontent){
		if (confirm("你是否真的"+returncontent+"?")){
			return true;
 		}
		else
		{
		return false;
 		}	
 	}
	
	
</script>
<script   language='vbscript'>sub   window_onload() loadopener() end  sub</script> 
<script>function loadopener(){window.opener.location.reload();}</script>
<form name="form1" method="post" action="message.asp?HOPE_action=HOPE_save&userid=<%=HOPE_id%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
  <tr>
    <th class="tableHeaderText" height=25>会员留言</th>
  <tr>
    <td align="center">
      <TABLE width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#111111" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" style="border-collapse: collapse">
        <TBODY>
          <TR height=25>
            <TD width="12%" height="20" valign="top"><strong style="color:#0066CC; ">发送会员列表:</strong>
	</TD>
            <TD width="88%">
  <table width="100%%"  border="0" cellspacing="0" cellpadding="3">
  <tr>
  <%
'============================================================================================
	for i=1 to rs.recordcount
%>
  <td>
	<%=i%>.[<font  color="red"><%=rs("qymc")%></font>]&nbsp;
 </td>
 <%	
	if i mod 5=0 then Response.write "</tr>"
 	rs.movenext
	if rs.eof then exit for
	next
'============================================================================================
	rs.close
	set rs=nothing
 %>	
 </table>		
 		</TD>
          </TR>
          <TR height="20">
            <TD colspan="2" class=forumRow align="center"><textarea name="HOPE_content" cols="130" rows="15" id="HOPE_content"></textarea></td>
          </TR>
          <TR height="20">
            <TD colspan="2" align="center"><input type="submit" name="Submit" value="开始发送" onClick="return HOPE_return('开始发送')">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
              <input type="reset" name="Submit2" value="重新输入" onClick="return HOPE_return('重新输入')">              </td>
          </TR>
		  <tr><td  height="50"  colspan="2"  >[<a href='#' onClick="javascript:window.close();">关闭</a>]</td></tr>
     </TABLE></td>
  </tr>
</table>
 </form>
</body>
</html>