yinyunsave.asp

20041230162250801409： 浙江省丽水市公铁联运有限公司OA系统（物流） 开发语言：PHP/ASP/PERL 本系统包括各个部门的管理

<!--#include file="conn.asp"-->
<%   aa=request.Form("aa")
	bb=request.Form("bb")
	cc=request.Form("cc")
	ee=request.Form("ee")
	ff=request.Form("ff")
	gg=request.Form("gg")
	hh=request.Form("hh")
	ii=request.Form("ii")
	jj=request.Form("jj")
	kk=request.Form("kk")
	ll=request.Form("ll")
	mm=request.Form("mm")
	nn=request.Form("nn")
	oo=request.Form("oo")
	pp=request.Form("pp")
	qq=request.Form("qq")
	rr=request.Form("rr")
	ss=request.Form("ss")
	tt=request.Form("tt")
	uu=request.Form("uu")
	vv=request.Form("vv")
	ww=request.Form("ww")
	xx=request.Form("xx")
	yy=request.Form("yy")
	zz=request.Form("zz")
	aa1=request.Form("aa1")
	aa2=request.Form("aa2")
	aa3=request.Form("aa3")
	aa4=request.Form("aa4")
	aa5=request.Form("aa5")
	aa6=request.Form("aa6")
	aa7=request.Form("aa7")
	aa8=request.Form("aa8")
	aa9=request.Form("aa9")
	aa10=request.Form("aa10")
	bb1=server.HTMLEncode(request.Form("bb1"))
	bb2=server.HTMLEncode(request.Form("bb2"))
	bb3=request.Form("bb3")
	bb4=request.Form("bb4")
	bb5=request.Form("bb5")
	bb6=request.Form("bb6")
	bb7=request.Form("bb7")
	bb8=request.Form("bb8")
	bb9=request.Form("bb9")
	bb10=request.Form("bb10")
	cc1=request.Form("cc1")

	cc3=server.HTMLEncode(request.Form("cc3"))
	cc4=server.HTMLEncode(request.Form("cc4"))
	cc5=request.Form("cc5")
	cc6=request.Form("cc6")
	cc7=request.Form("cc7")
	cc8=request.Form("cc8")
	cc9=request.Form("cc9")
	cc10=request.Form("cc10")
	dd1=request.Form("dd1")
	dd2=request.Form("dd2")
	dd3=request.Form("dd3")
	dd4=request.Form("dd4")
	dd5=request.Form("dd5")
	dd6=request.Form("dd6")
	dd7=request.Form("dd7")
	dd8=request.Form("dd8")
	dd9=server.HTMLEncode(request.Form("dd9"))
    time0=request.Form("time0")
    time1=request.Form("time1")
    time2=request.Form("time2")
    time3=request.Form("time3")
    time4=request.Form("time4")
    time5=request.Form("time5")
    time6=request.Form("time6")
    time7=request.Form("time7")
    time8=request.Form("time8")
    jj2=request.form("jj2")
	oo2=request.form("oo2")
	aa42=request.form("aa42")
	aa43=request.form("aa43")
	set rs=server.CreateObject("adodb.recordset")
	 sql="select * from yinyun"
	 rs.open sql,conn,3,3
	 rs.addnew
	 If Request("aa")="" Then
			rs("编号")=null
		Else
			rs("编号")=Request("aa")
	End If
	If Request("bb")="" Then
			rs("经营者")=null
		Else
			rs("经营者")=Request("bb")
	End If
    If Request("cc")="" Then
			rs("车牌号")=null
		Else
			rs("车牌号")=Request("cc")
	End If
	  rs("车型")=ee
	rs("吨位")=ff
	If Request("gg")="" Then
			rs("联系号码")="无"
		Else
			rs("联系号码")=Request("gg")
	End If
	
	 If Request("hh")="" Then
			rs("合同期限")="无"
		Else
			rs("合同期限")=Request("hh")
	End If
	If Request("ii")="" Then
			rs("合同期限1")=null
		Else
			rs("合同期限1")=Request("ii")
	End If
	If Request("jj")="" Then
			rs("保险期限")="无"
		Else
			rs("保险期限")=Request("jj")
	End If

	 If Request("kk")="请选择燃油种类" Then
			rs("燃油种类")=null
		Else
			rs("燃油种类")=Request("kk")
	End If
	if request("ll")="选择性别" then
	rs("性别")=null
	else
	rs("性别")=request("ll")
	end if 
	
	'rs("性别")=ll
	 If Request("mm")="" Then
			rs("身份证号码")=null
		Else
			rs("身份证号码")=Request("mm")
	End If
	 If Request("pp")="" Then
			rs("家庭地址")=null
		Else
			rs("家庭地址")=Request("pp")
	End If
	 If Request("nn")="" Then
			rs("现住地址")=null
		Else
			rs("现住地址")=Request("nn")
	End If
	 If Request("oo")="" Then
			rs("颜色")=null
		Else
			rs("颜色")=Request("oo")
	End If
	 If Request("qq")="" Then
			rs("制造厂家")=null
		Else
			rs("制造厂家")=Request("qq")
	End If
	 If Request("rr")="" Then
			rs("发动机号码")=null
		Else
			rs("发动机号码")=Request("rr")
	End If
	 If Request("ss")="" Then
			rs("车架号")=null
		Else
			rs("车架号")=Request("ss")
	End If
	 If Request("tt")="请选择轴数" Then
			rs("轴数")=null
		Else
			rs("轴数")=Request("tt")
	End If
	 If Request("uu")="" Then
			rs("轴距")=null
		Else
			rs("轴距")=Request("uu")
	End If
	If Request("vv")="选择载客人数" Then
			rs("驾驶室载客")=null
		Else
			rs("驾驶室载客")=Request("vv")
	End If
     if request("time0")="" then 
	   rs("投产时间年")=null
	   else
	rs("投产时间年")=request("time0")
	 end if 
	 if request("time1")="01" then 
	    rs("投产时间月")=null
		else
		rs("投产时间月")=request("time1")
   end if 
	 'rs("投产时间月")=time1
	  if request("time2")="01" then 
	    rs("投产时间日")=null
		else
		rs("投产时间日")=request("time2")
   end if 
	 'rs("投产时间日")=time2
	 if request("time3")="" then 
	    rs("保险期限年")=null
		else
		rs("保险期限年")=request("time3")
   end if 
	if request("time4")="01" then 
	    rs("保险期限月")=null
		else
		rs("保险期限月")=request("time4")
   end if 
	' rs("保险期限月")=time4
	if request("time5")="01" then 
	    rs("保险期限日")=null
		else
		rs("保险期限日")=request("time5")
   end if 
	
	 'rs("保险期限日")=time5
	 if request("time6")="" then 
	   rs("保险期限年1")=null
	   else
	   rs("保险期限年1")=request("time6")
	 end if
	if request("time7")="01" then 
	    rs("保险期限月1")=null
		else
		rs("保险期限月1")=request("time7")
   end if 
	
	' rs("保险期限月1")=time7
	if request("time8")="01" then 
	    rs("保险期限日1")=null
		else
		rs("保险期限日1")=request("time8")
   end if 
	 'rs("保险期限日1")=time8
	 if request("oo2")="" then 
	    rs("other")="其它险种" 
		else
		rs("other")=request("oo2")
		end if 
		if request("aa42")="" then 
	    rs("other1")=null
		else
		rs("other1")=request("aa42")
		end if
		if request("aa43")="" then 
	    rs("other2")=null
		else
		rs("other2")=request("aa43")
		end if
	 If Request("yy")="" Then
			rs("保额车损险")=null
		Else
			rs("保额车损险")=Request("yy")
	End If
