asp程序实现简单的注册，登录网页的源代码_服务器知识

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

<html>

<head>

<!--

body,td,th {

font-family: 宋体

font-size: 14px

}

-->

</style>

</head>

<body>

<p>会员注册系统</p>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</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>

<!--

body,td,th {

font-size: 14px

}

-->

</style></head>

<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

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

<% 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>

<!--

body,td,th {

font-family: 宋体

font-size: 14px

}

-->

</style>

</head>

<body>

用户注册<br>

=request.QueryString("msg")

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

*</td>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

</form>

</center>

</body>

</html>

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

<html>

<head>

</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>

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.0data source="

'创建记录对象

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

7，（userinfo.mdb ACCESS 数据库）

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

表名：info

字段名称数据类型

id 自动编号

username 文本

password 文本

sex 文本

quest 文本

qq 文本

mail 文本

personalinfo 文本

ntime 文本

楼上的只是从源码照复制的，其实没什么用处。下面讲一下最简单的asp注册页面主要分成3部分，第一个是数据填写，第二个是数据处理，第三个是数据库。

首先要用ACCESS建立一个数据库，名为：DB.MDB这里的名称是随意的。里面建立一个表，叫做zhuce吧，这个表需要建立2个列，一个是ID 设置为自动编号，一个是w_name设置为文本。

dim DB, ConnStr

DB = "db.mdb"

ConnStr = "Driver={Microsoft Access Driver (*.mdb)}DBQ=" &Server.MapPath(DB)

Set conn = Server.CreateObject("ADODB.Connection")

conn.open ConnStr

if request.Form("action")="new" then

sql="select * from zhuce"

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

rs.open sql,conn,1,3

rs.addnew

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

rs.update

rs.close

set rs=nothing

end if

<label>姓名

</label>

<label>

</label>

</form>

上述代码保存为index.asp 就可以上面就是最简单的注册页面了，复杂的都是从这里扩展的。

1、数据库连接文件起名为：Conn.asp 代码如下：

db1="database/data.mdb"

Set Conn= Server.CreateObject("ADODB.Connection")

cttr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.MapPath(db1)

Conn.Open cttr

if err then

response.Write("错误提示：数据库连接出错！请与管理员联系！")

end if

'-- 释放数据库连接

Sub CloseConn()

Conn.close

set Conn=nothing

End Sub

先写一个表单，将用户名和密码写入到数据库，然后就可以登录验证了。

2、注册页面文件名：Addadmin.asp 代码如下：

Dim username,userpwd,action

action=request.Form("action")

username=request.Form("usernames")

userpwd=request.Form("userpwd")

'将用户信息写入数据库

if action="提交" and username<>"" and userpwd<>"" then

Conn.Execute("INSERT INTO 数据库表名 (username,userpwd) values ('"&username&"','"&userpwd&"')

end if

Call CloseConn() '释放数据库连接

注册用户名：<input name=usernames type=text> <br>

登录密码：<input name=userpwd type=password><br>

</form>

3、登录一样，写一个表单，把接收的数据和数据库里的数据进行比较，正确的就通过，反之亦反。验证一般用session变量，或者用cookies也可以但需要加密。另外注册的密码需要验证两次，或者用MD5加密等等。

欢迎分享，转载请注明来源：夏雨云

原文地址:https://www.xiayuyun.com/zonghe/395347.html

asp程序实现简单的注册，登录网页的源代码

发表评论

评论列表（0条）