asp会员注册登录以及管理系统网页实例
Result.asp
注册结果
<% on error resume next '如果有代码错误就跳过去继续运行%>
<%
set rst=nothing
conn.close
set conn=nothing
%>
Login.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
注册页面
db.inc.asp
<%
'字符串连接数据库方法
set conn=server.CreateObject("ADODB.CONNECTION") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("sjk/fifasp.mdb")
%>
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
%>
|
会员管理 |
注册
登录
管理 |
|
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
%>
|
|
|
|
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
%>
| |
|
|
返回会员列表
<%
rst.open"select * from user where u_id="&request.QueryString("id"),conn,1,1
%>
|
|
|
<%
set rst=nothing
conn.close
set conn=nothing
%>