📄 czkf.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>
<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="czkf.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 else
call main()
end select
sub kcl()
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 sub
sub czs()
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 sub
sub dell()
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 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 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")
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.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.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.update
response.write"<script>alert('客户添加成功!');location.href='"&filename&"';</script>"
rs3.close
rs2.close
rs.close
set rs=nothing
set rs2=nothing
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" />
条 确认 <input name="czts2" type="text" class="ysy" /> </td>
<td align="center">E_mail: </td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td height="60"> </td>
<td><input name="Submit" type="submit" class="an" value="开通" />
<input name="Submit2" type="reset" class="an" value="重置" /></td>
<td> </td>
<td> </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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -