《网络编程实训_ASP动态网页设计.doc》由会员分享，可在线阅读，更多相关《网络编程实训_ASP动态网页设计.doc（142页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、ASP动态网页编程实训目 录登陆与注册模块(包括：在线计数器)留言板模块设计(简单的)注册与登录模块设计(简单的)留言板模块设计网络随想空间ASP动态网页编程实训登陆与注册(包括：在线计数器) 作品图片剪贴 脚本程序源代码 有一个Microsoft Office Access数据库名叫：user exit.asp% if session(usename) and session(ZH) thenset con=server.CreateObject(adodb.connection)con.open Driver=Microsoft Access Driver (*.mdb);dbq= & s
2、erver.MapPath(/) & user.mdbcon.execute(update t1 set 状态=0 where 用户名= & session(ZH) & )session(usename)=session(ZH)=response.Redirect(login.asp)elseresponse.Write(禁止访问！)end if% login.asp欢迎登录= 0 And s 2 And s 4 And s %dim use,m,chkyz,messf=request.Cookies(logf)if f thenuse=request.Form(user)m=request.
3、form(mi)chkyz=request.Form(chkC)if loginchkerr thenloginEryend ifend ifresponse.Cookies(logf)=1% 登 陆(login) 注册 用户名： input name=user type=text class=tx id=user maxlength=12 密码： 验证码： loginS.asp无标题文档sub viewOl()f1.h1.value=f1.h1.value=liulanf1.submitend subsub exitl()f1.h1.value=f1.h1.val
4、ue=exitpf1.submitend sub 本站当前登录人数： Welcome ASP World! 浏览：在线成员 退出 资料及密码修改 % hf=request.Form(h1)if hf=liulan thenset con=server.CreateObject(adodb.connection)con.open Driver=Microsoft Access Driver (*.mdb);dbq= & server.MapPath(/) & user.mdbset rs=con.execute (select 姓名,登录时间 from t1 where 状态=1)respons
5、e.Write(成员列表： )do while not rs.eofresponse.Write()response.Write( & rs(0) & )response.Write(登录时间： & rs(1) & ) response.Write()rs.movenextloopcon.closeend if% modify.asp无标题文档 sub checkp()if f1.tuse.value= thenalert 姓名不能为空！exit subelseif f1.tm.value= thenalert 旧密码不能为空！exit subelseif f1.t
6、em.valuef1.tem2.value thenalert 两次密码不一致！f1.tem.value=f1.tem2.value=exit subend if f1.submitend sub 修改资料 用户名： input name=tuse type=text class=unnamed1 id=tuse 旧密码： 新密码： 再次输入： sub FH()end sub regpage.asp无标题文档/he