%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if request("submit")<>empty then
%>
<%
function changechr(str)
changechr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"
")," "," ")
changechr=replace(replace(replace(replace(changechr,"[img]",""),"[red]",""),"[big]","")
changechr=replace(replace(replace(replace(changechr,"[/img]",">"),"[/b]",""),"[/red]",""),"[/big]","")
end function
Set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from tbl_yingpin"
rs.open Sql,conn,3,2
rs.addnew
rs("name")=changechr(request("name"))
rs("xingbie")=changechr(request("xingbie"))
rs("nianling")=changechr(request("nianling"))
rs("minzu")=changechr(request("minzu"))
rs("mianmao")=changechr(request("mianmao"))
rs("birthday")=changechr(request("birthday"))
rs("zhuanye")=changechr(request("zhuanye"))
rs("jiguan")=changechr(request("jiguan"))
rs("xueli")=changechr(request("xueli"))
rs("tel")=changechr(request("tel"))
rs("email")=changechr(request("email"))
rs("address")=changechr(request("address"))
rs("youbian")=changechr(request("youbian"))
rs("yixiang")=changechr(request("yixiang"))
rs("pingjia")=changechr(request("pingjia"))
rs("dengji")=changechr(request("dengji"))
rs("jineng")=changechr(request("jineng"))
rs("jingli")=changechr(request("jingli"))
rs("jiangfa")=changechr(request("jiangfa"))
rs("kecheng")=changechr(request("kecheng"))
rs("ganxiang")=changechr(request("ganxiang"))
rs("qita")=changechr(request("qita"))
rs("addtime")=date()
rs("username")=clng(session("id"))
rs.update
rs.close
set rs=nothing
msg "简历填写成功。","GoUrl","zxzp.asp"
response.end
end if
%>
![]() |
|
![]() |
![]() |
|
|
|