asp 注册代码实现

最新推荐文章于 2021-06-04 04:32:42 发布
最新推荐文章于 2021-06-04 04:32:42 发布
阅读量2k 收藏 2
点赞数
分类专栏： asp 文章标签： asp vbscript input microsoft border user
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/I_hui/article/details/2775437
版权
我的只是独立的。你自己试着组合下：
1.<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>欢迎光临</title>
</head>
<%
Session.Timeout=10
if session("pass")<>"action1" then
response.Redirect("logon.asp")
Response.End
end if
%>
<body>
<h1 align="center"> </h1>
<h1 align="center">登录成功！ </h1>
</body>
</html>


2.<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册结果</title>
</head>
<!--#include file=security.asp-->
<body>
<p> </p>
<p> </p>
<h2 align="center">
<%
dim db '以下连上数据库，建立一个Connection对象实例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
a1=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 trim(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>"
Response.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
c2=encrypt(a2)
'下面是将注册信息添加到数据库中
strsql="insert into user(user_name,password,sex,love,career,introduction,submit_date) Values('"& a1 & "', '"& c2 &"', '" & a3 &"','"& a4 & "','"& a5 & "','"& a6 & "', #" & now() & "#)"
db.Execute(strsql)
%>
</h2>
<h2 align="center" >
<%
Response.Write "注册成功！<p>请记牢用户名和密码！"
%>
</h2>
<p align="center" class="base-4" > </p>
<table width="121" height="35" border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="middle">
<td><script language="JavaScript">
function shutwin(){
window.close();
return;}
</script> <a href="javascript:shutwin();">关闭本窗口</a></td>
</tr>
</table>
<p align="center" > </p>
<p>

</body>
</html>


3.<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="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="insert.asp">
<table width="67%" border="1" align="center" cellspacing="0" bordercolor="#0000FF">
<tr>
<th width="25%">用户名</th>
<td width="75%"><input type="text" name="user">
** 必须填写</td>
</tr>
<tr>
<th>密码</th>
<td><input type="password" name="password" >
**</td>
</tr>
<tr>
<th width="25%">确认密码</th>
<td width="75%"><input type="password" name="password2">
**</td>
</tr>
<tr>
<th width="25%">性别</th>
<td width="75%"><input type="radio" name="sex" value="男">
男
<input type="radio" name="sex" value="女">
女</td>
</tr>
<tr>
<th width="25%">爱好</th>
<td width="75%"><input type="checkbox" name="love" value="音乐">
音乐
<input type="checkbox" name="love" value="计算机">
计算机</td>
</tr>
<tr>
<th width="25%">职业</th>
<td width="75%"><select name="career" size="1">
<option value=" " selected>请选择</option>
<option value="教育业">教育业</option>
<option value="金融业">金融业</option>
<option value="其他">其他</option>
</select></td>
</tr>
<tr>
<th width="25%">简介</th>
<td width="75%"><textarea name="introduction" cols="40" rows="2" wrasp="soft"></textarea></td>
</tr>
<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>


4.<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="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="1" align="center" cellspacing="0" bordercolor="#0000FF">
<tr>
<th width="25%">用户名</th>
<td width="75%"><input name="user" type="text" size="20">
</td>
</tr>
<tr>
<th>密码</th>
<td><input name="password" type="password" size="20" > </td>
</tr>

<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%>">
</td>
</tr>

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


5.<%
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
%>

6.<%@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">
<%
rem 以下连上数据库，建立一个Connection对象实例db
dim 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,nam,psw,otherpwd,reotherpwd
a1=Request.Form("user")
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>"
Response.Write "<a href='logon.asp' >重新登录</a>"
Response.End
end if
rem 如果用户名、密码正确，登录成功，引导到另一张网页
if a1=nam and a2=psw then
session("pass")="action1"
response.Redirect("default.asp")
Response.End
end if
rs.movenext
loop
Response.Write "用户信息不正确<p>"
Response.Write "<a href='logon.asp' >重新登录</a>"
%>
</h2>

</body>
</html>
I_hui
关注
专栏目录
ASP 用户注册页面的源代码
02-21
此资源可供初学ASP的童鞋们参考 用于设计一个简单的用户注册的页面 显示其性别 兴趣等信息
asp注册登陆界面代码
06-03
能完成用户注册登陆的源代码，有密码修改，密码验证功能，试试吧
ASP用户登录注册代码
weixin_30315435的博客
10-30 2544
转载一下，谢谢！原文地址：ASP用户登录注册代码作者：豆豆 1，（index.asp 用户登陆页面） <!-- #include file="conn.asp" --> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"&g...
ASP注册源码方便实现登陆注册
11-27
ASP注册源码方便实现登陆注册，注释写的很详细，不懂的自己的看注释
简单的asp注册登录页面
12-06
小弟刚刚接触asp 写得很简单 看着好就下吧 勿喷啊
asp.net登录及注册页面代码实现
10-02
### ASP.NET登录与注册页面代码实现详解 在Web开发领域，用户身份验证是必不可少的一个环节。ASP.NET提供了强大的工具和框架来帮助开发者实现这一功能。本文将深入解析一个基于ASP.NET并通过C#语言实现的登录及注册...
ASP注册登陆实例代码
10-30
总结来说，ASP注册和登录功能的实现涉及数据库连接，用户输入验证，信息的存储和检索等技术点。在实际应用中，还应该加入更多的安全措施，比如对用户密码进行加密存储、实现登录后的会话管理等，以保障用户数据的...
ASP+ajax注册即时提示程序代码
10-28
ASP+AJAX 注册即时提示程序是一种用于提升用户体验的在线注册系统，它通过结合ASP（Active Server Pages）服务器端脚本技术和AJAX（Asynchronous JavaScript and XML）异步交互技术，实现在用户填写注册信息时实时...
asp+access代码-实现注册登录学生信息管理
08-08
asp+access代码-实现注册登录学生信息管理 系统程序代码说明： 1.用户注册登录子功能 reg.htm -regsave.asp index.asp-login.asp-index1.asp p243.asp 显示登录学生记录（1条）信息 3.管理员登录：admin.asp->...
asp注册代码
11-13
asp注册代码,适合初学者
Web网页登录注册处理ASP代码
10-14
用户在网页登录注册的功能简单界面以及登录注册后台处理代码，在笔记本工具手动敲代码生成.asp文件，部署IIS后可在本机通过127.0.0.1：端口号/文件名.asp直接访问。
ASP会员源码---完整会员注册代码
04-15
完整会员注册代码，很好用的，如果喜欢的话，就拿去吧
Asp+access用户注册登录代码
12-03
全是代码用户登录 注册先关程序代码 注册页面 //去空格 String.prototype.Trim = function() { var m = this.match(/^\s*(\S+(\s+\S+)*)\s*$/); return (m == null) ? "" : m[1]; } //验证手机号 String.prototype.isMobile = function() { return (/^(?:13\d|15[189])-?\d{5}(\d{3}|\*{3})$/.test(this.Trim()));
asp用户注册登录，检测用户名，连接mysql，最简单的asp+mysql
06-30
最简单的asp代码，适合初学者参考。其中涉及到了用户连接数据库登录，检验用户名密码，检测用户名是否可用。 如果对其中的部分代码不理解，可以发 E-mail:wangwei171@126.com给我。我将为你解答。
ASP组件注册方法
flynetcn的专栏
01-05 2355
ASP注册组件方法: 第一种方法：手工注册 DLL 这种方法从IIs 3.0一直使用到IIs 4.0和其它的Web Server。它需要你在命令行方式下来执行，进入到包含有DLL的目录，并输入：regsvr32 component_name.dll 例如 c:/temp/regsvr32 AspEmail.dll 它会把dll的特定信息注册入服务器中的注册表中。然后这个组件就可以在服务器上使用了，
ASP 编程中 20 个非常有用的例子
Reker熊的Blog
11-30 1847
ASP 编程中 20 个非常有用的例子1.如何用Asp判断你的网站的虚拟物理路径 答：使用Mappath方法 The Physical path to this virtual website is: 2.我如何知道使用者所用的浏览器？ 答：使用the Request object方法 strBrowser=Request.ServerVariables("HTTP_USER_AGENT
html asp 注册页面,用ASP实现一个真正的注册页面
weixin_39604557的博客
06-04 334
(一)，设定注册页面的外观：在这个例子中涉及了五个页面，其中有三幅是一般的htm文件，另外的两幅是asp文件，在这里制作利用的工具是frontpage98，但是大部分的asp代码还是要自己输入的：1，设定原来已经注册的用户进入的外观：在这里设置了两个文本框，一个超级链接和两个按钮。两个文本框分别用来输入帐号(txtNum)和密码(txtPasswd)，超级链接(New)链接到新用户进行注册的页面，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值