If Request("zz")="" Then
			rs("保额第三责任险")=null
		Else
			rs("保额第三责任险")=Request("zz")
	End If
	If Request("aa1")="" Then
			rs("保额司乘人员险")=null
		Else
			rs("保额司乘人员险")=Request("aa1")
	End If
	 If Request("aa2")="" Then
			rs("保额货物承责险")=null
		Else
			rs("保额货物承责险")=Request("aa2")
	End If
	 If Request("aa3")="" Then
			rs("保额货物公定险")=null
		Else
			rs("保额货物公定险")=Request("aa3")
	End If 
	 If Request("aa4")="" Then
			rs("保额不计免赔")=null
		Else
			rs("保额不计免赔")=Request("aa4")
	End If 
If Request("aa5")="" Then
			rs("保费车损险")=null
		Else
			rs("保费车损险")=Request("aa5")
	End If 
	If Request("aa6")="" Then
			rs("保费第三责任险")=null
		Else
			rs("保费第三责任险")=Request("aa6")
	End If 
	If Request("aa7")="" Then
			rs("保费司乘人员险")=null
		Else
			rs("保费司乘人员险")=Request("aa7")
	End If
	 If Request("aa8")="" Then
			rs("保费货物承责险")=null
		Else
			rs("保费货物承责险")=Request("aa8")
	End If
	 If Request("aa9")="" Then
			rs("保费货物公定险")=null
		Else
			rs("保费货物公定险")=Request("aa9")
	End If
	 If Request("aa10")="" Then
			rs("保费不计免赔")=null
		Else
			rs("保费不计免赔")=Request("aa10")
	End If
	  If Request("bb2")="" Then
			rs("安全记录")="没有信息,该驾驶员驾驶情况良好！！"
		Else
			rs("安全记录")=Request("bb2")
	End If
	 If Request("bb1")="" Then
			rs("备注")=null
		Else
			rs("备注")=Request("bb1")
	End If
	If Request("ww")="" Then
			rs("承保单位")=null
		Else
			rs("承保单位")=Request("ww")
	End If
	If Request("xx")="" Then
			rs("保单号")=null
		Else
			rs("保单号")=Request("xx")
	End If
	 
	  rs("日期年2")=bb3 
	 rs("日期月2")=bb4
	  rs("日期日2")=bb5
	 If Request("bb6")="" Then
			rs("日期时")=null
		Else
			rs("日期时")=Request("bb6")
	End If
	 If Request("bb7")="" Then
			rs("编号2")=null
		Else
			rs("编号2")=Request("bb7")
	End If
