agent.asp

短信向日葵群发系统

		rs.open sql,conn,1,3
		 rs.addnew 
		 rs("kfid")=kfzh
		 rs("zname")=kfname
		 rs("pass")=kfpass
		 rs("ztel")=gstel
		 rs("zmobie")=gsmobie
		 rs("zgs")=gsn
		 rs("email")=email
		 rs("include")=session("agentId")
		  rs.update
	  
	    set rs2=Server.CreateObject("ADODB.RecordSet")
	    sql2="select * from dxsl" 
	    rs2.open sql2,conn,1,3
	    rs2.addnew
	    rs2("kfid")=kfzh
	    rs2("dxsl")=czsl
	    rs2("include")=session("agentId")
	    rs2.update
		
		if request.form("checkbox")=2  then   
		  set rs1=Server.CreateObject("ADODB.RecordSet")
		  sql1="select * from czgl" 
		  rs1.open sql1,conn,1,3
		  rs1.addnew
		  rs1("czgly")=kfzh
		  rs1("glymm")=kfpass
		  rs1("lv")="2"
		  rs1.update 
		end if     
		  response.write"<script>alert('客户添加成功!');location.href='"&filename&"';</script>"
		  rs3.close  
		  rs2.close 
		  rs.close 
		  set rs=nothing
		  set rs2=nothing
		end if
	end if 
end sub
'修改---------------------------------------------------------------------------
sub edits()
kfname=trim(request.form("kfname"))
gsn=request("gsname")
kfzh=trim(request.form("kfzh"))
gstel=request("gstel")
kfpass=request("kfpass")
gsmobie=trim(request.form("gstel"))
czsl=request.Form("czts")
email=request.Form("email")
zt=request("zt")
if zt="" then
ztz=false
else
ztz=true
end if

set rs=server.createobject("adodb.recordset")
sql="select * from czkf where kfid='"&id&"'"
rs.open sql,conn,1,3
  rs("kfid")=kfzh
 rs("zname")=kfname
 rs("pass")=kfpass
 rs("ztel")=gstel
 rs("zmobie")=gsmobie
 rs("zgs")=gsn
 rs("email")=email
 rs("zt")=ztz
  rs.update
set rs2=Server.CreateObject("ADODB.RecordSet")
 sql2="select * from dxsl where kfid='"&id&"'" 
  rs2.open sql2,conn,1,3
  rs2("kfid")=kfzh
  rs2("dxsl")=czsl
  rs2.update
  response.write"<script>alert('客户资料更新成功!');location.href='"&filename&"?action=reset';</script>"
  rs.close
  rs2.close
  set rs=nothing
  set rs2=nothing
