asp注册登陆代码

html-css028

asp注册登陆代码,第1张

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

<!-- #include file="conn.asp" -->

<!-- blog.soowooo.cn 悠悠长假期 -->

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">

<title>会员</title>

<style type="text/css">

<!--

body,td,th {

font-family: 宋体

font-size: 14px

}

-->

</style>

</head>

<body>

<center>

<p>会员注册系统</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 用户数据处理文件）

<!-- #include file="conn.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 用户信息修改页面）

<!-- #include file="conn.asp" -->

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=gb2312">

<title>修改</title>

<style type="text/css">

<!--

body,td,th {

font-size: 14px

}

-->

</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/htmlcharset=gb2312">

<title>用户注册</title>

<style type="text/css">

<!--

body,td,th {

font-family: 宋体

font-size: 14px

}

-->

</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 新用户注册数据处理文件）

<!-- #include file="conn.asp" -->

<html>

<head>

<meta http-equiv="Content-Type" content="text/htmlcharset=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.0data source="&dbpath

'创建记录对象

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

%>

7，（userinfo.mdb ACCESS 数据库）

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

表名：info

字段名称 数据类型

id 自动编号

username 文本

password 文本

sex 文本

quest 文本

qq 文本

mail 文本

personalinfo 文本

ntime 文本

<html xmlns="http://www.w3.org/1999/xhtml"><head>

 <meta http-equiv="Content-Type" content="text/html charset=utf-8">

 <title>贵美商城</title>

 <link rel="stylesheet" type="text/css" href="css/global.css">

 <link rel="stylesheet" type="text/css" href="css/layout.css">

<script type="text/javascript">

// snameCheck() && passCheck()

function validateform(){

if(snameCheck() && passCheck()) 

   return true

 else

   return false

}

// Screen Name Validation

function snameCheck(){

var sname = document.getElementsByName("sname")[0].value

var illegalChars = /\W/

if(sname.length != 0){

if(illegalChars.test(sname)){

document.getElementById("passMsg").innerHTML.replace(/'会员名无效'/,'')

    document.getElementById("passMsg").innerHTML='会员名无效'

document.getElementsByName("sname")[0].select()

return false

}

}

else

{

document.getElementById("userMsg").innerHTML.replace(/'是否忘记输入会员名？'/,'')

 document.getElementById("userMsg").innerHTML='是否忘记输入会员名？'

document.getElementsByName("sname")[0].focus()

return false

}

if(sname!=="zhangsan"){   //验证会员名必须为张三

document.getElementById("userMsg").innerHTML.replace(/'是否输入的会员名有错？'/,'')

  document.getElementById("userMsg").innerHTML='是否输入的会员名有错？'

document.getElementsByName("sname")[0].focus()

return false

}

return true

}

function passCheck(){

var userpass = document.getElementsByName("pass")[0].value

var illegalChars = /[\W_]/// allow only charactors and numbers

// Check if Password field is blank.

if(userpass == ""){

document.getElementById("passMsg").innerHTML.replace(/'未输入密码 \n" + "请输入密码'/,'')

    document.getElementById("passMsg").innerHTML='未输入密码 \n" + "请输入密码'

document.getElementsByName("pass")[0].focus()

return false

}

// Check if password length is less than 6 charactor.

if(userpass.length < 6){

document.getElementById("passMsg").innerHTML.replace(/'密码必须多于或等于 6 个字符。\n'/,'')

    document.getElementById("passMsg").innerHTML='密码必须多于或等于 6 个字符。\n'

document.getElementsByName("pass")[0].focus()

return false

}

//check if password contain illigal charactors.

else if(illegalChars.test(userpass)){

document.getElementById("passMsg").innerHTML.replace(/'密码包含非法字符'/,'')

    document.getElementById("passMsg").innerHTML='密码包含非法字符'

document.getElementsByName("pass")[0].select()

return false

}

if(userpass!=="123456"){    //验证密码必须为123456

  document.getElementById("passMsg").innerHTML.replace(/'密码错误，请重新输入！'/,'')

    document.getElementById("passMsg").innerHTML='密码错误，请重新输入！'

document.getElementsByName("pass")[0].focus()

return false

}

return true

}

</script> 

<script type="text/javascript" charset="utf-8" src="http://cdn.gwdang.com/js/gwdang-notifier-bdext.js"></script></head>

<body>

<div id="container">

<iframe id="header" src="header.htm" width="980" height="136" frameborder="0" scrolling="no"></iframe>

<form action="login_success" method="post">

<div class="login">

<ul class="form f_l">

<h1><img src="images/logintitle.gif" alt="会员登录"></h1>

<li class="login_list"><label>会员名：</label><input type="text" name="login">（可包含 a-z、0-9 和下划线）</li>

<li class="login_list"><label>密&nbsp&nbsp&nbsp码：</label><input type="text" name="pwd">（至少包含 6 个字符）</li>

<li class="a_c"><img src="images/login.gif" alt="登录"></li>

<li class="desc">δ&nbsp&nbsp<a href="#">什么是安全登录</a>。</li>

<li class="desc">δ&nbsp&nbsp香港会员（繁体中文用户）由此<a href="#">登入</a></li>

<li class="desc">δ&nbsp&nbsp<a href="#">密码安全贴士</a>。</li>

<li class="desc">δ&nbsp&nbsp防止病毒或者木马窃取您的账户信息，<a href="#">在线检查</a>您的电脑是否安全。</li>

</ul>

<h1><img src="images/register.gif" alt="注册会员"></h1>

<ul class="aside f_l">

<li class="regpic"><span>便宜有好货！</span>超过7000万件商品任您选。</li>

  <li class="regpic regpic2"><span>买卖更安全！</span>交易超安全。</li>

<li class="regpic regpic3"><span>免费开网店！</span>轻松赚钱交友。</li>

<li class="regpic regpic4"><span>超人气社区！</span>彩活动每一天</li>

<li class="a_c"><a href="#"><img src="images/registernow.gif" alt="现在就注册"></a></li>

<ul class="reged">

<li class="regpic regpic5">您已经是会员？<a href="#">由此登入</a></li>

<li class="regpic regpic6">繁体中文用户由此<a href="#">注册</a></li>

</ul>

</ul>

</div>

</form>

<iframe id="footer" src="footer.htm" width="980" height="136" frameborder="0" scrolling="no"></iframe>

</div> <!--container end-->

<div class="_bd_ext_tip" style="visibility: hidden"><span class="_bd_ext_search">百度一下</span><span class="_bd_ext_open">打开链接</span><span class="_bd_ext_copy">复制</span></div></body></html>