已阅读5页,还剩7页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
Result.asp(注册跳转结果,是否注册成功)注册结果 0 then如果从在这个用户名,对用户进行提示response.Write 用户名:&request.form(f_user)&已经被占用!请点击后退按钮返回上一页!rst.closeset rst=nothingconn.closeset conn=nothingresponse.Endelserst.closeconn.begintrans开启数据库的事务功能rst.open select * from user,conn,1,3rst.addnew插入数据到user表rst(u_user)=request.Form(f_user)rst(u_code)=request.Form(f_code)rst.updaterst.close获取刚才插入数据的自动编号字段值,即u_id字段的值set rst1=conn.execute(SELECT IDENTITY AS uid)uid=rst1(uid)rst.open info,conn,1,3错误分析检测语句set myErrors=conn.errorsif myErrors.count0 thenfor i=0 to myErrors.count-1response.Write(错误原因:&myErrors.item(i).description&)nextend if错误分析检测结束if err.number0 thenresponse.Write ERR对象捕获错误:&err.descriptionend ifrst.addnew插入数据到info表rst(i_uid)=uidrst(i_name)=request.Form(f_name)rst(i_sex)=request.Form(f_sex)rst(i_age)=request.Form(f_age)rst(i_vip)=falserst.updaterst.closeif err.number0 thenconn.rollbacktrans取消之前写入数据库的内容(写入数据出错的情况下)% 请登录! Login.asp(会员登陆、登陆成功、会员信息显示页面)主页 注册 登录 管理会员登陆0 thensession(user)=rst(u_user)用这个SESSION变量表示用户是否已经登录session(acc)=trueelseresponse.Write 用户名会密码错误!登陆不成功!end ifrst.closeelseif request.QueryString(act)=loginout then退出登录session(user)=session(acc)=falseend if % 用户名: 密 码: 如果没有账户,请注册! 欢迎你再次到来!退出登录 会员功能 对不起,您还没有登录,不能查看会员功能!会员数据库USER表结构如下:字段名字段类型字段数据长度允许存储的最大数字位Register.asp(注册页面)注册页面 注册页面 请在下面填写您的注册资料,红色*号所标示的选项为必填项用户名:*密码:*姓名:*性别:男女 *年龄:* db.inc.asp(数据库连接页面)Admin.asp(会员管理删除主页面)会员管理% set rst=Server.CreateObject(adodb.recordset)on error resume nextif request.QueryString(act)=del then如果是删除记录id=request.QueryString(id)conn.begintransconn.execute delete from user where u_id=&idconn.execute delete from info where i_uid=&idrst.open select *from user where u_id=&id,conn,1,3rst.deleterst.closerst.open select * from info where i_uid=&id,conn,1,3rst.deleterst.closeif err.number0 thenconn.rollbacktransresponse.Write 删除会员失败mittransresponse.Write 删除会员成功end ifend if % 会员管理注册 登录 管理 ID用户名姓名性别年龄会员操作 a href=modify.asp?id=修改资料 a href=admin.asp?act=del&id=删除资料 modify.asp(会员信息更新页面)会员资料修改% set rst=server.CreateObject(adodb.recordset)on error resume nextid=request.QueryString(id)if request.QueryString(act)=modify then如果是就修改记录conn.begintranssql=updateusersetu_user=&request.Form(f_user)&,u_code&request.Form(f_code)&where u_id=idsql1=updateinfoseti_name=&request.Form(f_name)&,i_sex&request.Form(f_sex)&sql1=sql1&,i_age=&request.Form(f_age)&,i_vip=if request.Form(f_vip)=1 thensql1=sql1&trueelsesql1=sql1&falseend ifsql1=sql1+where i_uid=&idconn.execute sqlconn.execute sql1rst.open select * from user where u_id=&id,conn,1,3rst(u_user)=request.Form(f_user)rst(u_code)=request.Form(f_code)rst.updaterst.closerst.open select * from info where i_uid=&id,conn,1,3rst(i_name)=request.Form(f_name)rst(i_sex)=request.Form(f_sex)rst(i_age)=request.Form(f_age)if request.Form(i_vip)=1 thenrst(i_vip)=trueelserst(i_vip)=falseend ifrst.updaterst.closeif err.number0 thenconn.rollbacktransresponse.Write 修改会员失败mittransresponse.Write 修改会员成功end ifend if % 返回会员列表 form id=form1 name=form1 method=post action=modify.asp?act=modify&id=请在下面修改会员资料,红色*号所标示的选项为必填项用户名:input name=f_user value= type=text id=f_user /*密码:input name=f_code value= type=text id=f_code/*姓名:input name=f_name value= type=text id=f_name/*性别:option value=男 selected=男option v
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年大学试题(管理类)-采购基础笔试参考题库含答案
- 2024年大学试题(林学)-观赏树木学笔试参考题库含答案
- 2024年湖南省衡阳市珠晖区中考英语一模试卷
- 2024年大学试题(工学)-能源科学技术笔试参考题库含答案
- 2024年大学试题(医学)-病理学笔试参考题库含答案
- 合同的终止说明
- 木工技能考试试题预测三
- 2024-2034年中国食用棕榈油行业市场深度分析及投资策略咨询报告
- 中国建材行业市场发展分析及发展前景与投资研究报告2024-2034版
- 【高二下】江西省景德镇市乐平中学2023-2024学年下学期高二3月月考语文试卷含答案
- 义务消防队、架构、职责
- 《大海与辛巴达的船》示范公开课教学课件【九年级音乐(人教版)】
- 大学英语四级考试真题24套及答案
- 医院中层管理干部竞争上岗组织考核评分表
- 高新技术企业认定管理工作指引(2023正式版)
- 2023年山西建设投资集团有限公司招聘笔试题库及答案解析
- 立体构成之节奏与韵律
- 游乐设备购销合同(4篇)
- GB/T 1725-2007色漆、清漆和塑料不挥发物含量的测定
- 音乐肖邦简介课件
- 铁路护路联防工作会议讲话材料(3篇)
评论
0/150
提交评论