<!--#include file="Inc/Conn.asp"-->
<!--#include file="Lock.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<%If Request.QueryString("id")="" or Request.QueryString("action")="" Then
Response.Redirect "Index.asp"
Else
If Request.Form("OK")="提交资料" Then
Dim server_v1
Dim server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
If mid(server_v1,8,len(server_v2))<>server_v2 then 
Response.Redirect "Index.asp"
End if 
Set ob=Conn.Execute("Select * From [Job] Where ID = "&Clng(Request("ID")))
If ob.Eof or ob.Bof Then
        Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('没有该应聘信息!');" & Chr(13)
		Response.write "window.document.location.href='Index.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
        Response.End 
Else
object=ob("JObject")
na=checkstr(Trim(Request.Form("name")))
sex=Trim(Request.Form("sex"))
bron=checkstr(Trim(Request.Form("bron")))
marry=Trim(Request.Form("marry"))
school=checkstr(Trim(Request.Form("school")))
exp=checkstr(Trim(Request.Form("exp")))
pof=checkstr(Trim(Request.Form("pof")))
phone=checkstr(Trim(Request.Form("phone")))
email=checkstr(Trim(Request.Form("email")))
address=checkstr(Trim(Request.Form("address")))
level=checkstr(Trim(Request.Form("level")))
aboutme=checkstr(Trim(Request.Form("aboutme")))
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * From [JobAccept] Where ID IS Null"
rs.Open sql,conn,1,3
rs.AddNew
rs("Object")=object
rs("Name")=na
rs("Sex")=sex
rs("Born")=bron
rs("Marry")=marry
rs("School")=school
rs("Exp")=exp
rs("Pof")=pof
rs("Telphone")=phone
rs("Email")=email
rs("ConAdderss")=address
rs("Level")=level
rs("AboutMe")=aboutme
rs.Update
rs.Close
Set rs=Nothing
        Response.write "<script language='javascript'>" & chr(13)
		Response.write "alert('资料提交成功!请等通知...');" & Chr(13)
		Response.write "window.document.location.href='Index.asp';"&Chr(13)
		Response.write "</script>" & Chr(13)
        Response.End 
End if
End if
End if
%>