[优质文档]asp会员注册登录以及治理系统网页实例

[优质文档]asp会员注册登录以及治理系统网页实例 asp会员注册登录以及管理系统网页实例 本文由sy675859210贡献 Result.asp(注册跳转结果，是否注册成功) Result.asp(注册跳转结 果，是否注册成功) > <% on error resume next '如果有代码错误就跳过去继续运行%> ～ <% end if end if %>

&;nbsp;	&;nbsp;	&;nbsp;
&;nbsp;	<% '创建 recordset 对象方法 1 set rst=Server.CreateObject("ADODB.recordset") rst.open "select * from [user] where u_user='"&;request.form("f_user")&;"'",conn,1,1 if rst.recordcount>0 then '如果从在这个用户名，对用户进行提示 response.Write "用户名:"&;request.form("f_user")&;"已经被占 用～请点击后退按钮 返回上一页～" rst.close set rst=nothing conn.close set conn=nothing response.End else rst.close conn.begintrans '开启数据库的事务功能 rst.open "select * from [user]",conn,1,3 rst.addnew'插入数据到 user 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf rst("u_user")=request.Form("f_user") rst("u_code")=request.Form("f_code") rst.update rst.close ' 获取刚才插入数据的自动编号字段值，即 u_id 字段的值 set rst1=conn.execute("SELECT @@IDENTITY AS uid") uid=rst1("uid") rst.open "info",conn,1,3 '错误分析检测语句 set myErrors=conn.errors if myErrors.count>0 then for i=0 to myErrors.count-1 response.Write("错误原 因:"&;myErrors.item(i).description&;"") next end if '错误 分析检测结束 if err.number<>0 then response.Write "ERR 对象 捕获错误:"&;err.description end if rst.addnew'插入数据到 info 表 rst("i_uid")=uid rst("i_name")=request.Form("f_name") rst("i_sex")=request.Form("f_sex") rst("i_age")=request.Form("f_age") rst("i_vip")=false rst.update rst.close if err.number<>0 then conn.rollbacktrans'取消之前写入数据库的 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 (写入数据出错的 情况下) %> <% else conn.committrans %> 请 登录～～	&;nbsp;
&;nbsp;	&;nbsp;	&;nbsp;

<% set rst=nothing conn.close set conn=nothing %> Login.asp(会员登陆、登陆成功、会员信息显示页面) ogin.asp (会员登陆、登陆成功、会员信息显示页面)

注册 登录 管理 会 员 登 陆 <% set rst=Server.CreateObject("adodb.recordset") if request.QueryString("act")="login" then'登录 sql="select * from [user] where u_user='"&;request.Form("f_user")&;"'" sql=sql&;"and u_code='"&;request.Form("f_code")&;"'" rst.open sql,conn,1,1 if rst.recordcount>0 then session("user")=rst("u_user") '用这个 SESSION 变量表示用户 是否已经登录 session("acc")=true else response.Write "用户名会密码错误～登陆不成功～" end if rst.close elseif request.QueryString("act")="loginout" then'退出登录 session("user")="" session("acc")=false end if %> <% if not session("acc") then %> 用户名: 密&;nbsp; 码: &;nbsp; 如果没有账户， 请注册～ <% else %> <%= session("user") %> 欢迎你再次到来～ 退出登录 <% end if %>

会 员 功 能 <% if not session("acc") then %> 对不起,您还没有 登录，不能查看会员功能!!! <% else %> 会员数据库 USER 表结构如下: <% rst.open "select * from [user]",conn,1,1 for i=0 to rst.fields.count-1 %> <% next %> 字段名 字段类型 字段数据长度 允许存储的最大数字位 <%= rst.fields(i).name %> <%= rst.fields(i).type %> <%= rst.fields(i).actualsize %> <%= rst.fields(i).precision %> <% end if %>

<% set ret=nothing conn.close set conn=nothing %> Register.asp(注册页面) (注册页面)

&;nbsp; &;nbsp; 注册页 面 &;nbsp; &;nbsp; &;nbsp; &;nbsp; &;nbsp; 请在下面填写您的注册资料， 红色*号所标示 的选项为必填项 用户名: * 密码: * 姓名: * 性别: 男 女 * 年龄: * &;nbsp;&;nbsp;&;nbsp; &;nbsp; &;nbsp; &;nbsp; &;nbsp;

db.inc.asp(数据库连接页面) (数据库连接页面) <%'字符串连接数据库方法 set conn=server.CreateObject("ADODB.CONNECTION") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Server.MapPath("sjk/fifasp.mdb") %> <% set conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER=Driver do Microsoft (*.mdb);UID=admin;PWD=;DBQ="&;Server.MapPath("sjk/fifasp.mdb") 'set conn=server.CreateObject("ADODB.Connection") 'conn.open "DSN=fifasp;UID=admin;PWD=;"%> &; Access Admin.asp(会员管理删除主页面) (会员管理删除主页面) <% set rst=Server.CreateObject("adodb.recordset") on error resume next if request.QueryString("act")="del" then'如果是删除

记录

混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载

id=request.QueryString("id") conn.begintrans 'conn.execute "delete from user where u_id="&;id 'conn.execute "delete from info where i_uid="&;id rst.open "select *from user where u_id="&;id,conn,1,3 rst.delete rst.close rst.open "select * from info where i_uid="&;id,conn,1,3 rst.delete rst.close if err.number<>0 then conn.rollbacktrans response.Write "删除会 员失败" else conn.committrans response.Write "删除会员成功" end if end if %>

&;nbsp; 会员管理 注册 登录 管理 &;nbsp; <% sql="select * from user,info where u_id=i_uid" rst.open sql,conn,1,1 while not rst.eof %> <% rst.movenext wend rst.close %> ID 用户名 姓名 性别 年龄 会员 操作 <%= rst("u_id") %> <%= rst("u_user") %> <%= rst("i_name") %> <%= rst("i_sex") %> <%= rst("i_age") %> <% if rst("i_vip") then response.Write "是" else response.Write "否" end if %> ">修改资料 "> 删除资料 &;nbsp; &;nbsp;

modify.asp(会员信息更新页面) (会员信息更新页面) <% set rst=server.CreateObject("adodb.recordset") %> <% set rst=server.CreateObject("adodb.recordset") on error resume next id=request.QueryString("id") if request.QueryString("act")="modify" then'如果是就修改记录 conn.begintrans 'sql="update user set u_user='"&;request.Form("f_user")&;"',u_code'"&;request.Form("f_code")&;"'where u_id=id 'sql1="update info set i_name='"&;request.Form("f_name")&;"',i_sex'"&;request.Form("f_sex")&;"'" 'sql1=sql1&;",i_age="&;request.Form("f_age")&;",i_vip=" 'if request.Form("f_vip")=1 then 'sql1=sql1&;"true" 'else 'sql1=sql1&;"false" 'end if 'sql1=sql1+"where i_uid="&;id 'conn.execute sql 'conn.execute sql1 rst.open "select * from user where u_id="&;id,conn,1,3 rst("u_user")=request.Form("f_user") rst("u_code")=request.Form("f_code") rst.update rst.close rst.open "select * from info where i_uid="&;id,conn,1,3 rst("i_name")=request.Form("f_name") rst("i_sex")=request.Form("f_sex") rst("i_age")=request.Form("f_age") if request.Form("i_vip")=1 then rst("i_vip")=true else rst("i_vip")=false end if rst.update rst.close if err.number<>0 then conn.rollbacktrans response.Write "修改会 员失败" else conn.committrans response.Write "修改会员成功" end if end if %>

&;nbsp; &;nbsp; &;nbsp; &;nbsp; 返回会员列表 <% rst.open"select * from user where u_id="&;request.QueryString("id"),conn,1,1 %> "> <% rst.close rst.open "select * from info where i_uid="&;request.QueryString("id"),conn,1,1 %> <% rst.close %> 请在下面修改会员资料， 红色*号所标示的选 项为必填项 用户名: " type="text" id="f_user" /> * 密码: " type="text" id="f_code"/> * 姓名: " type="text" id="f_name"/> * 性别: "> 男 "> 女 * 年龄: " id="f_age" size="8" /> * 是否会员: /> 是 /> 否 * &;nbsp;&;nbsp;&;nbsp; &;nbsp;

<% set rst=nothing conn.close set conn=nothing %>