📄 cfa.asp

📁 短信向日葵群发系统
💻 ASP
字号:
<!--#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>
<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>
<%
dim action,id,filename
action=trim(request("action"))
filename="cfa.asp"
select case action
        case "send"
	      call send()
		case "fsjl"
		   call fsjl()
		 case "edit"
		   call edit()
		 case "del"
		   call del()   
	    case else
	      call main()
end select

sub send()
id=request("kfid")
ts=request("ts")
bh=request("bh")
set rs3=server.CreateObject("ADODB.RecordSet")
 sql3="select * from fsjl where 编号="&bh 
 rs3.open sql3,conn,1,3
  rs3("fzt")=true
  rs3("fsdate")=Now()
  rs3.update
set rs2=Server.CreateObject("ADODB.RecordSet")
 sql2="select * from dxsl where kfid='"&id&"'" 
  rs2.open sql2,conn,1,3
  rs2("dxsl")=rs2("dxsl")-clng(ts)
  rs2("yfsl")=rs2("yfsl")+clng(ts)
   rs2.update
  rs2.close
  response.write"<script>alert('状态修改成功!');location.href='"&filename&"?action=reset';</script>"
end sub

sub del()
id=request("id")
set rs=Server.CreateObject("ADODB.RecordSet")
sql="delete * from fsjl where fzt=false and 编号="&id
rs.open sql,conn,1,3
response.write"<script>alert('删除成功!');location.href='"&filename&"?action=reset';</script>"
end sub

sub main%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr background="img/ai.jpg">
    <td  align="center" background="img/ai.jpg" class="nazhi">客户账号</td>
    <td height="27"  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>
 <%
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from fsjl where fzt=false  order by tjdate desc"
    rs.open sql,conn,1,1
    if rs.eof then
    %>
  <tr>
    <td height="30" colspan="7" 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 align="center" class="zxbk"><a href="czkf.asp?action=edit&amp;id=<%=rs("kfid")%>"><%=rs("kfid")%></a></td>
    <td height="39" 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"><%=year(rs("tjdate"))%>年<%=month(rs("tjdate"))%>月<%=day(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>
	<td align="center" class="zxbk"><a href="?action=del&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="7" align="center" class="zxbk"><%call showpage("cfa.asp",rs.recordcount,10,true,true,"个客户",currentpage)%></td>
  </tr>
</table>
<%end sub
sub fsjl()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr background="img/ai.jpg">
    <td  align="center" background="img/ai.jpg" class="nazhi">客户账号</td>
    <td height="27"  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 rs1=Server.CreateObject("ADODB.RecordSet")
    sql="select * from fsjl where kfid='"&request("name")&"'"
	else 
    set rs1=Server.CreateObject("ADODB.RecordSet")
    sql="select * from fsjl where fzt=true order by tjdate desc"
	end if
    rs1.open sql,conn,1,1
    if rs1.eof then
    %>
  <tr>
    <td height="30" colspan="6" align="center" class="zxbk">没有数据</td>
  </tr>
 <%
   else
	i=0
	rs1.pagesize=10
	currentpage=Clng(request("page"))
	if currentpage<1 then currentpage=1
	if currentpage>rs1.pagecount then currentpage=rs1.pagecount
	rs1.absolutepage=currentpage
	do while not rs1.eof
	i=i+1 
 %> 
  <tr height="36">
    <td align="center" class="zxbk" width="10%"><% if rs1("kfid")<>"" then%><a href="czkf.asp?action=edit&amp;id=<%=rs1("kfid")%>"><%=rs1("kfid")%></a><%else%>暂无帐号<%end if%></td>    
    <td align="center" class="zxbk" width="30%"><%=left(rs1("fslr"),15)%></td>
	<td align="center" class="zxbk" width="10%"><%=rs1("fsts")%></td>
	<td align="center" class="zxbk" width="15%"><%=year(rs1("tjdate"))%>年<%=month(rs1("tjdate"))%>月<%=day(rs1("tjdate"))%>日</td>
	<td align="center" class="zxbk"><%if rs1("dsfs")=true then
	response.write(rs1("dsdate"))
	else
	response.write("未要求")
	END IF%></td>
	<td height="28" align="center" class="zxbk"><%
	if rs1("fzt")=true then
	response.write("<font color=blue>已发送</font>")
	else
	response.write("<font color=red>等审核</font>")
	end if%></td>
	<td align="center" class="zxbk"><a href="?action=edit&amp;id=<%=rs1("编号")%>">查看详情</a></td>
  </tr>
   <%
   rs1.movenext
	if i=rs1.pagesize then exit do
	loop	
   end if%>
   <tr height="10">
	<Td></Td></tr> 
   <tr>
   <td align="center" colspan="2"><form method="post" action="?action=fsjl&so=so">按客户帐号搜索:<input name='name' type='text' size='10'> &nbsp; <input name='Submit' type=submit height=19  value="提交"> </form></td>
   <td colspan="5"class=brown02 ><form method="post" action="?action=fsjl"><div align=right>当前：<font color="red"><%=currentpage%></font>/<%=rs1.pagecount%>页&nbsp;&nbsp;&nbsp;&nbsp;共有:<font color=red><%=rs1.recordcount%></font>&nbsp;条信息 &nbsp;&nbsp;&nbsp; <a href=<%=filename%>?action=fsjl&page=<%=currentpage-1%>> 上一页</a>&nbsp; <a href=<%=filename%>?action=fsjl&page=<%=currentpage+1%>> 下一页</a>&nbsp;  &nbsp;&nbsp;&nbsp;&nbsp;转到<input name='page' type='text' class=input_b id='page' value='<%=currentpage%>' size='4'> &nbsp; <input name='Submit' type=submit height=19 hspace=5 width=55  vspace=5  value="提交"> </form></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/ai.jpg" class="nazhi">发送内容</td>
        <td height="27" align="center" background="img/ai.jpg" class="nazhi">发送号码</td>
        <td height="27" align="center" background="img/ai.jpg" class="nazhi">备注信息</td>
      </tr>
      <tr>
        <td align="center">
          <textarea name="fslr" rows="6" ><%=rs("fslr")%></textarea><br /><br />
          <input name="copycode2" onclick=cop()  type=button value="提取内容" /></td>
        <td height="160" align="center"><script>
function cop(){
document.all.fslr.select();
document.execCommand("copy");
alert("发送内容已复制到剪贴板中!");
}
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/ai.jpg" class="nazhi">发送状态</td>
        <td height="27" 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>
      <tr>
        <td height="26" align="center" class="zxbk">
          <%
    if rs("fzt")=true then
	response.write(rs("fsdate"))
	else
	response.write("<font color=red>等审核</font>")
	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>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
		<%
		if rs("fzt")=false then%>
		<form action="?action=send" method="post"> <td align="center"><input type="submit" name="Submit" value="确认发送" />
		<%end if%>        
		 
		 <input name="kfid"  value="<%=rs("kfid")%>" type="hidden"/>
		 <input name="ts" value="<%=rs("fsts")%>" type="hidden" />	
		 <input name="bh" value="<%=rs("编号")%>" type="hidden" />	 
		 </td></form>
        </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>
⌨️ 快捷键说明

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