2019年as p登陆原代码(正确版).docVIP

1、（index.asp 用户登陆页面） !-- #include file=conn.asp -- !-- 悠悠长假期 -- html head meta http-equiv=Content-Type content=text/html; charset=gb2312 title会员/title style type=text/css !-- body,td,th { font-family: 宋体; font-size: 14px; } -- /style /head body center p会员注册系统/p form name=form1 method=post action=login.asp table width=34% border=0 tr td width=33% height=30用户名:/td td width=67% height=30input name=username type=text id=username size=15/td /tr tr td height=30密 码:/td td height=30input name=password type=password id=password size=15/td /tr tr td colspan=2 align=centerinput type=submit name=Submit value=确定 input type=reset name=Submit value=重置/td /tr tr td colspan=2a href=reg.asp target=_self注册/a/td /tr /table /form /center /body /html 2、（login.asp 用户数据处理文件） !-- #include file=conn.asp -- % 打开数据库判断用户是否存在,info为表名,username为字段名 set rsc=server.createobject(adodb.recordset) sqlc=select * from info where username=request.Form(username) and password=request.Form(password) rsc.open sqlc,conn,1,1 session(username)=rsc(username) session(password)=rsc(password) session.Timeout=30 set rsc=nothing response.Redirect(change.asp) 如果用户不存在,session(username)为空 % 3、（change.asp 用户信息修改页面） !-- #include file=conn.asp -- html head meta http-equiv=Content-Type content=text/html; charset=gb2312 title修改/title style type=text/css !-- body,td,th { font-size: 14px; } -- /style/head center body br % set rsc=server.createobject(adodb.recordset) sqlc=select * from info where username=session(username) and password=session(password) rsc.open sqlc,conn,1,1 nr=rsc(password) username=rsc(username) password=rsc(password) sex=rsc(sex) qq=rsc(qq) mail=rsc(mail) add=rsc(add) personalinfo=rsc(personalinfo) vv=rsc(ntime) set rsc=nothing if nr= then response.Redirect(index.asp) end if if strcomp(nr,request.Form(password))=0 then response.Write(欢迎你！request.Form(username)) response.Write(你是在vv注册的) session(username)=request.Form(username) end if if session(username)= then response.Redirect(index.asp) end if % form na