accsidentsave.asp

来自「20041230162250801409： 浙江省丽水市公铁联运有限公司OA系」· ASP 代码 · 共 71 行

<!--#include file="conn.asp"-->
<%   ee2=request.Form("ee2")
    aa=request.Form("aa")
	bb=request.Form("bb")
	cc=request.Form("cc")
	dd=request.Form("dd")
	ee=request.Form("ee")
	ff=request.Form("ff")
	gg=request.Form("gg")
	hh=request.Form("hh")
	ii=request.Form("ii")
	jj=server.HTMLEncode(request.Form("jj"))
	kk=server.HTMLEncode(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=server.HTMLEncode(request.Form("zz"))
	set rs=server.CreateObject("adodb.recordset")
	  sql="select * from yinyun"
	  rs.open sql,conn,3,3
	  rs.addnew
	  rs("日期年2")=aa
	  rs("日期月2")=bb
	  rs("日期日2")=cc
	  rs("日期时")=dd
	  rs("编号2")=ee
	  rs("车牌号2")=ee2
	  rs("驾驶员2")=ff
	  rs("责任")=gg
	  rs("事故简况")=jj
	  rs("处理部门")=hh
	  rs("经办人")=ii
	  rs("车物损失情况")=kk
	  rs("工时费")=ll
	  rs("材料费")=mm
	  rs("送赔时间")=nn
	  rs("送赔金额")=oo
	  rs("对方赔付")=tt
	  rs("事故损失差额")=pp
	  rs("赔回时间")=qq
	  rs("赔回金额")=rr
	  rs("索赔部门")=ss
	  rs("待岗或解聘")=uu
	  rs("罚款")=xx
	  rs("合计")=ww
	  rs("承担经济损失")=vv
	  rs("执行时间")=yy
	  rs("备注2")=zz
	   rs.update
	  
	   response.redirect("addaccsident1.asp")
	  rs.close
set rs=nothing
conn.close
set conn=nothing
	   %>