www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\register_3.asp

    <!--#include file="inc/conn.asp"-->
<%ep_name=trim(Request("ep_name"))
  ep_postnumber=trim(Request("ep_postnumber"))
  ep_addr=trim(Request("ep_addr"))
  ep_chairman=Request("ep_chairman")
  ep_phone=trim(Request("ep_phone"))
  ep_fax=trim(Request("ep_fax"))
  ep_email=trim(Request("ep_email"))
  ep_homepage=trim(Request("ep_homepage"))
  ep_intro=Request("ep_intro")
  login=Request("login")
  passwd=Request("passwd")
  Set Rs=Server.CreateObject("Adodb.RecordSet")
  if ep_name="" then
   result=Server.urlEncode("单位名称为空,请返回填写完整")
   Response.Redirect "result.asp?result="&result
  end if
  if ep_addr="" then
   result=Server.urlEncode("详细地址为空,请返回填写完整")
   Response.Redirect "result.asp?result="&result
  end if
  sql="select * from enterprise where login='"&login&"'"
  Rs.Open sql,conn,1,1
  if Not Rs.Eof then
   result=Server.urlEncode("你的帐号已经存在,发生意外错误,请重新选择帐号名")
   Response.Redirect "result.asp?result="&result&"&gopage=register.asp"
  end if
  Rs.Close
  Rs.Open "enterprise",conn,3,3
  Rs.AddNew
  Rs("ep_name")=ep_name
  Rs("ep_postnumber")=ep_postnumber
  Rs("ep_addr")=ep_addr
  Rs("ep_chairman")=ep_chairman
  Rs("ep_phone")=ep_phone
  Rs("ep_fax")=ep_fax
  Rs("ep_email")=ep_email
  Rs("ep_homepage")=ep_homepage
  Rs("ep_intro")=ep_intro
  Rs("login")=login
  Rs("passwd")=passwd
  Rs("ep_regtime")=now()
  Rs("ep_acount")=0
  Rs("ep_inde")=0
  Rs.Update
  Rs.Close
  sql="select ep_id from enterprise where login='"&login&"'"
  Rs.Open sql,conn,1,1
  session("ep_id")=Rs("ep_id")
  Rs.close 
  Set Rs=nothing
  Set conn=nothing
  session("login")=login
  session("acount")=0
  Response.Redirect"company_myself.asp"
  %>