📄 kzl.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="kindex.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="kzl.asp"
select case action
        case "edit"
	      call edit()
	   case "edits"
	       call edits()	  
	   case "reset"
	      call reset()
	   case else
	      call main()
end select
sub edits()
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")
kfname=request("kfname")
set rs=server.createobject("adodb.recordset")
sql="select * from czkf where kfid='"&id&"'"
rs.open sql,conn,1,3

 rs("zname")=kfname
 rs("pass")=kfpass
 rs("ztel")=gstel
 rs("zmobie")=gsmobie
 rs("zgs")=gsn
 rs("email")=email
  rs.update
  response.write"<script>alert('客户资料更新成功!');location.href='"&filename&"';</script>"
  rs.close
   set rs=nothing
end sub
sub main%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from czkf where kfid='"&session("czkf")&"'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<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/z1.jpg" class="kz">资料更新</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")%>" disabled="disabled"/></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='"&session("czkf")&"'"
	rs2.open sql2,conn,1,1
	if not rs2.eof then%>
    <td><input name="czts" type="text" class="ysy"  value="<%=rs2("dxsl")%>" disabled="disabled"/> 
      &nbsp;条&nbsp;&nbsp;&nbsp;</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>
<%
end if
 rs2.close
end if
rs.close
set rs=nothing
set rs2=nothing


end sub
sub edit()%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr background="img/z1.jpg">
    <td height="27" align="center" background="img/z1.jpg" class="kz">客户账号</td>
    <td align="center" background="img/z1.jpg" class="kz">充值条数</td>
    <td align="center" background="img/z1.jpg" class="kz">充值时间</td>
  </tr>
   <%
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from czjl where kfid='"&session("czkf")&"' 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="28" align="center" class="zxbk"><a href="?action=edit&amp;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=reset",rs.recordcount,10,true,true,"个客户",currentpage)%></td>
  </tr>
</table>
<%end sub%>
</body>
</html>
⌨️ 快捷键说明

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