网络编程实训_ASP动态网页设计.doc

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= & server.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.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.value=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)response.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.tem.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无标题文档sub checkuse()f2.userh.value=form1.use.valuef2.submitend subsub nlC()for i=1 to len(form1.nl.value)poss=mid(form1.nl.value,i,1)if poss9 thenform1.nl.value=exit subend ifnextif cint(form1.nl.value)100 thenform1.nl.value=end ifend sub=0 and t=a and t=A and t=Z) thencheck=1exit forend ifnext end functionfunction checknl(strnl)for i=1 to len(strnl)t=mid(names,i,1)if t9 thenchecknl=1exit forend ifnextend function%dim Mess ,use,names,m1,m2,xb,nldim f2f, zjFzjf=request.Form(userh)if zjf thenif len(zjf)5 thenf2f=1if checkuseE(zjf)=1 thenmess=此用户存在！elsemess=恭喜你可以使用该帐户！end if elsemess=用户名不得少于6位，请检查！end ifelseif request.Cookies(zcf)= thenmess=请填写您的注册信息！response.Cookies(zcf)=1elseuse=request.Form(use)names=request.Form(names)m1=request.Form(m1)m2=request.Form(m2)xb=request.Form(radiobutton)nl=request.Form(nl)if use= or m1= or m2= or xb= or nl= thenmess=请输入完整的信息！elseif len(use)6 thenmess=用户名不得少于6位，请检查！elseif len(m1)6 thenmess=为了安全，密码不得少于6位！elseif check(names)=1 thenmess=请用正确的姓名！(不得使用字母，数字)elseif m1m2 thenmess=两次密码不一致，请检查！elseif checkuseE(use)1 thencon.open Driver=Microsoft Access Driver (*.mdb);DBQ= & server.MapPath() & user.mdbsql=insert into t1(姓名,性别,用户名,密码,年龄) values( & names & , & xb & , & use & , & m1 & , & nl & )con.execute(sql)con.closesession(usename)=namessession(ZH)=useresponse.Cookies(logpas)=okresponse.Redirect(suff.asp)elsemess=此帐户已经存在！end ifend ifend ifend ifend if%   欢迎 注册 用户名： input name=use type=text class=txS id=use size=25 maxlength=12 value=% if f2f1 then response.W