📄 czkf.asp
字号:
<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"/>
条 已发发送
<input name="textfield" type="text" class="ysy" value="<%=rs2("yfsl")%>" disabled="disabled"/>
条
<br />注销客户
<input name="zt" type="checkbox" value="checkbox" <%if rs("zt")=true then response.write("checked=checked") end if %>/>
(注销后客户不能登录)<%=rs("zt")%> <a href="?action=cz&id=<%=rs("kfid")%>">充 值</a> <a href="?action=kc&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"> </td>
<td><input name="Submit" type="submit" class="an" value="修改" /><input name="id" value="<%=rs("kfid")%>" type="hidden">
<input name="Submit2" type="reset" class="an" value="重置" /></td>
<td> </td>
<td> </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"
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"><a href="?action=edit&id=<%=rs("kfid")%>"><%=rs("kfid")%></a></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&id=<%=rs("kfid")%>">充值</a> <a href="?action=kc&id=<%=rs("kfid")%>">扣除</a> <a href="?action=edit&id=<%=rs("kfid")%>">修改</a> <a href="?action=del&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' > <input name='Submit' type=submit height=19 value="提交">
<%
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
f=f+rss("yfsl")
if rss("dxsl")<>"" then
s=s+rss("dxsl")
else
s=s+0
end if
rss.MoveNext
Loop
%>
统计：当前共短信<font color="#FF0000"><% = z %></font>条，已发送<font color="#FF0000"><% = f %></font>条，剩余<font color="#FF0000"><% = s %></font>条 </form> </td>
</tr>
<tr>
</td>
<td height="30" colspan="7" align="center" class="zxbk"><%call showpage("czkf.asp?action=reset",rs.recordcount,10,true,true,"个客户",currentpage)%></td></tr>
</table>
<%
end if
end sub
sub cz()%>
<script type="text/javascript">
function checkInput(){
if(document.duanxin.czsl.value==""){
messge.innerHTML="<span> 提交失败，短信条数不能为空!</span>";
document.duanxin.czsl.focus();
return false;
}
if(IsValidString(document.duanxin.czsl.value))
{
//不是有数字字母和下划线组成
messge.innerHTML="<span> 提交失败，短信条数格式不对!</span>";
document.duanxin.czsl.focus();
return false;
}
if(document.duanxin.czsl2.value!=document.duanxin.czsl.value){
messge.innerHTML="<span> 提交失败，2次提交的数目不同!</span>";
document.duanxin.czsl2.focus();
return false;
}
duanxin.submit();
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%" border="0" cellspacing="0" cellpadding="0">
<form action="?action=czs" method="post" name="duanxin" onSubmit="return checkInput();">
<tr>
<td height="27" align="center" background="img/ai.jpg" class="nazhi">充值短信</td>
</tr>
<tr>
<td height="30" align="center"><%set rs2=server.CreateObject("adodb.recordset")
sql2="select * from dxsl where kfid='"&request("id")&"'"
rs2.open sql2,conn,1,3%>客户账号: <%=rs2("kfid")%> 当前余额: <%=rs2("dxsl")%><input type="hidden" name="ye" value="<%=rs2("dxsl")%>" ><input type="hidden" name="id" value="<%=rs2("kfid")%>" ></td></tr>
<tr>
<td height="30" align="center"> 充值数量:
<input name="czsl" type="text" class="ysy" style="width:150px"></td></tr>
<tr>
<td height="30" align="center"> 确认数量:
<input name="czsl2" type="text" class="ysy" style="width:150px"></td></tr>
<tr>
<td height="30" align="center">
<input type="submit" class="an" value="充值" /></td>
</tr>
<tr>
<td height="30" align="center"><span id=messge style="color:red"></span></td></tr>
</form>
</table>
<%end sub
sub kc()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="?action=kcl" method="post">
<tr>
<td height="27" align="center" background="img/ai.jpg" class="nazhi">扣除短信</td>
</tr>
<tr>
<td height="30" align="center"><%set rs2=server.CreateObject("adodb.recordset")
sql2="select * from dxsl where kfid='"&request("id")&"'"
rs2.open sql2,conn,1,3%>客户账号: <%=rs2("kfid")%> 当前余额: <%=rs2("dxsl")%><input type="hidden" name="ye" value="<%=rs2("dxsl")%>" ><input type="hidden" name="id" value="<%=rs2("kfid")%>" >
扣除数量:
<input name="czsl" type="text" class="ysy" onkeyup="value=value.replace(/[^0-9\n]/g,'')" onblur="value=value.replace(/[^0-9\n]/g,'')" onmouseout="value=value.replace(/[^0-9\n]/g,'')" onmouseup="value=value.replace(/[^0-9\n]/g,'')" onmouseover="value=value.replace(/[^0-9\n]/g,'')"/>
<input name="Submit3" type="submit" class="an" value="扣除" /></td>
</tr>
</form>
</table>
<%end sub
sub czjl()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<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>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from czjl order by date desc"
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td height="30" colspan="3" 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="39" align="center" class="zxbk"><a href="?action=edit&id=<%=rs("kfid")%>"><%=rs("kfid")%></a></td>
<td align="center" class="zxbk"><%=rs("czts")%></td>
<td align="center" class="zxbk"><%=rs("date")%></td>
</tr>
<%
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop
end if%>
<tr>
<td height="30" colspan="3" align="center" class="zxbk"><%call showpage("czkf.asp?action=czjl",rs.recordcount,10,true,true,"个客户",currentpage)%></td>
</tr>
</table>
<%
end sub
sub del()%><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="27" align="center" background="img/ai.jpg" class="nazhi">删除提示</td>
</tr>
<tr>
<td height="70" align="center">
你是否删除:<%=id%>
<br /><BR />
<font color="#FF0000">请注意,客户资料删除后,客客的充值记录,发送记录都将被删除,您是否删除?</font></td>
</tr>
<tr>
<form action="?action=dell" method="post"> <td height="30" align="center"><input type="submit" name="Submit4" value="确认删除" /> <a href='javascript:history.back(-1)'>【返回】</a><input name="id" value="<%=id%>" type="hidden"/></td></form>
</tr>
</table>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -