网页用户验证和邮箱验证.......急求...在线等......考试内容....... 10
1、制作具有验证功能的用户注册页面,要求:(1)用户名:不能为空,并且只能由数字、字母和下划线组成,长度范围为6-20个字符;(2)密码:也不能为空,而且其长度为4-16...
1、制作具有验证功能的用户注册页面,要求:
(1)用户名:不能为空,并且只能由数字、字母和下划线组成,长度范围为6-20个字符;
(2)密码:也不能为空,而且其长度为4-16个字符;
(3)E-mail地址:不能为空,并且E-mail地址必须包含“@”符号和“.”符号;
(4)点击“提交”按钮:如果用户输入的内容不符合要求时,就弹出相应的错误提示警告对话框;如果用户输入的内容符合要求,弹出“提交成功”警告对话框。
(5) 点击“取消”按钮:用户名、密码、电子邮件地址三个文本框清空。
我们学的是简单的网页设计.........用简单代码编出来就行了.......不要求多完美.......只要能实现以上功能就行.............谢谢.......各位网页设计编程 展开
(1)用户名:不能为空,并且只能由数字、字母和下划线组成,长度范围为6-20个字符;
(2)密码:也不能为空,而且其长度为4-16个字符;
(3)E-mail地址:不能为空,并且E-mail地址必须包含“@”符号和“.”符号;
(4)点击“提交”按钮:如果用户输入的内容不符合要求时,就弹出相应的错误提示警告对话框;如果用户输入的内容符合要求,弹出“提交成功”警告对话框。
(5) 点击“取消”按钮:用户名、密码、电子邮件地址三个文本框清空。
我们学的是简单的网页设计.........用简单代码编出来就行了.......不要求多完美.......只要能实现以上功能就行.............谢谢.......各位网页设计编程 展开
展开全部
<!--这个是登陆验证页面 保存为一个页面-->
<HTML>
<HEAD>
<TITLE>用户登录</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {
font-size: 10pt;
}
-->
</style>
</HEAD>
<BODY bgColor=#eeeeee leftMargin=0 topMargin=0>
<P> </P>
<P> </P>
<TABLE height=300 cellSpacing=0 cellPadding=0 width=400 align=center border=0>
<TBODY>
<TR>
<TD
height=299 valign="bottom" background=images/login.gif><BR>
<BR><BR><BR><BR>
<BR>
<BR><BR>
<table height=106 cellspacing=1 cellpadding=4 width="90%"
align=center border=0>
<form name=login action=chklogin.asp method=post target="_parent">
<tr>
<td width="24%" height=36 align="right"> 管理员:</td>
<td height=36><input name="name"
style="BORDER: 1px solid" size="13"
maxlength=20> </td>
</tr>
<tr>
<td align="right"> 密 码:</td>
<td><input name="pwd"
type=password
style="BORDER:1px solid" size="13" maxlength=20> </td>
</tr>
<tr>
<td align="right">验证码:</td>
<td><INPUT name=validate_code type=text id="validate_code" size="8" maxlength="4" value="" style="BORDER:1px solid">
请在左边输入 <img src="getcode.asp">
</td>
</tr>
<tr align="center">
<td colspan=2 height=38>
<input type=submit value=" 登 录 " name=Submit style="BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge;FONT-SIZE: 9pt" >
<input type=reset value=" 重 填 " name=reset style="BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge;FONT-SIZE: 9pt" >
</td>
</tr>
</form>
</table> </TD>
</TR>
</TABLE>
</BODY></HTML>
<!--这个是 chklogin.asp 保存成另一个页面-->
<!--#include file="conn.asp"-->
<!--#include file="common/md5.asp"-->
<%dim name,pwd
'读取提交的数据
strName=GetFormVariable("name")
strPass=GetFormVariable("pwd")
'检查用户权限
strSQL="select * from web_admin where LoginName='" & strName &"' And m_id=" & WebUserID '查看对应网站下的管理员
rs.open strSQL,conn,1,1
strPass=md5(strPass)
if rs.eof then
ShowMsg("对不起,此用户不存在,请重新输入!")
end if
if trim(rs("PassWord"))<>strPass then
ShowMsg("对不起,用户名和密码不正确,请重新输入!")
end if
If Trim(Request.Form("validate_code"))=Empty Or Trim(Session("getCode")) <>Trim(Request.Form("validate_code")) Then
response.write(" <script language=javascript>alert('请注意正确输入验证码');Javascript:window.history.go(-1); </script>")
response.end
end if
'合法用户,给予授权
Session("LoginName")=rs("LoginName") '账号
Session("RealName")=rs("RealName") '姓名
Session("PassWord")=rs("PassWord") '密码
Session("web_adminLimit")=rs("Limit"):Session("UserFolder")=WebUserName
strID=rs("ID")
'记录登录时间
'strTime=now()
'rs.close
'set rs=nothing
'填写登录日期
'strSQL="Insert Into web_adminLog(web_admin_ID,OnTime,IP,Event) values(" & strID & ", '" & strTime & "','" & request.ServerVariables("REMOTE_ADDR") & "', '登陆后台')"
'conn.execute strSQL,0,1
conn.close
set conn=nothing
response.Redirect("index.asp")%>
.......................conn.asp 和md5.asp 这两个文件就不用贴出来了吧,网上有的,另外 楼主的分有点少......追加点呗
<HTML>
<HEAD>
<TITLE>用户登录</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<style type="text/css">
<!--
td {
font-size: 10pt;
}
-->
</style>
</HEAD>
<BODY bgColor=#eeeeee leftMargin=0 topMargin=0>
<P> </P>
<P> </P>
<TABLE height=300 cellSpacing=0 cellPadding=0 width=400 align=center border=0>
<TBODY>
<TR>
<TD
height=299 valign="bottom" background=images/login.gif><BR>
<BR><BR><BR><BR>
<BR>
<BR><BR>
<table height=106 cellspacing=1 cellpadding=4 width="90%"
align=center border=0>
<form name=login action=chklogin.asp method=post target="_parent">
<tr>
<td width="24%" height=36 align="right"> 管理员:</td>
<td height=36><input name="name"
style="BORDER: 1px solid" size="13"
maxlength=20> </td>
</tr>
<tr>
<td align="right"> 密 码:</td>
<td><input name="pwd"
type=password
style="BORDER:1px solid" size="13" maxlength=20> </td>
</tr>
<tr>
<td align="right">验证码:</td>
<td><INPUT name=validate_code type=text id="validate_code" size="8" maxlength="4" value="" style="BORDER:1px solid">
请在左边输入 <img src="getcode.asp">
</td>
</tr>
<tr align="center">
<td colspan=2 height=38>
<input type=submit value=" 登 录 " name=Submit style="BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge;FONT-SIZE: 9pt" >
<input type=reset value=" 重 填 " name=reset style="BORDER-BOTTOM: 1px ridge; BORDER-LEFT: 1px ridge; BORDER-RIGHT: 1px ridge; BORDER-TOP: 1px ridge;FONT-SIZE: 9pt" >
</td>
</tr>
</form>
</table> </TD>
</TR>
</TABLE>
</BODY></HTML>
<!--这个是 chklogin.asp 保存成另一个页面-->
<!--#include file="conn.asp"-->
<!--#include file="common/md5.asp"-->
<%dim name,pwd
'读取提交的数据
strName=GetFormVariable("name")
strPass=GetFormVariable("pwd")
'检查用户权限
strSQL="select * from web_admin where LoginName='" & strName &"' And m_id=" & WebUserID '查看对应网站下的管理员
rs.open strSQL,conn,1,1
strPass=md5(strPass)
if rs.eof then
ShowMsg("对不起,此用户不存在,请重新输入!")
end if
if trim(rs("PassWord"))<>strPass then
ShowMsg("对不起,用户名和密码不正确,请重新输入!")
end if
If Trim(Request.Form("validate_code"))=Empty Or Trim(Session("getCode")) <>Trim(Request.Form("validate_code")) Then
response.write(" <script language=javascript>alert('请注意正确输入验证码');Javascript:window.history.go(-1); </script>")
response.end
end if
'合法用户,给予授权
Session("LoginName")=rs("LoginName") '账号
Session("RealName")=rs("RealName") '姓名
Session("PassWord")=rs("PassWord") '密码
Session("web_adminLimit")=rs("Limit"):Session("UserFolder")=WebUserName
strID=rs("ID")
'记录登录时间
'strTime=now()
'rs.close
'set rs=nothing
'填写登录日期
'strSQL="Insert Into web_adminLog(web_admin_ID,OnTime,IP,Event) values(" & strID & ", '" & strTime & "','" & request.ServerVariables("REMOTE_ADDR") & "', '登陆后台')"
'conn.execute strSQL,0,1
conn.close
set conn=nothing
response.Redirect("index.asp")%>
.......................conn.asp 和md5.asp 这两个文件就不用贴出来了吧,网上有的,另外 楼主的分有点少......追加点呗
追问
不要验证码...不要管理员........只要求实现以上功能就可以......我们只学了点皮毛......简单代码就可以了......不要添加功能.......否则老师不要作业......................谢谢.......大虾..
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询