asp博客源码html5,asp做注册页面代码（修改）

1，(index.asp

用户登陆页面)

会员

会员注册系统

action="login.asp">

height="30">用户名:	height="30"> type="text" id="username" size="15">
height="30">密码:	name="password" type="password" id="password" size="15">
align="center"> name="Submit" value="确定"> value="重置">
href="reg.asp" target="_self">注册

2，(login.asp

用户数据处理文件)

username = Request.Form("userName")

password = Request.Form("password")

if

username = "" or password = "" then

response.Write("用户名或密码不能为空")

response.End()

end if

'打开数据库判断用户是否存在,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

if

rsc.eof then

Response.Write("用户名或密码错误")

Response.End()

else

session("uName")=rsc("username")

session("uID")=rsc("id")

end

if

rsc.close

set

rsc=nothing

response.Redirect("change.asp")

'如果用户不存在,session("username")为空

%>

3，(change.asp

用户信息修改页面)

修改

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

%>

action="change.asp?ac=ch">

>

height="30">用户名：

height="30">

type="text" id="username"

value="">

*

密 码：

name="password" type="text" id="password"

value="">

*

性 别：

name="sex" type="text" id="sex"

value="">

height="30">QQ：

name="qq" type="text" id="qq"

value="">

height="30">Mail：

name="mail" type="text" id="mail"

value="">

地 址：

name="add" type="text" id="add"

value="">

介绍

name="personalinfo" cols="30" rows="6"

id="personalinfo">

type="submit" name="Submit" value="修改">

target="_self">退出系统

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

session("username")=""

response.Redirect("index.asp")

end if

%>

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

%>

4，(reg.asp

新用户注册页面)

用户注册

用户注册

 带*为必填项

action="addnewdata.asp?ac=adduser">

bordercolor="#99CCFF" >

height="30">

align="center">用户名：

height="30">

type="text" id="username">

*用户名应为6-12位

align="center">密码：

name="password" type="password" id="password">

*密码应为6-18位

align="center">确定密码：

name="password2" type="password"

id="password2">

*请在此输入密码

align="center">性别：

type="radio" name="Sex" value="男">男

type="radio" name="Sex"

value="女">女

align="center">QQ：

name="qq" type="text"

id="qq">

align="center">Mail：

name="mail" type="text"

id="mail">

align="center">地址：

name="add" type="text"

id="add">

align="center">个人介绍

name="personalinfo" cols="30" rows="6"

id="personalinfo">

=request.QueryString("msg")

%>

type="submit" name="Submit"

value="提交">

5，(addnewdata.asp

新用户注册数据处理文件)

成功

ac=request.QueryString("ac")

msg="注册错误信息："

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

msg=msg&"
"&"*用户名不能为空"

end if

if len(request.Form("username"))<6 and

len(request.Form("username"))>0 then

msg=msg&"
"&"*用户名不足6位"

end if

if len(request.Form("username"))>12 then

msg=msg&"
"&"*密码超过18位"

end if

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

msg=msg&"
"&"*密码不能为空"

end if

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

msg=msg&"
"&"*确认密码密码不能为空"

end if

if

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

then

msg=msg&"
"&"*两次密码输入不同"

end if

if

len(request.Form("password"))<6 and

len(request.Form("password"))<>0

then

msg=msg&"
"&"*密码不足6位"

end if

if

len(request.Form("password"))>18 then

msg=msg&"
"&"*密码超过18位"

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&"
"&"用户名被人注册"

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

%>

target="_self">注册成功,点击登陆

end if

%>

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 文本