📄 kfa.asp

📁 手机群发工具
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="czconn.asp"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>客户资料</title>
<script language="javascript">
if(top==self){
location.href="kindex.asp";
}
</script>
<script src="Js/Calendar.js"></script>
<link href="Css/TestDate.css" rel="stylesheet">
<link href="Css/calendar-blue.css" rel="stylesheet">
<link href="css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
	background-color: #F1F8FF;
}
.lb {	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #999999;
}
-->
</style></head>

<body>
<%
if session("lv")="2" then
session("czkf")=session("czadmin")
end if


dim action,id,filename
action=trim(request("action"))
filename="kfa.asp"
select case action
        case "send"
	      call send()
		case "fsjl"
		   call fsjl()
		 case "edit"
		   call edit()    
	    case else
	      call main()
end select
sub send()
gsn=request("content")
rg=trim(request.form("txtDate"))
sj=request("select")
hao=request("number")
bz=request("remarks")
ds=request("checkbox")
ts=request("hid1")

set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from dxsl where kfid='"&session("czkf")&"'"
    rs.open sql,conn,1,1
	if not rs.eof then
	sl=rs("dxsl")
	end if
	rs.close
	
response.write sls	
if sl-ts<=0 then
response.write("<script text=javascript>alert('您的发送条数已经超过您的预存条数，请与我们联系!');location.href='kfa.asp'</script>")

else

if ds="2" then
	if DateDiff("d",date(),rg)<1 then
	response.write("<script text=javascript>alert('发送日期应该提前一天!');history.back(-1)</script>")
	else
	set rs=server.createobject("adodb.recordset")
	sql="select * from fsjl"
	rs.open sql,conn,1,3
	 rs.addnew
	 rs("kfid")=session("czkf")
	 rs("fslr")=gsn
	 if ds="2" then
		 rs("dsfs")=true
		 rs("dsdate")=rg+" "+sj+":00"
	 end if
	 rs("fssjh")=hao
	 rs("fsts")=ts
	 rs("bz")=bz
	  rs.update
	  response.write"<script>alert('已经提交成功!等待审核!');location.href='"&filename&"?action=fsjl';</script>"
	  rs.close
	   set rs=nothing
	 end if
 end if
if ds="1" then
	set rs=server.createobject("adodb.recordset")
	sql="select * from fsjl"
	rs.open sql,conn,1,3
	  rs.addnew
	 rs("kfid")=session("czkf")
	 rs("fslr")=gsn
	 rs("fssjh")=hao
	 rs("fsts")=ts
	 rs("bz")=bz
	  rs.update
	  response.write"<script>alert('已经提交成功!等待审核!');location.href='"&filename&"?action=fsjl';</script>"
	  rs.close
	  set rs=nothing
end if
  
end if
end sub
sub main%>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <form name="send" method="post" action="?action=send" onSubmit="return checkinput();"><tr>
    <td height="27" 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 height="200" align="center">
	<textarea name="content" rows="12" class=input id="content" onmousedown=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onclick=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onmousemove=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onmouseout=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onmouseover=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onmouseup=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain);  onfocus=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onpropertychange=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); 
onblur=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); 
onKeyDown=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain); onKeyUp=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain);>会员您好：</textarea></td>

        <td align="center">
           <textarea name="number" rows="12" id="number" onmouseout="value=value.replace(/[^0-9\n]/g,'')"></textarea></td>
        <td align="center"><textarea name="remarks" rows="12" id="remarks" ></textarea></td>
  </tr>
    <tr>
  	<td colspan="3" style="padding-left:50px;padding-top:10px;color:green">
            最多字数：<INPUT disabled maxLength=4 name=total size=3 value=70>
            已用字数：<INPUT disabled maxLength=4 name=used size=3 value=5>
            剩余字数：<INPUT disabled maxLength=4 name=remain size=3 value=65>
			<INPUT onclick="alert(document.all('number').value.split('\n').length);" type=button value="统计发送量" name=Button>
			<input type="hidden" id="hid1" name="hid1" value=""></td>
  </tr>
  <tr>
  		<td colspan="3" style="padding-left:50px;padding-top:10px;color:red">
		<p>*为了响应国家信息产业部的规定和号召,所有的短信内容都必须加入&quot;会员信息&quot;四个字,否则将视为非法信息.
			<p>*请不要一行写多个号码，我们一行只按一个号码处理，请务必注意！
			<p>*其他要求请在备注里说明！</td>
  </tr>

  <tr>
    <td colspan="3" style="padding-left:50px;padding-top:10px;color:green">
			 <input CHECKED name="checkbox" type="radio" value="1">直接发送
			 <input name="checkbox" type="radio"  value="2" onpropertychange="id1.style.visibility=this.checked?'visible':'hidden';">定时发送
			 <span  id="id1"  style="visibility:hidden">&nbsp;&nbsp;发送日期<input type="hidden" name="__VIEWSTATE" value="dDwxODc5OTI0MDAwOzs+q/bk2mKy2luFYlVdxBgSOAYBUfE=" />
			<input name="txtDate" type="text" maxlength="10" id="txtAwardDate" class="textbox" style="width:100px">
			<A onClick="return showCalendar('txtDate', 'y-mm-dd');" href="#"><img src="Image/b.png" id="IMG2" align="absMiddle" border="0" /></A>
			&nbsp;&nbsp;发送时间
			<select name="select">
			  <option value="07">07:00</option>
			  <option value="08">08:00</option>
			  <option value="09">09:00</option>
			  <option value="10">10:00</option>
			  <option value="11">11:00</option>
			  <option value="12">12:00</option>
			  <option value="13">13:00</option>
			  <option value="14">14:00</option>
			  <option value="15">15:00</option>
			  <option value="16">16:00</option>
			  <option value="17">17:00</option>
			  <option value="18">18:00</option>
			  <option value="19">19:00</option>
			  <option value="20">20:00</option>
			  <option value="21">21:00</option>
			  <option value="22">22:00</option>
			  <option value="23">23:00</option>
 			  </select>&nbsp;&nbsp;<font color=red>定时发送需把时间设置在24小时以后！</font></span></td>
  </tr>

  <tr>
    <td align="center" colspan="3" height="50"><input name="button" type="submit" value=" 发 送 " class="lo_input"></td>
  </tr></form>
</table>
<script language="javascript" type="text/javascript">
<!--



function checkinput()
{
	if(document.send.number.value=='')
	{alert('发送号码不能为空!');
	 document.send.number.focus();
	 return false
	}
var ckBox=document.getElementsByName("checkbox");
var i;
for(i=0;i<ckBox.length;i++){
		//alert(ckBox(i).value);
		if(ckBox(i).checked==true)
		{
			if(ckBox(i).value=="2"){				
				date = /^\d{4}-(0?[1-9]|1[0-2])-(0?[1-9]|[1-2]\d|3[0-1])$/;		
				if(!date.test(document.send.txtDate.value))
				{
				 alert('日期格式错误!');
				 document.send.txtDate.focus();
				 return false;
				}
			}	
			
		}

	 }
	 
	 
var msg="电话号码必须为11位!";
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);
//	}
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -