addusercheck.asp

ＪＡＶＡ开发的ＡＳＰ例子

<!--#include file="opendb.inc"-->
<% 
chepai=trim(request.FORM("chelianghaopai"))
Set rs1 = Server.CreateObject("ADODB.Recordset")
sql1="select * from baoxian where 车辆号牌='"&chepai&"'"
rs1.open sql1,conn,3,2
if not rs1.eof then%>
<script language=javascript>
<!--
  window.alert("车牌号码重复！！！");
-->
</script>
<%
response.end
end if
'rs.delete


Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from baoxian"
rs.open sql,conn,3,2

pname=trim(request.FORM("pname"))  '姓名
memo=trim(request.FORM("memo"))    '备注
if len(memo)<1 then
   memo=" "
end if
lianxiren=trim(request.FORM("lianxiren"))  '联系人

chushengriqi=trim(request.FORM("chushengriqi"))

vip=trim(request.FORM("vip"))

sex=trim(request.FORM("sex"))  '性别

yewurenyuan=trim(request.FORM("yewurenyuan"))  '业务人员

email=trim(request.FORM("email"))  '邮箱


address=trim(request.FORM("address"))  '家庭住址

chelianghaopai=trim(request.FORM("chelianghaopai"))  '车辆号牌

cheliangxinghao=trim(request.FORM("cheliangxinghao"))  '车辆型号

cheliangpinpai=trim(request.FORM("cheliangpinpai"))

goumaifangshi=trim(request.FORM("goumaifangshi"))  '购买方式

yearanjieqixian=trim(request.FORM("yearanjieqixian"))
monthanjieqixian=trim(request.FORM("monthanjieqixian"))

yearcdrq=trim(request.FORM("yearcdrq"))  '初登日期年

monthcdrq=trim(request.FORM("monthcdrq"))

yearnsrq=trim(request.FORM("yearnsrq"))

monthnsrq=trim(request.FORM("monthnsrq"))  '年审日期月

chejiahao=trim(request.FORM("chejiahao"))  '车架号

fadongjihao=trim(request.FORM("fadongjihao"))

chengbaogongsi=trim(request.FORM("chengbaogongsi")) '承保公司

baoxiandanhao=trim(request.FORM("baoxiandanhao"))  '保险单号

yearqiandan=trim(request.FORM("yearqiandan"))  '签单日期年

monthqiandan=trim(request.FORM("monthqiandan"))

dayqiandan=trim(request.FORM("dayqiandan"))

yearbaoxiandaoqi=trim(request.FORM("yearbaoxiandaoqi"))  '保险到期日期年

monthbaoxiandaoqi=trim(request.FORM("monthbaoxiandaoqi"))

daybaoxiandaoqi=trim(request.FORM("daybaoxiandaoqi"))

xianzhong=trim(request.FORM("xianzhong"))  '险种

qiandanbaofei=trim(request.FORM("qiandanbaofei"))

zhifufangshi=trim(request.FORM("zhifufangshi"))

yewubumen=trim(request.FORM("yewubumen"))

lianxidianhuacell=trim(request.FORM("lianxidianhuacell"))

lianxidianhuazuo=trim(request.FORM("lianxidianhuazuo"))

kehuleixing=trim(request.FORM("kehuleixing"))

memo=trim(request.FORM("memo"))

shoufeizhuangtai="未收费"
fapiaonum=request("fapiaonum")
qianyinnum=request("qianyinnum")

rs.addnew
   rs("姓名")=pname
   rs("VIP卡号")=vip
   rs("联系人") =lianxiren
   rs("出生日期") =chushengriqi
rs("性别")=sex
rs("业务人员")=session("Uname")
rs("邮箱")=email
rs("家庭住址")=address
rs("车辆号牌")=chelianghaopai
rs("保险到期日期年")=yearbaoxiandaoqi
rs("保险到期日期月")=monthbaoxiandaoqi
rs("保险到期日期日")=daybaoxiandaoqi
rs("车辆型号")=cheliangxinghao
rs("车辆品牌")=cheliangpinpai
rs("购买方式")=goumaifangshi
rs("按揭期限年")=yearanjieqixian
rs("按揭期限月")=monthanjieqixian
rs("初登日期年")=yearcdrq
rs("初登日期月")=monthcdrq
rs("年审日期年")=yearnsrq

rs("年审日期月")=monthnsrq
rs("车架号")=chejiahao
rs("发动机号")=fadongjihao
rs("承保公司")=chengbaogongsi
rs("保险单号")=baoxiandanhao
rs("签单日期年")=yearqiandan
rs("签单日期月")=monthqiandan
rs("签单日期日")=dayqiandan

rs("险种")=xianzhong
rs("签单保费")=qiandanbaofei
rs("支付方式")=""
rs("部门")=session("Upart")
rs("联系电话手机")=lianxidianhuacell
rs("联系电话座机")=lianxidianhuazuo
rs("客户类型")=kehuleixing
rs("收费状态")=shoufeizhuangtai
rs("实收保费")=0
rs("备注")=memo
rs("发票号")=fapiaonum
rs("铅印号")=qianyinnum
rs("出生月")=request("chushengyue")
rs("出生日")=request("chushengri")
rs("养路费年")=request("yearyanglufei")
rs("养路费月")=request("monthyanglufei")

rs("换证年")=request("yearhuanzheng")
rs("换证月")=request("monthhuanzheng")
rs("服务状态")="未服务"

rs.update
rs.close%>
<script language=javascript>
<!--
   window.alert("信息录入成功！！！");
-->
</script>
<%
response.redirect "adduser.asp"
%>