
<!--#INCLUDE FILE="fupload.inc"-->
<!--#include file="../SQLconn.asp"-->


<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'---------------------------
'response.write "开始发送<br>"
'---------------------------
Dim Fields
UploadSizeLimit=21212121
Set Fields = GetUpload()
dim Field
For Each Field In Fields.Items
if Field.name="id" then id=BinaryToString(Field.value)
if Field.name="TNO" then TNO=BinaryToString(Field.value)
if Field.name="Tname" then Tname=BinaryToString(Field.value)
if Field.name="Sex" then Sex=BinaryToString(Field.value)
if Field.name="birthday" then birthday=BinaryToString(Field.value)
if Field.name="CardNo" then CardNo=BinaryToString(Field.value)
if Field.name="jiguan" then jiguan=BinaryToString(Field.value)
if Field.name="Picture" then Picture=BinaryToString(Field.value)
if Field.name="xueli" then xueli=BinaryToString(Field.value)
if Field.name="xuewei" then xuewei=BinaryToString(Field.value)
if Field.name="minzu" then minzu=BinaryToString(Field.value)
if Field.name="suojiaoxueke" then suojiaoxueke=BinaryToString(Field.value)
if Field.name="zhiwu" then zhiwu=BinaryToString(Field.value)
if Field.name="zhicheng" then zhicheng=BinaryToString(Field.value)
if Field.name="pingdingshijian" then pingdingshijian=BinaryToString(Field.value)
if Field.name="pingrenshijian" then pingrenshijian=BinaryToString(Field.value)
if Field.name="Marry" then Marry=BinaryToString(Field.value)
if Field.name="hukou" then hukou=BinaryToString(Field.value)
if Field.name="jiarubendanweishijian" then jiarubendanweishijian=BinaryToString(Field.value)
if Field.name="biyeyuanxiao" then biyeyuanxiao=BinaryToString(Field.value)
if Field.name="zhuanye" then zhuanye=BinaryToString(Field.value)
if Field.name="zhengzhimianmao" then zhengzhimianmao=BinaryToString(Field.value)
if Field.name="jiarushijian" then jiarushijian=BinaryToString(Field.value)
if Field.name="canjiagongzuoshijian" then canjiagongzuoshijian=BinaryToString(Field.value)
if Field.name="zhuanzhengdate" then zhuanzhengdate=BinaryToString(Field.value)
if Field.name="dianhua" then dianhua=BinaryToString(Field.value)
if Field.name="shouji" then shouji=BinaryToString(Field.value)
if Field.name="email" then email=BinaryToString(Field.value)
if Field.name="youbian" then youbian=BinaryToString(Field.value)
if Field.name="dizhi" then dizhi=BinaryToString(Field.value)
if Field.name="gangweijibie" then gangweijibie=BinaryToString(Field.value)
if Field.name="xinji" then xinji=BinaryToString(Field.value)
if Field.name="pinrengangwei" then pinrengangwei=BinaryToString(Field.value)
if Field.name="pinrenxinji" then pinrenxinji=BinaryToString(Field.value)


if Field.name="file1" then
filename=field.FileName
fileContentType=field.ContentType
filevalue=field.value
end if
next


set RsSave=server.createobject("adodb.recordset")
RsSavesql="select * from  Employee where id='"&ID& "'"
RsSave.open  RsSavesql,conn,1,3
RsSave.addnew

RsSave("编号")=TNO
RsSave("姓名")=Tname
RsSave("性别")=Sex
RsSave("出生日期")=birthday
RsSave("身份证号码")=CardNo
RsSave("籍贯")=jiguan
RsSave("学历")=xueli
RsSave("学位")=xuewei

 
if filename<>"" then
  RsSave("相片").appendchunk filevalue
end if


RsSave("民族")=minzu
RsSave("所教学科")=suojiaoxueke
RsSave("职务")=zhiwu
RsSave("职称")=zhicheng
RsSave("评定时间")=pingdingshijian
RsSave("聘任时间")=pingrenshijian
RsSave("婚姻状态")=Marry
RsSave("户口所在地")=hukou
RsSave("加入本单位时间")=jiarubendanweishijian
RsSave("毕业院校")=biyeyuanxiao
RsSave("专业")=zhuanye
RsSave("政治面貌")=zhengzhimianmao
RsSave("加入时间")=jiarushijian
RsSave("参加工作时间")=canjiagongzuoshijian
RsSave("转正时间")=zhuanzhengdate
RsSave("联系电话")=dianhua
RsSave("手机")=shouji
RsSave("电子邮件")=email
RsSave("邮编")=youbian
RsSave("详细地址")=dizhi
RsSave("岗位级别")=gangweijibie
RsSave("薪级")=xinji
RsSave("聘任岗位")=pinrengangwei
RsSave("聘任薪级")=pinrenxinji
RsSave("是否离职")=""
 
 
RsSave.update

RsSave.close

response.redirect   "dangan.asp"
end if%>