end sub
sub main()	   
%>
<script language="javascript" type="text/javascript">
function checkadd()
{
	if(document.add.kfname.value=='')
	{alert('客户姓名不能空!');
	 document.add.kfname.focus();
	 return false
	 }
	
	if(document.add.czts.value==''){
		alert('请输入短信条数!');
		document.add.czts.focus();
		return false;
	}
	if(IsValidString(document.add.czts.value))
		{
		alert('短信条数格式不对!');
		document.add.czts.focus();
		return false;		
		}
	
	if(document.add.czts2.value!=document.add.czts.value){
		alert('2次输入的短信条数不一致!');
		document.add.czts2.focus();
		return false;
	}	
	
	return true;


}
function IsValidString(temp)
{
	validStr=new String("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_");
	for(i=0;i<temp.length;i++)
	{
		if(validStr.indexOf(temp.charAt(i))==-1)
		{
			return false;
		}
	}
	
	return true;
}
</script>
<table width="100%" height="360" border="0" cellpadding="0" cellspacing="0">
<form name="add" action="?action=addnews" method="post" onSubmit="return checkadd();">
  <tr>
    <td height="27" colspan="4" align="center" background="img/ai.jpg" class="nazhi">注册新客户</td>
    </tr>
  <tr>
    <td height="60" align="center">客户姓名:</td>
    <td><input name="kfname" type="text" id="kfname2" /></td>
    <td align="center">公司名称:</td>
    <td><input type="text" name="gsname" /></td>
  </tr>
  <tr>
    <td height="60" align="center">客户账号:</td>
    <td><input name="kfzh" type="text" value="cz<%call dateg(date())%><%call dateg(time())%>" /></td>
    <td align="center">联系电话:</td>
    <td><input type="text" name="gstel" /></td>
  </tr>
  <tr>
    <td height="60" align="center">客户密码:</td>
    <td><input name="kfpass" type="text" value="cz<%call dateg(date())%><%call dateg(time())%>" /></td>
    <td align="center">移动电话:</td>
    <td><input type="text" name="gsmobie" /></td>
  </tr>
  <tr>
    <td height="60" align="center">充值数量:</td>
    <td><input name="czts" type="text" class="ysy" /> 
      &nbsp;条&nbsp;&nbsp;确认&nbsp;<input name="czts2" type="text" class="ysy" /> </td>
    <td align="center">E_mail: </td>
    <td><input type="text" name="email" /></td>
  </tr>
  <%
  if session("lv") ="1" then%>
  <tr>
    <td height="60" align="center">设置为代理:</td>
    <td colspan="2"><input CHECKED name="checkbox" type="radio" value="1">否
		<input name="checkbox" type="radio"  value="2" >是
     </td>
  </td>
  </tr>
  <%end if%>
  <tr>
    <td height="60">&nbsp;</td>
    <td><input name="Submit" type="submit" class="an" value="开通" />
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input name="Submit2" type="reset" class="an" value="重置" /></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  </form>
</table>
<%end sub
sub edit()
set rs=server.CreateObject("adodb.recordset")
sql="select * from czkf where kfid='"&request("id")&"'"
rs.open sql,conn,1,3
%>
<table width="100%" height="360" border="0" cellpadding="0" cellspacing="0">
<form name="add" action="?action=edits" method="post" onSubmit="return checkadd();">
  <tr>
    <td height="27" colspan="4" align="center" background="img/ai.jpg" class="nazhi">客户资料更新</td>
    </tr>
  <tr>
    <td height="60" align="center">客户姓名:</td>
    <td><input name="kfname" type="text" id="kfname"  value="<%=rs("zname")%>"/></td>
    <td align="center">公司名称:</td>
    <td><input type="text" name="gsname"   value="<%=rs("zgs")%>"/></td>
  </tr>
  <tr>
    <td height="60" align="center">客户账号:</td>
    <td><input name="kfzh" type="text"   value="<%=rs("kfid")%>"/></td>
    <td align="center">联系电话:</td>
    <td><input type="text" name="gstel"   value="<%=rs("ztel")%>"/></td>
  </tr>
  <tr>
    <td height="60" align="center">客户密码:</td>
    <td><input name="kfpass" type="text"  value="<%=rs("pass")%>"/></td>
    <td align="center">移动电话:</td>
    <td><input type="text" name="gsmobie"   value="<%=rs("zmobie")%>"/></td>
  </tr>
  <tr>
    <td height="60" align="center">剩余数量</td>
	<%set rs2=server.CreateObject("adodb.recordset")
