asp会员注册登录以及管理系统网页实例

《asp会员注册登录以及管理系统网页实例》由会员分享，可在线阅读，更多相关《asp会员注册登录以及管理系统网页实例（15页珍藏版）》请在装配图网上搜索。

1、Result.asp(注册跳转结果，是否注册成功)vtitled册结果v/title    0then如果从在这个用户名，对用户进行提示response.WriteODD：&request.form(f_user)&已经被占用！请点击后退按钮返回上一页！rst.closesetrst=nothingconn.closesetconn=nothingresponse.Endelserst.closeconn.begintrans开启数据库的事务功能rst.openselect*fromuser,conn,1,3rst.addnew插入数据到user表rst

2、(u_user)=request.Form(f_user)rst(u_code)=request.Form(f_code)rst.updaterst.close获取刚才插入数据的自动编号字段值，即u_id字段的值setrst1=conn.execute(SELECTIDENTITYASuid)uid=rst1(uid)rst.openinfo,conn,1,3错误分析检测语句setmyErrors=conn.errorsifmyErrors.count0thenfori=0tomyErrors.count-1response.Write(”错误原因:&myErrors.item(i).desc

3、ription&vb)nextendif错误分析检测结束iferr.number0thenresponse.WriteERR对象捕获错误：&err.descriptionendifrst.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.closeiferr.number0thenconn.rollbacktrans取消之前写入数据库的内容(写

4、入数据出错的情况下)%vp请登录v/a！!v/px/td    Login.aspQ会员登陆、登陆成功、会员信息显示页面）vtitle主页v/title注册v/av/p登录管理v/av/pv/tdvspanclass=STYLEl会员登陆0thensession(user)=rst(u_user)用这个SESSION变量表示用户是否已经登录session(acc)=trueelseresponse.Write用户名会密码错误！登陆不成功！endifrst.closeelseifrequest.QueryString(act)=loginoutthen退出

5、登录session(user)=session(acc)=falseendif%用户名：v/td密 码:注册! 如果没有账户，请欢迎你再次到来！退出登录会员功能对不起,您还没有登录，不能查看会员功能!会员数据库USER表结构如下：vtdwidth=24%align=center字段名v/tdvtdwidth=21%align=center字段类型vtdwidth=22%align=center字段数据长度vtdwidth=33%align=center允许存储的最大数字位v/tdv/trv%rst.openselect*fromuser,conn,1,1fori=0tors

6、t.fields.count-1%vtrvtdalign=centerv%=rst.fields(i).name%v/tdvtdalign=centerv%=rst.fields(i).type%v/tdvtdalign=centerv%=rst.fields(i).actualsize%v/tdvtdalign=centerv%=rst.fields(i).precision%v/tdv/trv%next%v/tablev%endif%vbr/v/tdvtdbgcolor=#FFFF99v/tdv/trvtrvtdheight=66colspan=3align=centervalign=bo

7、ttombgcolor=#FFFFCCv/tdv/trv/tablev/tdv/trv/tablev/bodyRegister.asp(注册页面)vtitle注册页面v/title  注册页面v/td     请在下面填写您的注册资料，红色vspanclass=STYLEl*v/span号所标示的选项为必填项v/td用户名：*vtdalign=right密码：v/td*vtdalign=right姓名：vtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trvtrvtdalign=right

8、性别：v/tdvtdalign=leftvselectname=f_sexid=f_sexvoptionvalue=男selected=selected，、男v/optionvoptionvalue=女女v/selectv/tdvtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trvtrvtdalign=right年龄：v/tdvtdalign=leftvinputname=f_agetype=textid=f_agesize=8/v/tdvtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trvtrvtdcolspan=3

9、align=centervinputtype=submitname=Submitvalue=提交注册资料/   vinputtype=resetname=Submit2value=重置表单/v/tdv/trv/tablev/formv/tdvtdalign=centervalign=middlebgcolor=#66FF99 v/tdv/trvtrvtdheight=69bgcolor=#00FF99 v/tdvtdcolspan=2bgcolor=#99FFFF v/tdvtdalign=centervalign=middlebgc

10、olor=#66FF99 v/tdv/trv/tablev/tdv/trv/tablev/bodyv/htmldb.inc.asp(数据库连接页面)v%字符串连接数据库方法setconn=server.CreateObject(ADODB.CONNECTION)conn.openProvider=Microsoft.Jet.OLEDB.4.0;DataSource=Server.MapPath(sjk/fifasp.mdb)%v%Accesssetconn=Server.CreateObject(ADODB.Connection)conn.openDRIVER=DriverdoMic

11、rosoft(*.mdb);UID=admin;PWD=;DBQ=&Server.MapPath(sjk/fifasp.mdb)setconn=server.CreateObject(ADODB.Connection)conn.openDSN=fifasp;UID=admin;PWD=;%Admin.asp(会员管理删除主页面)vtitle会员管理/title%setrst=Server.CreateObject(adodb.recordset)onerrorresumenextifrequest.QueryString(act)=delthen如果是删除记录id=request.QueryS

12、tring(id)conn.begintransconn.executedeletefromuserwhereu_id=&idconn.executedeletefrominfowherei_uid=&idrst.openselect*fromuserwhereu_id=&id,conn,1,3rst.deleterst.closerst.openselect*frominfowherei_uid=&id,conn,1,3rst.deleterst.closeiferr.number0thenconn.rollbacktransresponse.Write删除会员失败elsemittransr

