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" %>