[优质文档]asp会员注册登录以及治理系统网页实例
asp会员注册登录以及管理系统网页实例
本文由sy675859210贡献
Result.asp(注册跳转结果,是否注册成功) Result.asp(注册跳转结
果,是否注册成功)
>
注册结果 <% on error resume next '如果有代码错误就跳过去继续运行%>
<% 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 %> <% 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 %> <%= rst.fields(i).name %> | <%= rst.fields(i).type %> | <%= rst.fields(i).actualsize %> | <%= rst.fields(i).precision %> | <% next %> <% end if %>
| | | |
<% set ret=nothing conn.close set conn=nothing %>
Register.asp(注册页面) (注册页面)
注册页面
&;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; | ID | 用户名 | 姓名
| 性别 | 年龄 | 会员
| 操作 | <% sql="select * from user,info where u_id=i_uid" rst.open sql,conn,1,1 while not rst.eof %> <%= 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 %> | ">修改资料 "> 删除资料
| <% rst.movenext wend rst.close %> | &;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 %> | &;nbsp; | |
<% set rst=nothing conn.close set conn=nothing %>