<%
zhmail="欢迎您注册和平人才交流中心人才市场,请尽快发布您的招聘信息或求职简历以完成您的注册!"
zhmail=zhmail&"完全注册之后,您便能享受到本站完善的求职招聘服务,目前主要功能有个人收藏夹和站内信箱功能!"
zhmail=zhmail&"最后祝您在本站找到合适的工作或招到合适的人才!"
zhmail=zhmail&" P.S.(此信为系统所发,请不要回复,谢谢!)"
usertype=request("usertype")
if usertype="" then Response.End
uname=request("uname")
email=request("email")
pwd=mistake(request("pwd"))
if usertype="person" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from person where uname='" & uname & "'"
rs.open sql,conn,3,3
if not rs.eof then
response.write""
response.end
end if
rs.close
sql="select * from person"
rs.open sql,conn,3,3
rs.addnew
rs("uname")=uname
rs("pwd")=pwd
rs("email")=email
rs.update
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from pmailbox"
rs.open sql,conn,3,3
rs.addnew
rs("reid")=uname
rs("senduid")="sysop"
rs("title")="祝贺您注册成功！"
rs("sendname")="系统管理员"
rs("sdate")=now()
rs("mailtext")=zhmail
rs.update
rs.close
session("puid")=uname
response.write""
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from company where uname='" & uname & "'"
rs.open sql,conn,3,3
if not rs.eof then
response.write""
response.end
end if
rs.close
sql="select * from company"
rs.open sql,conn,3,3
rs.addnew
rs("uname")=uname
rs("pwd")=pwd
rs("email")=email
rs.update
rs.close
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from cmailbox"
rs.open sql,conn,3,3
rs.addnew
rs("reid")=uname
rs("senduid")="sysop"
rs("title")="祝贺您注册成功！"
rs("sendname")="系统管理员"
rs("sdate")=now()
rs("mailtext")=zhmail
rs.update
rs.close
session("cuid")=uname
response.write""
end if
%>