sql2="select * from dxsl where kfid='"&request("id")&"'"
rs2.open sql2,conn,1,3%>
    <td><input name="czts" type="text" class="ysy"  value="<%=rs2("dxsl")%>" disabled="disabled"/> 
      &nbsp;条&nbsp;&nbsp;&nbsp;已发发送
      <input name="textfield" type="text" class="ysy" value="<%=rs2("yfsl")%>" disabled="disabled"/>
      条
      &nbsp;&nbsp;<br />注销客户
      <input name="zt" type="checkbox" value="checkbox"  <%if rs("zt")=true then response.write("checked=checked") end if %>/>
      (注销后客户不能登录)<%=rs("zt")%>&nbsp;&nbsp;&nbsp;&nbsp;<a href="?action=cz&amp;id=<%=rs("kfid")%>">充 &nbsp;值</a>&nbsp;&nbsp;&nbsp;<a href="?action=kc&amp;id=<%=rs("kfid")%>">扣 除</a></td>
    <td align="center">E_mail: </td>
    <td><input type="text" name="email"   value="<%=rs("email")%>"/></td>
  </tr>
  <tr>
    <td height="60">&nbsp;</td>
    <td><input name="Submit" type="submit" class="an" value="修改" /><input name="id" value="<%=rs("kfid")%>" type="hidden">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <input name="Submit2" type="reset" class="an" value="重置" /></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  </form>
</table>
<%
 rs.close
  rs2.close
  set rs=nothing
  set rs2=nothing
response.write("<BR><BR><BR><center><a href='javascript:history.back(-1)'>【返回】</a></center>")
end sub
sub reset()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" background="img/ai.jpg" class="nazhi" height="27">客户账号</td>
    <td align="center" background="img/ai.jpg" class="nazhi">短信条数</td>
    <td align="center" background="img/ai.jpg" class="nazhi">已发送</td>
    <td align="center" background="img/ai.jpg" class="nazhi">客户姓名</td>
    <td align="center" background="img/ai.jpg" class="nazhi">注册时间</td>
    <td align="center" background="img/ai.jpg" class="nazhi">当前状态</td>
    <td align="center" background="img/ai.jpg" class="nazhi">管理操作</td>
  </tr>
   <%
    if request("so")="so" then
	set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from czkf where kfid like '"&request("name")&"'"
    else
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from czkf where include ='"&session("agentId")&"'"
	end if
    rs.open sql,conn,1,1
    if rs.eof then
    %>
  <tr>
    <td height="30" colspan="10" 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="36" align="center" class="zxbk"><%=rs("kfid")%></td>
    <td align="center" class="zxbk"><%	
	set rs2=Server.CreateObject("ADODB.RecordSet")
    sql2="select * from dxsl where kfid='"&rs("kfid")&"'"
    rs2.open sql2,conn,1,3
	response.write rs2("dxsl")
	 %></td>
    <td align="center" class="zxbk"><%=rs2("yfsl")%></td>
    <td align="center" class="zxbk"><%=rs("zname")%></td>
    <td align="center" class="zxbk"><%=year(rs("date"))%>年<%=month(rs("date"))%>月<%=day(rs("date"))%>日</td>
    <td align="center" class="zxbk"><%if rs("zt")=true then 
	response.write("<font color='#ff0000'>已锁定</font>")
	else
	response.write("开通")
	end if%></td>
    <td align="center" class="zxbk"><a href="?action=cz&amp;id=<%=rs("kfid")%>">充值</a>&nbsp;&nbsp;&nbsp;<a href="?action=kc&amp;id=<%=rs("kfid")%>">扣除</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="?action=edit&amp;id=<%=rs("kfid")%>">修改</a> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="?action=del&amp;id=<%=rs("kfid")%>">删除(谨慎使用)</a></td>
  </tr>
   <%
   i=i+1
   rs.MoveNext
   If i>=rs.pagesize Then Exit Do
   Loop 
  %>
     <tr>
	 <td height="20" align="center" colspan="9" class="zxbk" valign="bottom" style="padding-top:8px">
	<form method="post" action="?action=reset&so=so">按客户账号搜索:<input name='name' type='text' size='15' > &nbsp; <input name='Submit' type=submit height=19  value="提交">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	<%
	z=0
    f=0
    s=0 
	set rss=Server.CreateObject("ADODB.RecordSet")
    sqll="select * from dxsl"
    rss.open sqll,conn,1,1	  
    Do While Not rss.Eof
	if rss("dxsl")<>"" then 
    z=z+rss("dxsl")+rss("yfsl")
	else 
	z=z+rss("yfsl")
	end if