workersave.asp

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

<!--#include file="conn.asp"-->
<%
    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=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")
	set rs=server.CreateObject("adodb.recordset")
	  sql="select * from worker"
	  rs.open sql,conn,3,3
	  rs.addnew
	  rs("number")=aa
	  rs("username")=bb
	  rs("sex")=cc
	  rs("zhuzhi")=dd
	  rs("task")=ee
	  rs("born_date")=ff
	  rs("work")=gg
	  rs("cellphone")=hh
	  If Request("ii")="" Then
			rs("office_tel")="未登记"
		Else
			rs("office_tel")=Request("ii")
	End If
	If Request("jj")="" Then
			rs("home_tel")="未登记"
		Else
			rs("home_tel")=Request("jj")
	End If
	If Request("kk")="" Then
			rs("email")="未登记"
		Else
			rs("email")=Request("kk")
	End If
	If Request("ll")="" Then
			rs("body")="未登记"
		Else
			rs("body")=Request("ll")
	End If
	If Request("mm")="" Then
			rs("marry")="未登记"
		Else
			rs("marry")=Request("mm")
	End If
	If Request("nn")="" Then
			rs("addrress")="未登记"
		Else
			rs("addrress")=Request("nn")
	End If
	If Request("oo")="" Then
			rs("study")="未登记"
		Else
			rs("study")=Request("oo")
	End If
	If Request("pp")="" Then
			rs("school")="未登记"
		Else
			rs("school")=Request("pp")
	End If
	If Request("qq")="" Then
			rs("major")="未登记"
		Else
			rs("major")=Request("qq")
	End If
	If Request("rr")="" Then
			rs("left_date")="未登记"
		Else
			rs("left_date")=Request("rr")
	End If
	If Request("ss")="" Then
			rs("work_date")="未登记"
		Else
			rs("work_date")=Request("ss")
	End If
	rs("zhuche_date")=date()
	'if Request("tt")="" Then
		'	rs("zhuche_date")="未登记"
		'Else
		'	rs("zhuche_date")=Request("tt")
	'End If
	If Request("uu")="" Then
			rs("address")="未登记"
		Else
			rs("address")=Request("uu")
	End If
	rs.update
	rs.close
response.redirect("../add/addworker.asp")
 rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   %>