13、esponse.Write删除会员成功endifendif% vtdwidth=625align=centervspanclass=STYLEl会员管理v/tdvtdwidth=85vpvahref=register.asp注册登录管理v/ax/pvtrvtdheight=472 v/tdvtdalign=centervalign=middlebgcolor=#FFCCCCvtablewidth=95%border=lcellspacing=0cellpadding=2vtrvtdwidth=7%align=centervspanclass=STYLEl0IDv/spanv

14、/tdvtdwidth=18%align=centervspanclass=STYLE10用户名v/spanv/tdvtdwidth=16%align=centervspanclass=STYLE10姓名v/spanv/tdvtdwidth=7%align=centervspanclass=STYLE10性别v/spanv/tdvtdwidth=8%align=centervspanclass=STYLE10年龄v/spanv/tdvtdwidth=8%align=centervspanclass=STYLE10会员v/spanv/tdvtdwidth=25%align=centervspan

15、class=STYLE10操作v/spanv/tdv/trv%sql=select*fromuser,infowhereu_id=i_uidrst.opensql,conn,1,1whilenotrst.eof%vtrvtdalign=centerclass=STYLE12v%=rst(u_id)%v/tdvtdalign=centervspanclass=STYLE12v%=rst(u_user)%v/spanv/tdvtdalign=centervspanclass=STYLE12v%=rst(i_name)%v/spanv/tdvtdalign=centervspanclass=STYL

16、E12v%=rst(i_sex)%v/spanv/tdvtdalign=centervspanclass=STYLE12v%=rst(i_age)%v/spanv/tdvtdalign=centervspanclass=STYLE12v%ifrst(i_vip)thenresponse.Write是elseresponse.Write否endif%v/spanv/tdvtdcolspan=3align=centervspanclass=STYLE2vahref=modify.asp?id=v%=rst(u_id)%修改资料v/avahref=admin.asp?act=del&id=v%=rs

17、t(u_id)%删除资料v/av/spanv/tdv/trv%rst.movenextwendrst.close%v/tablev/tdvtd v/tdv/tr modify.asp(会员信息更新页面)vtitle会员资料修改/title%setrst=server.CreateObject(adodb.recordset)onerrorresumenextid=request.QueryString(id)ifrequest.QueryString(act)=modifythen如果是就修改记录conn.begintranssql=updateusersetu_user=

18、&request.Form(f_user)&,u_code&request.Form(f_code)&whereu_id=idsql1=updateinfoseti_name=&request.Form(f_name)&,i_sex&request.Form(f_sex)&sql1=sql1&,i_age=&request.Form(f_age)&,i_vip=ifrequest.Form(f_vip)=1thensql1=sql1&trueelsesql1=sql1&falseendifsql1=sql1+wherei_uid=&idconn.executesqlconn.executesq

19、l1rst.openselect*fromuserwhereu_id=&id,conn,1,3rst(u_user)=request.Form(f_user)rst(u_code)=request.Form(f_code)rst.updaterst.closerst.openselect*frominfowherei_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)ifrequest.Form(i_vip)=1thenrst(i

20、_vip)=trueelserst(i_vip)=falseendifrst.updaterst.closeiferr.number0thenconn.rollbacktransresponse.Write修改会员失败mittransresponse.Write修改会员成功endifendif%    vtdalign=centervalign=middlebgcolor=#FFCCFFvahref=admin.asp返回会员列表formid=form1name=form1method=postaction=modify.asp?act=modify&i

21、d=vtdcolspan=3请在下面修改会员资料，红色vspanclass=STYLEl*v/span号所标示的选项为必填项v/tdvtr用户名：vtdwidth=37%align=leftvinputname=f_uservalue=v%=rst(u_user)%type=textid=f_user/v/tdvtdwidth=39%align=leftvspanclass=STYLEl*v/spanv/tdv/trvtr密码：vtdalign=leftvinputname=f_codevalue=v%=rst(u_code)%type=textid=f_code/v/tdvtdalign=l

22、eftvspanclass=STYLEl*v/spanv/tdv/trv%rst.closerst.openselect*frominfowherei_uid=&request.QueryString(id),conn,l,l%vtdalign=right姓名：v/tdinputname=f_namevalue=type=textid=f_name/*vtdalign=right性别：voptionvalue=男selected=v%ifrst(i_sex)=男thenresponse.Writeselectedendif%男v/optionvoptionvalue=女selected=女v/

23、selectv/tdvtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trvtrvtdalign=right年龄：v/tdvtdalign=leftvinputname=f_agetype=textvalue=v%=rst(i_age)%id=f_agesize=8/v/tdvtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trvtrvtdalign=right是否会员：v/tdvtdalign=leftvinputname=f_viptype=radiovalue=1v%ifrst(i_vip)thenresponse.

24、Writechecked%/是vinputtype=radioname=f_vipvalue=0v%ifnotrst(i_vip)thenresponse.Writechecked%/否v/tdvtdalign=leftvspanclass=STYLE1*v/spanv/tdv/trv%rst.close%vtrvtdcolspan=3align=centervinputtype=submitname=Submitvalue=修改会员资料/   vinputtype=resetname=Submit2value=重置表单/v/tdv/trv/tablev/formv/tdvtd v/tdv/tr