您的位置：首页 > 编程语言 > ASP

ASP用户登录注册代码

2013-10-30 14:04 567 查看

转载一下，谢谢！原文地址：ASP用户登录注册代码作者：豆豆

1，（index.asp 用户登陆页面）



<html>

<head>

<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">

<title>会员</title>

<style type="text/css">



</style>

</head>

<body>

<center>

<p>会员注册系统
4000
</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="30"><input name="username"
type="text" id="username"
size="15"></td>

</tr>

<tr>

<td height="30">密
码:</td>

<td height="30"><input
name="password" type="password" id="password"
size="15"></td>

</tr>

<tr>

<td colspan="2"
align="center"><input type="submit"
name="Submit" value="确定">

<input type="reset" name="Submit"
value="重置"></td>

</tr>

<tr>

<td colspan="2"><a
href="reg.asp"
target="_self">注册</a></td>

</tr>

</table>

</form>

</center>

</body>

</html>

2，（login.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 用户信息修改页面）



<html>

<head>

<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">

<title>修改</title>

<style type="text/css">



</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 name="form1" method="post"
action="change.asp?ac=ch">

<table width="39%" height="105" border="0"
>

<tr>

<td width="27%"
height="30">用户名：</td>

<td width="73%"
height="30"><input name="username"
type="text" id="username"
value="<%=username%>">

*</td>

</tr>

<tr>

<td height="30">密
码：</td>

<td height="30"><input
name="password" type="text" id="password"
value="<%=password%>">

*</td>

</tr>

<tr>

<td height="30">性
别：</td>

<td height="30"><input
name="sex" type="text" id="sex"
value="<%=sex%>"></td>

</tr>

<tr>

<td
height="30">QQ：</td>

<td height="30"><input
name="qq" type="text" id="qq"
value="<%=qq%>"></td>

</tr>

<tr>

<td
height="30">Mail：</td>

<td height="30"><input
name="mail" type="text" id="mail"
value="<%=mail%>"></td>

</tr>

<tr>

<td height="30">地
址：</td>

<td height="30"><input
name="add" type="text" id="add"
value="<%=add%>"></td>

</tr>

<tr>

<td>介绍</td>

<td><textarea
name="personalinfo" cols="30" rows="6"
id="personalinfo"><%=personalinfo%></textarea></td>

</tr>

<tr>

<td>
</td>

<td><input
type="submit" name="Submit" value="修改">

<a href="change.asp?se=y"
target="_self">退出系统</a></td>

<% if strcomp(request.QueryString("se"),"y")=0
then

session("username")=""

response.Redirect("index.asp")

end if

%>

</tr>

</table>

</form>

<%

if strcomp(request.QueryString("ac"),"ch")=0 then

set rs=server.createobject("adodb.recordset")

sql="select * from info where
username='"&session("username")&"'"

rs.open sql,conn,1,3

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs.update

set rs=nothing

response.Write("修改完成！")

end if

%>

</body>

</center>

</html>

4，（reg.asp 新用户注册页面）

<html>

<head>

<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">

<title>用户注册</title>

<style type="text/css">



</style>

</head>

<body>

<center>

用户注册<br>

<%

=request.QueryString("msg")

%>

<form name="form1" method="post"
action="addnewdata.asp?ac=adduser">

<table width="39%" height="105" border="0"
>

<tr>

<td width="27%"
height="30">用户名：</td>

<td width="73%"
height="30"><input name="username"
type="text" id="username">

*</td>

</tr>

<tr>

<td
height="30">密码：</td>

<td height="30"><input
name="password" type="password" id="password">

*</td>

</tr>

<tr>

<td
height="30">确定密码：</td>

<td height="30"><input
name="password2" type="password"
id="password2">

*</td>

</tr>

<tr>

<td
height="30">性别：</td>

<td height="30"><input
name="sex" type="text"
id="sex"></td>

</tr>

<tr>

<td
height="30">QQ：</td>

<td height="30"><input
name="qq" type="text"
id="qq"></td>

</tr>

<tr>

<td
height="30">Mail：</td>

<td height="30"><input
name="mail" type="text"
id="mail"></td>

</tr>

<tr>

<td
height="30">地址：</td>

<td height="30"><input
name="add" type="text"
id="add"></td>

</tr>

<tr>

<td>个人介绍</td>

<td><textarea
name="personalinfo" cols="30" rows="6"
id="personalinfo"></textarea></td>

</tr>

<tr>

<td>
</td>

<td><input
type="submit" name="Submit"
value="提交"></td>

</tr>

</table>

</form>

</center>

</body>

</html>

5，（addnewdata.asp 新用户注册数据处理文件）



<html>

<head>

<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">

<title>成功</title>

</head>

<body>

<%

ac=request.QueryString("ac")

msg="注册错误信息"

if request.Form("username")="" then

msg=msg&"<br>"&"用户名不能为空"

end if

if
strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0
then

msg=msg&"<br>"&"两次密码输入不同"

end if

if len(request.Form("password"))<6 then

msg=msg&"<br>"&"密码太简单"

end if

if strcomp(msg,"注册错误信息")>0 then

response.Redirect("reg.asp?msg="&msg)

end if

if ac="adduser" then

set rsc=server.createobject("adodb.recordset")

sql="select * from info where
username='"&request.Form("username")&"'"

rsc.open sql,conn,1,1

ck=rsc("username")

set rsc=nothing

if ck<>"" then

msg=msg&"<br>"&"用户名被人注册"

response.Redirect("reg.asp?msg="&msg)

end if

dsql="select * from info where id is null"

set rs=server.createobject("adodb.recordset")

rs.open dsql,conn,1,3

rs.addnew

rs("username")=request.Form("username")

rs("password")=request.Form("password")

rs("mail")=request.Form("mail")

rs("sex")=request.Form("sex")

rs("qq")=request.Form("qq")

rs("add")=request.Form("add")

rs("personalinfo")=request.Form("personalinfo")

rs("ntime")=now

rs.update

set rs=nothing

%>

<center>

<a href="index.asp"
target="_self">注册成功,点击登陆</a>

</center>

<%

end if

%>

</body>

</html>

6，（conn.asp 数据库连接文件）

<%

'连接数据库开始

dim conn,rs,sql

on error resume next

dbpath=server.mappath("userinfo.mdb")

set conn=server.createobject("adodb.connection")

conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data
source="&dbpath

'创建记录对象

set rs=server.createobject("adodb.recordset")

%>

7，（userinfo.mdb ACCESS 数据库）

在ACCESS中建一个表，然后在这个表中建立字段名称

表名：info

字段名称数据类型

id 自动编号

username 文本

password 文本

sex 文本

quest 文本

qq 文本

mail 文本

personalinfo 文本

ntime 文本

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航