asp用户注册、用户登录程序

1、asp用户注册、用户登录程序asp用户注册、用户登录程序2010-06-20 21：161说明本文介绍，一个用ASP编写的网站的注册、登录系统。用户注册时，须输入用户名、密码等个人信息；下一次访问时，用该用户名和密码登录，登录后成功后，方可察看有关网页内容。如果没有登录直接访问其他页面，则重定向回注册页面。该系统中，包含了检验和加密等功能，具有较好的实用性。2网页功能与代码2.1登录控制网页-default.asp功能：检查是否通过用户名、密码验证。如果，已经通过，显示"登录成功"，如果，没有通过，则重定向至登录网页-logon.asp。代码：%LANGUAGE="

2、;VBSCRIPT"CODEPAGE="936"%！-#include file=security.asp-html head meta http-equiv="Content-Type"content="text/html；charset=gb2312"title欢迎光临/title/head%if session("pass")"action1"then'检验在session中是否有登录成功的信息response.Redirect("logon.asp"

3、)Response.End end if%body h1 align="center"/h1 h1 align="center"登录成功！/h1/body/html提示：在实际使用时，将上述代码插入需要控制打开的网页中即可！2.2登录网页-logon.asp功能：用户界面，以及将用户填写信息发送到检验网页-validate.asp代码：%LANGUAGE="VBSCRIPT"CODEPAGE="936"%html head meta http-equiv="Content-Type"conten

4、t="text/html；charset=gb2312"title注册/title/head body p/p p/p table width="600"border="0"align="center"tr td h2 align="center"用户登录/h2 form name="form1"method="post"action="validate.asp"table width="67%"border=&qu

5、ot;1"align="center"cellspacing="0"bordercolor="#0000FF"tr th width="25%"用户名/th td width="75%"input name="user"type="text"size="20"/td/tr th密码/th td input name="password"type="password"size="

6、20"/td/tr th附加码/th td input type="text"name="otherpwd"size="20"class="button1"%dim temprnd'随机生成附加码Randomize temprnd=cstr(Int(9999-1000+1)*Rnd()+1000)response.Write(temprnd)%input type="hidden"name="reotherpwd"value="%=temprnd%

7、"'直接将生成附加码发送至检验网页/td/tr th/th td input type="submit"name="Submit"value="提交"input type="submit"name="teset"value="重写"/td/tr/table/form/td/tr/table h2 align="center"/h2/body/html 2.3检验网页-validate.asp%LANGUAGE="VBSCRIPT

8、"CODEPAGE="936"%htm lhead meta http-equiv="Content-Type"content="text/html；charset=gb2312"title登录网页/title/head body p/p p/p h2 align="center"%Session.Timeout=10'限制Session中保存登录成功信息的时间dim db'以下连上数据库，建立一个Connection对象实例db set db=Server.Createobject(&q

9、uot;ADODB.Connection")db.Open"DBQ="&Server.Mappath("maindata.asa")&"；DRIVER=Microsoft Access Driver(*.mdb)；"dim strSql,rs,strSql1 strSql="Select*From user"set rs=db.execute(strSql)dim a1,a2,nam,psw,otherpwd,reotherpwd a1=Request.Form("user&qu

