% 'session("submit")=Request.QueryString("submit") 'Set RS = Server.CreateObject("ADODB.Recordset") 'if Request.QueryString("submit")="yes" then ' sql="delete 線上履歷 where id='" & Request("id") & "' and pwd='" & Request("pwd") & "'" ' set rs = conn.execute(sql) ' RS.Open "Select * from 線上履歷",Conn,1,3 ' RS.AddNew ' RS("id") = Request("id") ' RS("pwd") = Request("pwd") ' RS("工作職缺") = Request("work") ' RS("工作地點") = Request("workplace") ' RS("姓名") = Request("name") ' RS("性別") = Request("sex") ' RS("出生年月日") = Request("b_y") & "/" & Request("b_m") & "/" & Request("b_d") ' RS("手機") = Request("cellphone") ' RS("住家電話") = Request("phone_h") ' RS("地址") = Request("address") ' RS("學歷") = Request("school") ' RS("系所") = Request("系所") ' RS("經歷") = Request("antecedent01") & "," & Request("antecedent02") & "," & Request("antecedent03") & "," & Request("antecedent04") ' RS("可以上班時間") = Request("week") ' RS("目前身份") = Request("radiobutton") ' RS("自傳") = Request("autobiography") 'RS("第1張照片") = Request("people") 'RS("第2張照片") = Request("address") ' RS.Update ' RS.close 'end if if Request("id")<>"" and Request("pwd")<>"" then set conn=server.createobject("adodb.connection") conn.open connection_setting sql="Select * from 線上履歷 where id='" & Request("id") & "' and pwd='" & Request("pwd") & "'" set rs = conn.execute(sql) if rs.eof then response.Write("帳號或密碼錯誤!!!") response.end end if end if %>
|