kfa.asp

手机群发工具

//}
var xlt=0;
for(i=0;i<=arr_xb;i++)
	{
	if(arr[i].charAt(0)!=1){
		xlt++;
		}
	}
content=document.getElementById("content").value;
content_len=content.length;
if(content_len>41 && xlt>0)
	{
	document.all('hid1').value=code_len-xlt+xlt*2;
	if(confirm("有"+(code_len-xlt)+"个手机.\n有"+xlt+"个小灵通.\n由于你所发的短信内容超出41个字符.\n对小灵通发送将做两条发送.\n所以你共发送"+(code_len-xlt+xlt*2)+"条短信"))
	{return true;
	}

}


document.send.hid1.value=code_len-xlt+xlt*2;
return true;	

}

function   cc(n)   
  {   
     var   e   =   document.getElementsByTagName("span");   
      //for   (var   i=0;   i<e.length;   i++)   
      //{   
         // if(e[i].id.length   >   2   &&   e[i].id.substr(0,2)   ==   "id")   //选择id=id2这种格式的span   
         // e[i].style.display   =   "none";   
     // }   
      if (e.id1.style.display ==""){
	  eval("document.all.id"   +   n).style.display   =   "none;"   
	  }
	  else
	  eval("document.all.id"   +   n).style.display   =   ""   
      
  }   


function val(){
var msg="电话号码必须为11位!";
var code_len=1;
var code_arr=document.all('number').value.split('\n');  //将号码拆分为数组
var code_len=code_arr.length
var code_xb=code_len-1;  //获取数组最大下标
var arr_str="";
for(i=0;i<=code_xb;i++){
	arr_str=arr_str+code_arr[i];
}
var arr=arr_str.split('\r');
var arr_xb=arr.length-1;
var arr_code="";
//for(i=0;i<=arr_xb;i++){
//	if(arr[i].length!=11){
//		alert(msg);
//	}
//}
var xlt=0;
for(i=0;i<=arr_xb;i++){
	if(arr[i].charAt(0)!=1){
		xlt++;
	}
}
content=document.getElementById("content").value;
content_len=content.length;
if(content_len>41 && xlt>0){
document.all('hid1').value=code_len-xlt+xlt*2;
confirm("有"+(code_len-xlt)+"个手机.\n有"+xlt+"个小灵通.\n由于你所发的短信内容超出41个字符.\n对小灵通发送将做两条发送.\n所以你共发送"+(code_len-xlt+xlt*2)+"条短信")
}else{
document.all('hid1').value=code_len;
}
//alert("有"+(code_len-xlt)+"个手机")
//alert("有"+xlt+"个小灵通");
}

function gbcount(message,total,used,remain)
    {
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("留言不能超过 66 个字!");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
    }
function reg_Num(str)//是数字,返回true.
{
  var Letters="1234567890-/r";
  for(i=0;i<str.length;i++)
  {
    var CheckChar=str.charAt(i);
    if(Letters.indexOf(CheckChar)==-1){
	alert("电话号码只能是数字！");
	return false;}
   }
   return true;
}

//-->
</script> 
<%end sub
sub fsjl()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr background="img/z1.jpg">
    <td height="27"  align="center" background="img/z1.jpg" class="kz">发送状态</td>
    <td align="center" background="img/z1.jpg" class="kz">发送数量</td>
    <td align="center" background="img/z1.jpg" class="kz">提交时间</td>
    <td align="center" background="img/z1.jpg" class="kz">定时发送</td>
    <td align="center" background="img/z1.jpg" class="kz">查看详情</td>
  </tr>
 <%
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from fsjl where kfid='"&session("czkf")&"' order by tjdate desc"
    rs.open sql,conn,1,1
    if rs.eof then
    %>
  <tr>
    <td height="30" colspan="5" align="center" class="zxbk">没有数据</td>
  </tr>
 <%
   else
   i=0
   rs.pagesize=10
    currentpage=Clng(request("page"))
   if currentpage<1 then currentpage=1
   if currentpage>rs.pagecount then currentpage=rs.pagecount
   rs.absolutepage=currentpage
   Do While Not rs.Eof

  %> 
  <tr>
    <td height="40" align="center" class="zxbk"><%if rs("fzt")=true then
	response.write("<font color=blue>已发送</font>"&rs("fsdate"))
	else
	response.write("<font color=red>等审核</font>")
	end if%></td>
    <td align="center" class="zxbk"><%=rs("fsts")%></td>
	<td align="center" class="zxbk"><%=rs("tjdate")%></td>
	<td align="center" class="zxbk"><%if rs("dsfs")=true then
	response.write(rs("dsdate"))
	else
	response.write("未要求")
	END IF%></td>
	<td align="center" class="zxbk"><a href="?action=edit&amp;id=<%=rs("编号")%>">查看详情</a></td>
  </tr>
   <%
   i=i+1
   rs.MoveNext
  If i>=rs.pagesize Then Exit Do
  Loop 
  
  end if%>
   <tr>
    <td height="30" colspan="5" align="center" class="zxbk"><%call showpage("kfa.asp?action=fsjl",rs.recordcount,10,true,true,"个客户",currentpage)%></td>
  </tr>
</table>

<%end sub 
sub edit()

set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from fsjl where 编号="&request("id")&" order by tjdate desc"
    rs.open sql,conn,1,1
 %>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center" background="img/z1.jpg" class="kz">发送内容</td>
        <td height="27" align="center" background="img/z1.jpg" class="kz">发送号码</td>
        <td height="27" align="center" background="img/z1.jpg" class="kz">备注信息</td>
      </tr>
      <tr>
        <td align="center"><%=rs("fslr")%></td>
        <td height="160" align="center"><script>
function copyc(){
    document.all.code.select();
    document.execCommand("copy");
    alert("号码已复制到剪贴板中！");
}
</script><textarea name="code" cols="20" rows="6"><%=rs("fssjh")%></textarea><br /><br /><INPUT name="copycode" onclick=copyc()  type=button value="提取号码"></td>
        <td width="200" align="center"><%=rs("bz")%></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="center" background="img/z1.jpg" class="kz">发送状态</td>
        <td height="27" align="center" background="img/z1.jpg" class="kz">发送数量</td>
        <td align="center" background="img/z1.jpg" class="kz">提交时间</td>
        <td align="center" background="img/z1.jpg" class="kz">定时发送</td>
        </tr>
      <tr>
        <td height="26" align="center" class="zxbk">
          <%if rs("fzt")<>true then
	response.write("<font color=red>等审核</font>")
	else
	response.write(rs("fsdate"))
	end if%>
        </td>
        <td height="26" align="center" class="zxbk"><%=rs("fsts")%></td>
        <td height="26" align="center" class="zxbk"><%=rs("tjdate")%></td>
        <td height="26" align="center" class="zxbk"><%if rs("dsfs")=true then
	response.write(rs("dsdate"))
	else
	response.write("未要求")
	END IF%>
        </td>
        </tr>
    </table></td>
  </tr>
</table>
<%
rs.close
response.write("<BR><BR><BR><center><a href='javascript:history.back(-1)'>【返回】</a></center>")
end sub%></body>
</html>