📄 agent.asp

📁 短信向日葵群发系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#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="admini.asp";
}
</script>
<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>
<%
dim action,id,filename
action=trim(request("action"))
id=trim(request("id"))
filename="agent.asp"
select case action
       case "czjl"
	      call czjl()
       case "cz"
	      call cz()
	   case "czs"  
		  call czs() 
	   case "kc"
	      call kc()
		case "kcl"
		   call kcl()  
       case "add"	  
	      call add()
       case "addnews"
	      call addnews()
	   case "del"
	      call del()
		case "dell"
		  call dell()  
	   case "edit"
	      call edit()
	   case "edits"
	       call edits()	  
	   case "reset"
	      call reset()
	   case "list"
	      call list()
	   case else
	      call main()
end select

'扣除短信条数---------------------------------------------------------------------------------
sub kcl()
if session("lv")="2" then
	ye=request("ye")
	sl=request("czsl")
	zh=clng(ye)-clng(sl)
	'response.write zh
	'response.End()
	set rs2=Server.CreateObject("ADODB.RecordSet")
	 sql2="select * from dxsl where kfid='"&id&"'" 
	  rs2.open sql2,conn,1,3
	  rs2("dxsl")=zh
	  rs2.update
	  rs2.close
	set rs3=Server.CreateObject("ADODB.RecordSet")
	 sql3="select * from dxsl where kfid='"&session("CZadmin")&"'" 
	  rs3.open sql3,conn,1,3	  
	  rs3("dxsl")=rs3("dxsl")+sl
	  rs3.update
	  rs3.close
	response.write"<script>alert('扣除成功!');location.href='"&filename&"?action=reset';</script>"
end if
if session("lv")="1" then
	ye=request("ye")
	sl=request("czsl")
	zh=clng(ye)-clng(sl)
	'response.write zh
	'response.End()
	set rs2=Server.CreateObject("ADODB.RecordSet")
	 sql2="select * from dxsl where kfid='"&id&"'" 
	  rs2.open sql2,conn,1,3
	  rs2("dxsl")=zh
	  rs2.update
	  rs2.close
	response.write"<script>alert('扣除成功!');location.href='"&filename&"?action=reset';</script>"
end if
end sub
'充值------------------------------------------------------------
sub czs()
if session("lv")="2" then
	ye=request("ye")
	sl=request("czsl")	
	zh=clng(ye)+clng(sl)
	'response.write zh
	'response.End()
	set rs2=Server.CreateObject("ADODB.RecordSet")
	 sql2="select * from dxsl where kfid='"&id&"'" 
	  rs2.open sql2,conn,1,3
	  rs2("dxsl")=zh
	  rs2.update
	set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from czjl where kfid='"&id&"'" 
	  rs.open sql,conn,1,3
	  rs.addnew
	  rs("kfid")=rs2("kfid")
	  rs("czts")=sl
	  rs.update  
	  rs.close
	  rs2.close
	set rs6=Server.CreateObject("ADODB.RecordSet")
	 sql6="select * from dxsl where kfid='"&session("CZadmin")&"'" 
	  rs6.open sql6,conn,1,3
	  dxsl=rs6("dxsl") 
	  rs6("dxsl")=dxsl-sl	 
	  rs6.update
	  rs6.close
	  response.write"<script>alert('充值成功!');location.href='"&filename&"?action=reset';</script>"
end if
if session("lv")="1" then
	ye=request("ye")
	sl=request("czsl")
	zh=clng(ye)+clng(sl)
	'response.write zh
	'response.End()
	set rs2=Server.CreateObject("ADODB.RecordSet")
	 sql2="select * from dxsl where kfid='"&id&"'" 
	  rs2.open sql2,conn,1,3
	  rs2("dxsl")=zh
	  rs2.update
	set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from czjl where kfid='"&id&"'" 
	  rs.open sql,conn,1,3
	  rs.addnew
	  rs("kfid")=rs2("kfid")
	  rs("czts")=sl
	  rs.update  
	  rs.close
	  rs2.close
	  response.write"<script>alert('充值成功!');location.href='"&filename&"?action=reset';</script>"
end if
end sub
'删除------------------------------------------------------------------------------------------------
sub dell()
if session("lv")="2" then
set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from dxsl where kfid='"&id&"'"
	  rs.open sql,conn,1,1
	  if not rs.eof then	  	  
	  sl=rs("dxsl")
	  end if
	  rs.close
	  set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from dxsl where kfid='"&session("CZadmin")&"'" 
	  rs.open sql,conn,1,3	  
	  rs("dxsl")=rs("dxsl")+sl
	  rs.update
	  rs.close
	  set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="delete * from czkf where kfid='"&id&"'"
