myresumeworkexperiencechk.asp

来自「人才招聘系统,用asp做的」· ASP 代码 · 共 39 行

	<!--#include file=../conn.asp-->
	<!--#include file=cookies.asp-->
	<%
	dim sql
	dim rs
	dim username
	dim jobid,i
	username=request.cookies("ijob")("username")
	jobid=request.cookies("ijob")("jobid")
	set rs=server.createobject("adodb.recordset")
	sql="select username,jobid,jingyan,jingyanshuoming,workdata,xgsj from [person] where jobid='"&jobid&"' and UserName='"&UserName&"'"
	rs.open sql,conn,1,3
	if rs.eof or rs.bof then
	response.write "错误，该用户不存在！<br> "
	response.end
	else
	if not isnumeric(request("jingyan")) or len(request("jingyan"))>2 then
	response.write "<br>"+"<li>工作经验只能是2位数字!"
	response.end
    else
    rs("jingyan")=request("jingyan")
    end if
    if not isnumeric(request("workdata")) or len(request("workdata"))>4 then
	response.write "<br>"+"<li>开始工作时间只能是4位数字!如:1995年"
	response.end
    else
    rs("workdata")=request("workdata")
    end if
	rs("jingyanshuoming")=request("jingyanshuoming")
	rs("xgsj")=now()
	rs.update
    rs.close
    set rs=nothing
    call closedb
    response.write "<br>"+"<li><font color=""#ff0000"">修改成功！</font>"
    response.write "<br>"+"<li>正在返回管理系统....请稍等!!!!!"
    response.write "<meta http-equiv=refresh content=""3;URL=MyResumeWorkExperience.asp"">"
    end if
    %>