10、ot;)a2=Request.Form("password")otherpwd=Request.Form("otherpwd")reotherpwd=Request.Form("reotherpwd")do while not rs.Eof nam=rs("user_name")rem利用decrypt函数还原用户密码psw=decrypt(rs("password")if reotherpwd otherpwd then Response.Write"附加码不对！p"Res

11、ponse.Write"a href='logon.asp'重新登录/a"Response.End end if if a1=nam and a2=psw then session("pass")="action1"'将登录成功的信息保存在session中，以便备查(如，default.asp中response.Redirect("default.asp")'如果用户名、密码正确，登录成功，引导到另一张网页Response.End end if rs.movenext loop Re

12、sponse.Write"用户信息不正确p"Response.Write"a href='logon.asp'重新登录/a"%/h2/body/html 2.4注册网页-login.asp功能：用户注册界面，且将注册信息发送至，检验及添加至数据库的网页-insert.asp代码：%LANGUAGE="VBSCRIPT"CODEPAGE="936"%html head meta http-equiv="Content-Type"content="text/html；cha

13、rset=gb2312"title注册/title/head body p/p p/p table width="600"border="0"align="center"tr td h2 align="center"用户注册/h2 form name="form1"method="post"action="insert.asp"table width="67%"border="1"align="c

14、enter"cellspacing="0"bordercolor="#0000FF"tr th width="25%"用户名/th td width="75%"input type="text"name="user"*必须填写/td/tr th密码/th td input type="password"name="password"*/td/tr th width="25%"确认密码/th td width

15、="75%"input type="password"name="password2"*/td/tr th width="25%"性别/th td width="75%"input type="radio"name="sex"value="男"input type="radio"name="sex"value="女"女/td/tr th width="25%"

16、;爱好/th td width="75%"input type="checkbox"name="love"value="音乐"音乐input type="checkbox"name="love"value="计算机"计算机/td/tr th width="25%"职业/th td width="75%"select name="career"size="1"option val

17、ue=""selected请选择/option option value="教育业"教育业/option option value="金融业"金融业/option option value="其他"其他/option/select/td/tr th width="25%"简介/th td width="75%"textarea name="introduction"cols="40"rows="2"wrasp=&qu

18、ot;soft"/textarea/td/tr th/th td input type="submit"name="Submit"value="提交"input type="submit"name="teset"value="重写"/td/tr/table/form/td/tr/table h2 align="center"/h2/body/html 2.5检验注册信息，将合格信息添加数据库网页-insert.asp功能：检验注册信息是否合格。如

19、，用户名是否已经注册过；密码、确认密码是否相同。代码：%LANGUAGE="VBSCRIPT"CODEPAGE="936"%！-#include file=security.asp-html head meta http-equiv="Content-Type"content="text/html；charset=gb2312"title注册结果/title/head body p/p p/p h2 align="center"%dim db'以下连上数据库，建立一个Connection

20、对象实例db set db=Server.Createobject("ADODB.Connection")db.Open"DBQ="&Server.Mappath("maindata.asa")&"；DRIVER=Microsoft Access Driver(*.mdb)；"dim strSql,rs,strSql1 strSql="Select*From user"set rs=db.execute(strSql)dim a1,a2,b2,c2,a3,a4,a5,a6,i a

21、1=Request.Form("user")a2=Request.Form("password")b2=Request.Form("password2")a3=Request.Form("sex")a4=Request.Form("love")a5=Request.Form("career")a6=Request.Form("introduction")'下面是检查用户名和密码是否填写完整if trim(a1)=""or tri

22、m(a2)=""then Response.Write"对不起，用户名、密码必须填写！p"Response.Write"a href='login.asp'重填/a"Response.End end if'下面将注册用户名，逐条与数据库是记录的用户名对比。如果数据库中已经有了，提示用户不能再注册。do while not rs.Eof i=rs("user_name")if trim(a1)=trim(i)then Response.Write"用户名重名p"Respon

23、se.Write"a href='login.asp'重填/a"Response.End end if rs.movenext loop'下面是检查密码与确认密码是否相同if a2 b2 then Response.Write"密码确认不正确p"Response.Write"a href='login.asp'重填/a"Response.End end if'下面是将注册信息添加到数据库中。利用encrypt()加密用户密码。c2=encrypt(a2)strsql="inse

24、rt into user(user_name,password,sex,love,career,introduction,submit_date)Values('"&a1&"','"&a2&"','"&a3&"','"&a4&"','"&a5&"','"&a6&"',#"&now()&"#)"db.Execute(strsql)%/h2 h2 align="center"%Response.Write"注册成功！p请记牢用户名和密码！"%/h2 palign="center"class="base-4"/p table width="121"height="35"border="0"align="center