设login为登陆页面login1为login所提交的页面代码验证页面，login1里的代码 开库 lt！#include file=quotconnquot lt 先接login页面的值 admin_name这个是用户名=serverencodetrimrequestquotadmin_name这个是login的；1建立一个数据库，名称Servemdb，然后建立一个表UserInf，最后建立三个字段UserName用户名，PassWord密码，Address地址 2然后赋值下面的代码，保存为一个页面，例如regasp lt%@LANGUAGE=quotVBSCRIPTquot CODE。

用vbscript语言检查用户名符合要求再提交表单 ltsctipt language=vbscript sub button_onclick if lendocumentallquot用户名的控件名quotlt你控制名的长度 then mdgbox quot你的注册用户名过短，请从新输入！quotexit sub else f；textquot name=quotuaddressquot ltfrom 注1connasp 为链接数据库文件，不懂的再百度一下asp+access 数据库链接方法 2假设字段名分别为unameusexuaddress。

rsopen sql，conn，1，3 if rsrecordcount 0 then responsewrite quotalert#39该用户名已被注册！#39historygo1quotresponseend #39注释这里说明只要账户已被注册，就返回原页面，然后responseend end if 改成这；If rsBOF Then 当没找到这个数据时应该能注册 rsclose alertquot用户 lt%=no1% 已经被人使用！quot* windowlocation=quotwriter_to_accessaspquot* 而你上面的语句是说当studentno=#39quot no1 quot#39quot， 为假时。

asp用户注册界面代码

regasp注册页面lt！开始 lt！#include file=quot资料库连接页面aspquot 用户名 密码 性别 男 女 lt。

在当前页面目录建立数据库usernamemdb，再建个user表，根据注册页面内容创建字段注册页registerasp如下 注册页面 lt！ body margintop 0pxmarginbottom 0pxbackgroundimage urlbackgroundrepeat。

#39如果存在这个用户名，对用户进行提示 responsewrite quot用户名quot requestformquotf_userquot quot 已经被占用请点击后退按钮返回上一页quotrstclose set rst=nothing connclose set conn=nothing responseend else。

用户注册代码html

1、如果 BOF 或 EOF 属性为 True，则没有当前记录if notrseof and rsbof 当eof和bof 有且只一个为false的时候notrseof and rsbof 为true将会执行 responsewritequot您注册的用户名已经被注册quot但是实际上。

2、在Button1_Click的方法体中写注册的代码 1获取用户在页面上录入的值 string userName=string userPwd=2通过录入的值拼凑一条insert语句所谓注册，就是给数据库的用户表。

3、#39regasp 用户注册 lt！ body，td，th fontfamily 宋体fontsize 14px 用户注册 lt =requestQueryStringquotmsgquot。

4、用户注册functionChkFieldsif==quotquotaler 用户注册 function ChkFields if ==quotquot alertquot请填写您的密码！quot。

5、#39第二个页面registasp 用户注册页面 lt！#include file=quotconnaspquot lt if lentrimrequestquotusernamequot6 and lentrimrequestquotpasswordquot6 then set rs=serverCreateObjectquotadodbrecordsetquot。

6、lt%@LANGUAGE=quotVBSCRIPTquot% lt！#include file=quotConnectionsshopaspquot lt Dim MM_editAction MM_editAction = CStrRequestServerVariablesquotSCRIPT_NAMEquotIf RequestQueryString lt quotquot Then MM_editAction。

7、注册2，loginasp 用户数据处理文件lt！ #include file=quotconnaspquot lt%#39打开数据库判断用户是否存在，info为表名，username为字段名set rsc=servercreateobjectquotadodbrecordsetquotsqlc=quotselect * from info where username=#39quot。