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

《asp用户注册、用户登录程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

2、@LANGUAGE="VBSCRIPT"CODEPAGE="936"%！--#includefile=security.asp--htmlheadmetahttp-equiv="Content-Type"content="text/html；charset=gb2312"title欢迎光临/title/head%ifsession("pass")"action1"then'检验在session中是否有登录成功的信息response.Redirect("logon.asp")Response.Endendif%bodyh1align="cente

3、r"/h1h1align="center"登录成功！/h1/body/html提示：在实际使用时，将上述代码插入需要控制打开的网页中即可！2.2登录网页-logon.asp功能：用户界面，以及将用户填写信息发送到检验网页-validate.asp代码：%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%htmlheadmetahttp-equiv="Content-Type"content="text/html；charset=gb2312"title注册/title/headbodyp/pp/ptablewidth="60

4、0"border="0"align="center"trtdh2align="center"用户登录/h2formname="form1"method="post"action="validate.asp"tablewidth="67%"border="1"align="center"cellspacing="0"bordercolor="#0000FF"trthwidth="25%"用户名/thtdwidth="75%"inputname="user"type="text"size="20"/td/trth密码/thtdinputname="

5、password"type="password"size="20"/td/trth附加码/thtdinputtype="text"name="otherpwd"size="20"class="button1"%dimtemprnd'随机生成附加码Randomizetemprnd=cstr(Int((9999-1000+1)*Rnd()+1000))response.Write(temprnd)%inputtype="hidden"name="reotherpwd"value="%=temprnd%"'直接将生成附加码发送至检验网页/td/trt

6、h/thtdinputtype="submit"name="Submit"value="提交"inputtype="submit"name="teset"value="重写"/td/tr/table/form/td/tr/tableh2align="center"/h2/body/html2.3检验网页-validate.asp%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%htmlheadmetahttp-equiv="Content-Type"content="text/html；charset=gb2312"tit

7、le登录网页/title/headbodyp/pp/ph2align="center"%Session.Timeout=10'限制Session中保存登录成功信息的时间dimdb'以下连上数据库，建立一个Connection对象实例dbsetdb=Server.Createobject("ADODB.Connection")db.Open"DBQ="&Server.Mappath("maindata.asa")&"；DRIVER={MicrosoftAccessDriver(*.mdb)}；"dimstrSql,rs,strSql1strSql

8、="Select*Fromuser"setrs=db.execute(strSql)dima1,a2,nam,psw,otherpwd,reother