If Request("bb8")="" Then
			rs("驾驶员")=null
		Else
			rs("驾驶员")=Request("bb8")
	End If
      If Request("bb9")="" Then
			rs("责任")=null
		Else
			rs("责任")=Request("bb9")
	End If
	 If Request("cc3")="" Then
			rs("事故简况")=null
		Else
			rs("事故简况")=Request("cc3")
	End If
	 If Request("bb10")="" Then
			rs("处理部门")=null
		Else
			rs("处理部门")=Request("bb10")
	End If
If Request("cc1")="" Then
			rs("经办人")=null
		Else
			rs("经办人")=Request("cc1")
	End If
If Request("cc4")="" Then
			rs("车物损失情况")=null
		Else
			rs("车物损失情况")=Request("cc4")
	End If
If Request("cc5")="" Then
			rs("工时费")=null
		Else
			rs("工时费")=Request("cc5")
	End If
If Request("cc6")="" Then
			rs("材料费")=null
		Else
			rs("材料费")=Request("cc6")
	End If
If Request("cc7")="" Then
			rs("送赔时间")=null
		Else
			rs("送赔时间")=Request("cc7")
	End If
	 If Request("cc8")="" Then
			rs("送赔金额")=null
		Else
			rs("送赔金额")=Request("cc8")
	End If
		 If Request("dd3")="" Then
			rs("对方赔付")=null
		Else
			rs("对方赔付")=Request("dd3")
	End If
		 If Request("cc9")="" Then
			rs("事故损失差额")=null
		Else
			rs("事故损失差额")=Request("cc9")
	End If
	 If Request("cc10")="" Then
			rs("赔回时间")=null
		Else
			rs("赔回时间")=Request("cc10")
	End If
 If Request("dd1")="" Then
			rs("赔回金额")=null
		Else
			rs("赔回金额")=Request("dd1")
	End If
 If Request("dd2")="" Then
			rs("索赔部门")=null
		Else
			rs("索赔部门")=Request("dd2")
	End If
If Request("dd4")="" Then
			rs("待岗或解聘")=null
		Else
			rs("待岗或解聘")=Request("dd4")
	End If
If Request("dd7")="" Then
			rs("罚款")=null
		Else
			rs("罚款")=Request("dd7")
	End If
If Request("dd6")="" Then
			rs("合计")=null
		Else
			rs("合计")=Request("dd6")
	End If	
	If Request("dd5")="" Then
			rs("承担经济损失")=null
		Else
			rs("承担经济损失")=Request("dd5")
	End If
	If Request("dd8")="" Then
			rs("执行时间")=null
		Else
			rs("执行时间")=Request("dd8")
	End If
If Request("dd9")="" Then
			rs("备注2")=null
		Else
			rs("备注2")=Request("dd9")
	End If
If Request("jj2")="" Then
			rs("车辆类型")=null
		Else
			rs("车辆类型")=Request("jj2")
	End If
	 rs("添加时间")=now()
	 rs.update
	  rs.close 
	  response.Redirect "adddriver1.asp"
	 set rs=nothing
	 conn.close
	 set conn=nothing
	 %>