,并向数据库插入新获取的值。
·注册第一步:页面比较简单,主要是3个文本框,分别是账号、密码和重复密码,通过单击"下一步",将3个文本框中的值传递到register_2.asp文件中,如图5-5所示:
图5-5注册第一步
·注册第二步:再让用户填写进一步的详细信息,并且用红色星号标记出一些必填信息,让用户有选择地进行填写,如图5-6所示:
图5-6注册第二步
首先使用Request对象获取register.asp页面表单传递的值,即账号、密码和重复密码,同时使用trim函数除去前后空格,以防止空格造成账号和密码出错;然后对获取的值进行空值判断,如果值为空,则转入出错信息提示窗口文件result.asp;接着使用SQL语句在enterprise表中查询是否存在相同的账号,如果存在,则转入出错页面,同时关闭记录对象,释放资源。关键代码如下:
′获取表单的值
login=trim(Request("login"))
passwd=trim(Request("passwd"))
repasswd=trim(Request("repasswd"))
′进行空值判断
iflogin=""then
′使用urlEncode方法将中文字符串进行URL编码
Result=Server.urlEncode("账号名不能为空")
Response.Redirect"result.asp?result="&result
endif
′判断两个密码是否相符
ifrepasswd<>passwdthen
result=Server.urlEncode("两次输入密码不相符,请重新输入")
Response.Redirect"result.asp?result="&result
endif
′在enterprise表中查询是否存在相同的账号
sql="select*fromenterprisewherelogin=′"&login&"′"
SetRs=Server.CreateObject("Adodb.RecordSet")
Rs.Opensql,conn,1,1
ifnotRs.eofthen
result=Server.urlEncode("该账号已经给使用,请另选账号名")
Response.redirect"result.asp?result="&result
endif
Rs.Close
SetRS=nothing
Setconn=nothing
出错信息提示窗口文件result.asp使用了Request对象来查询符串变量的值,result.asp?result="&result,检索到的值就是result。但如果该值是中文字符串,要使用Server对象中的urlEncode方法将中文字符进行URL编码,如"账号名不能为空",result.asp文件获取该值后将出现正常的错误提示窗口,如图5-7所示:
图5-7出错信息窗口
·注册第三步:首先使用Request对象接收form表单传递过来的值,并对其进行空值判断。接着通过AddNew方法将其值插入enterprise表中,最后为Session对象赋值,随后根据Session对象来跟踪会员的用户、用户ID等信息。代码如下:
sql="selectep_idfromenterprisewherelogin=′"&login&"′"
Rs.Opensql,conn,1,1
Session("ep_id")=Rs("ep_id")′会员id
Rs.close
SetRs=nothing
Setconn=nothing
Session("login")=login′记录会员名
Session("acount")=0′0表示为非正式会员
Response.Redirect"company_myself.asp"
2.企业会员登录设计
为了方便企业维护资料,发布招聘信息,在首页中设置了登录窗口,个人用户和企业用户可以通过本窗口登录。如图5-8所示:
图5-8会员登录页面
会员登录功能包含如下文件:
Default.asp:网站首页,放置会员登录窗口。
Login.asp:会员登录检测页面,确认会员的用户名、密码和身份。
Conn.asp:数据库连接程序页面。
Resultred.asp:出错信息提示页面。
企业会员登录代码如下:
<%