基于E-learning的PHP自主学习系统的设计学士学位.doc

PAGE 36 中图分类号： TP315 本 科 生 毕 业 设 计 （申请学士学位） 论文题目 基于E-learning的PHP自主学习系统的设计 作者姓名 梁某某 所学专业名称 计算机科学与技术 指导教师 2011年12月20日 学 生： （签字） 学 号： 论文答辩日期： 年 月 日 指 导 教 师 ： （签字） 目录 TOC \o 1-3 \h \u set myconn=server.CreateObject(adodb.connection) 建立Connection对象 myconn.connectionstring=mystr myconn.open myid=request.Form(tx1) 获取用户输入的用户名 if myid then mysql=select * from student where stid=myid 输入的用户名和数据库中的进行匹配 set myrs=myconn.execute(mysql) 执行数据库 if myrs.bof and myrs.eof then 判读数据库是否为空，即该用户名是否被使用 response.Write 该账号未被注册！ else response.Write 该账号已被注册！ end if end if myconn.close 连接关闭 set myconn=nothing 连接释放 % 用户注册信息填写之后的信息提交操作的代码： % dim mysql,rs dim myid,mypass,realname,sex,address dim mail,postcde,mytel,mybirth,idcard myid=request.Form(tx1) 获取注册用户输入的用户名 mypass=request.Form(pwd1) 获取用户输入的密码 realname=request.Form(tx4) 获取用户输入的真实姓名 sex=request.Form(rad) 获取用户选择的性别 address=request.Form(tx5) 获取用户输入的地址 mail=request.Form(tx8) 获取用户输入的E-mail postcode=request.Form(tx6) 获取用户输入的邮政编码 mytel=request.Form(tx7) 获取用户输入的电话号码 mybirth=request.Form(tx9) 获取用户输入的出生日期 idcard=request.Form(tx10) 获取用户输入的身份证号 mysql=select * from student where stid=myid 输入的用户名和数据库中的进行匹配 set rs=myconn.execute(mysql) 执行数据库 if rs.bof and rs.eof then 判断数据库是否为空 向数据库student表中添加注册用户输入的注册信息 mysql=insert into student(stid,stpwd,name,sex,address,mail,postcode,tel,birthday,idnumber) mysql=mysql+values(myid,mypass,realname,sex,address mysql=mysql+,mail,postcode,mytel,mybirth,idcard) myconn.execute(mysql) 更新数据库 response.Write(a href=fomerlogin.asp单击这里链接到登陆页面/a) end if rs.close 关闭RecordSet对象 m