rs.open sql,conn,1,3
set rs2=server.CreateObject("adodb.recordset")
sql2="delete * from dxsl where kfid='"&id&"'"
rs2.open sql2,conn,1,3
set rs3=server.CreateObject("adodb.recordset")
sql3="delete * from fsjl where kfid='"&id&"'"
rs3.open sql3,conn,1,3
set rs4=server.CreateObject("adodb.recordset")
sql4="delete * from czgl where czgly='"&id&"'"
rs3.open sql4,conn,1,3
'set rs1=server.CreateObject("adodb.recordset")
'sql1="delete * from czjl where kfid='"&id&"'"
'rs1.open sql1,conn,1,3
response.write"<script>alert('删除成功');location.href='"&filename&"?action=reset';</script>"
end if
if session("lv")="1" then
set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from dxsl where kfid='"&id&"'"
	  rs.open sql,conn,1,1
	  if not rs.eof then	  	  
	  sl=rs("dxsl")
	  end if
	  rs.close
	  set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
	 sql="select * from dxsl where kfid='"&session("CZadmin")&"'" 
	  rs.open sql,conn,1,3	  
	  rs("dxsl")=rs("dxsl")+sl
	  rs.update
	  rs.close
	  set rs=nothing
set rs=server.CreateObject("adodb.recordset")
sql="delete * from czkf where kfid='"&id&"'"
rs.open sql,conn,1,3
set rs2=server.CreateObject("adodb.recordset")
sql2="delete * from dxsl where kfid='"&id&"'"
rs2.open sql2,conn,1,3
set rs3=server.CreateObject("adodb.recordset")
sql3="delete * from fsjl where kfid='"&id&"'"
rs3.open sql3,conn,1,3
set rs4=server.CreateObject("adodb.recordset")
sql4="delete * from czgl where czgly='"&id&"'"
rs3.open sql4,conn,1,3
'set rs1=server.CreateObject("adodb.recordset")
'sql1="delete * from czjl where kfid='"&id&"'"
'rs1.open sql1,conn,1,3
response.write"<script>alert('删除成功');location.href='"&filename&"?action=reset';</script>"
end if
end sub
'添加新记录--------------------------------------------------------------------------------------
sub addnews()

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")

if session("lv")="2" then
	set rss=Server.CreateObject("ADODB.RecordSet")
	sqll="select * from dxsl where kfid='"&session("CZadmin")&"'"
	rss.open sqll,conn,1,3
	if not rss.eof then
	sl=rss("dxsl")
	end if
	if czsl-sl<=0 then
	
	  set rs4=Server.CreateObject("ADODB.RecordSet")
	  sql4="select * from czjl where kfid='"&kfzh&"'" 
	  rs4.open sql4,conn,1,3	  
	  if not rs4.eof then
	  response.write"<script>alert('用户账号已经存在，请更换!');location.href='"&filename&"';</script>"
	  else
	  	 rss("dxsl")=sl-czsl
		 rss.update
		 rss.close
		
	    set rs3=Server.CreateObject("ADODB.RecordSet")
	    sql3="select * from czjl" 
	    rs3.open sql3,conn,1,3
	    rs3.addnew
	    rs3("kfid")=kfzh
	    rs3("czts")=czsl
	    rs3("include")=session("agentId")
	    rs3.update 
	
		set rs=server.createobject("adodb.recordset")
		sql="select * from czkf"
		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
	         
		  response.write"<script>alert('客户添加成功!');location.href='"&filename&"';</script>"
		  rs3.close  
		  rs2.close 
		  rs.close 
		  set rs=nothing
		  set rs2=nothing
		end if
	 else 
	 response.write"<script>alert('短信条数不够!');location.href='"&filename&"';</script>"
	 end if
	 end if 
if session("lv")="1" then
	set rs4=Server.CreateObject("ADODB.RecordSet")
	  sql4="select * from czjl where kfid='"&kfzh&"'" 
	  rs4.open sql4,conn,1,3	  
	  if not rs4.eof then
	  response.write"<script>alert('用户账号已经存在，请更换!');location.href='"&filename&"';</script>"
	  else
		
	    set rs3=Server.CreateObject("ADODB.RecordSet")
	    sql3="select * from czjl" 
	    rs3.open sql3,conn,1,3
	    rs3.addnew
	    rs3("kfid")=kfzh
	    rs3("czts")=czsl
	    rs3("include")=session("agentId")
	    rs3.update 
	
		set rs=server.createobject("adodb.recordset")
		sql="select * from czkf"
12 3 下一页
💿 文件大小 1328 K
👤 上传用户 lc1230z
📂 所属分类其他
🏷️ 相关标签

#短信
⌨️ 快捷键说明

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