代码部分:一.(Manager.asp用户管理)!--#includefile=conn.asp--!--#includefile=sessionck.asp--!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=gb2312/styletype=text/css!--body{background-color:#CCCCFF;}--/style/headbodytablewidth=640height=35border=1cellpadding=0cellspacing=0trtdbackground=adduser.htmldivalign=centerahref=adduser.html用户添加/a/div/tdtddivalign=centerahref=manageuser.asp用户管理/a/div/td/tr/tablep /ptablewidth=640height=35border=1cellpadding=0cellspacing=0trtdwidth=101align=centerid/tdtdwidth=119align=centerusername/tdtdwidth=177align=centerpassword/tdtdwidth=233align=center删除 修改/td/tr/table%exec=select*fromusersetrs=server.createobject(adodb.recordset)rs.openexec,conn,1,3dowhilenotrs.eof%tablewidth=640height=35border=1cellpadding=0cellspacing=0trtdwidth=101align=center%=rs(id)%/tdtdwidth=119align=center%=rs(username)%/tdtdwidth=177align=center%=rs(password)%/tdtdwidth=233align=centerahref=deluser.asp?id=%=rs(id)%class=h12删除/aahref=edituser.asp?id=%=rs(id)%class=h12修改/a/td/tr/table%rs.movenextlooprs.closesetrs=nothing%p /p/body/html二.(Adduser.asp用户添加)!--#includefile=conn.asp--%x=request.Form(username)y=request.Form(password)exec=select*fromusersetrs=server.createobject(adodb.recordset)rs.openexec,conn,1,3rs.addnewrs(username)=xrs(password)=yrs.updateresponse.Write添加成功!!rs.closesetrs=nothingconn.closesetconn=nothing%三.(editor.asp用户修改编辑)!--#includefile=conn.asp--!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=gb2312//headbody%id1=request.QueryString(id)exec=select*fromuserwhereid=&id1setrs=server.createobject(adodb.recordset)rs.openexec,conn,1,3%formid=form1name=form1method=postaction=saveedit.asp?id=%=id1%tablewidth=376height=174border=1align=centercellpadding=0cellspacing=0trtdwidth=128bgcolor=#FF99CC用户名/tdtdwidth=242bgcolor=#FF99CClabelinputname=usernametype=textid=usernamevalue=%=rs(username)%//label/td/trtrtdbgcolor=#FF99CC密码/tdtdbgcolor=#FF99CClabelinputname=passwordtype=textid=passwordvalue=%=rs(password)%//label/td/trtrtdheight=15colspan=2bgcolor=#FF99CClabel inputtype=submitname=Submitvalue=修改//labellabel inputtype=resetname=Submit2value=重置//label/td/tr/table/form四.(deluser.asp用户的删除)!--#includefile=conn.asp--%id1=request.QueryString(id)exec=select*fromuserwhereid=&id1setrs=server.createobject(adodb.recordset)rs.openexec,conn,1,3rs.deleters.updateresponse.Write删除成功!!rs.closesetrs=nothing%五.(login.asp用户登陆)!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=gb2312/styletype=text/css!--body{background-color:#99FFFF;}.STYLE2{color:#000000;font-size:18px;font-family:TimesNewRoman,Times,serif;font-weight:bold;}.STYLE3{font-family:TimesNewRoman,Times,serif;color:#0033FF;font-size:36px;font-weight:bold;}--/style/headbodyformid=form1name=form1method=postaction=check.aspp /ppalign=centerclass=STYLE3用户登陆/pp /ptablewidth=482height=299border=0align=centercellpadding=0cellspacing=0bgcolor=#9966FFtrtdwidth=152divalign=centerspanclass=STYLE2用户名/span/div/tdtdwidth=330labelinputname=usernametype=textid=username//label/td/trtrtdclass=STYLE2divalign=center密码/div/tdinputname=passwordtype=textid=password//label/td/trtrtd 验证码:/tdtdlabelinputname=codetype=textid=codevalue=%IfGetCode=9999ThenResponse.Write9999%size=10maxlength=4/imgsrc=../GetshopxpCode.aspheight=22/label/td/trtrtdcolspan=2 labelinputtype=submitname=Submitvalue=提交/ /labellabelinputtype=resetname=Submit2value=重置//label/td/table/form/body/html六.(saveedit.asp保存修改)!--#includefile=conn.asp--%x=request.Form(username)y=request.Form(password)id=request.QueryString(id)exec=select*fromuserwhereid=&idsetrs=server.createobject(adodb.recordset)rs.openexec,conn,1,3rs(username)=xrs(password)=yrs.updateresponse.Write修改成功!!rs.closesetrs=nothingconn.closesetconn=nothing%七.(checklogin.asp登陆验证)%FunctionCheckPermission()IfSession(user)thencheckPermission=TRUEElsecheckPermission=FALSEEndifEndFunctionDimTmpadminTmpadmin=CheckPermission()IfTmpadminTRUEthenresponse.redirectlogin.aspEndif%八.(Sessionck.asp登陆权限)%ifsessi