acca准考证上没有照片:asp用户登陆验证代码怎么写

来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 20:22:11
我希望给我的是代码,数据库用的是access

登陆验证代码 如下

<!--#include file="Connections/connlogin.asp"-->
<% if request.Form("user")="" then
response.Write"<script language=javascript>alert('请输入用户名');history.back(-1);</script>"
response.End()
end if
if request.Form("pwd")="" then
response.Write"<script language=javascript>alert('请输入密码');history.back(-1);</script>"
response.End()
end if
user=trim(request.Form("user"))
pwd=trim(request.Form("pwd"))
sql="select * from login where user='"&user&"' and pwd='"&pwd&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,cn,1,1
if rs.eof then
response.Write"<script> alert('无此用户');history.back(-1);</script>"
response.End()
else
session("user")=rs("user")
session("level")=rs("level")
response.Redirect"index.asp"
end if
rs.close
set rs=nothing
cn.close
set cn=nothing

%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Set Conn=Server.CreateObject("ADODB.Connection")
ConnStr="provider=Microsoft.jet.oledb.4.0;data Source="&Server.MapPath("db1.mdb")
Conn.Open ConnStr
%><%
uname=request.Form("uname")
upass=request.Form("upass")

set rs=server.CreateObject("adodb.recordset")
sql="select * From admin where unames='"&uname&"'and upasss='"&upass&"'"
rs.Open sql,conn,1,1

if rs.eof and rs.bof then
%>
<script language="javascript">
alert("用户名或密码错误!请重新输入!")
top.document.location="infoadministrators.asp"
</script>
<%
else
Session("Name")=rs("unames")
Session("Pass")=rs("upasss")
if rs("jb")>"6" then
Session("Name")=rs("unames")
Response.Redirect("magmax.asp")
response.End()
end if

if rs("jb")<"6" then
response.Write("对不起你没有权限,请与管理员联系。联系方式:<a href='mailto:drizzlelmy@126.com'>drizzlelmy@126.com</a> ")
response.End()
end if

rs.close
set rs=nothing
conn.close
set conn=nothing
end if

%>

<!--#include file=conn.asp-->
<!--#include file="../include/md5.asp"-->
<%
on error resume next
dim rs
UserName1=request.form("UserName")
passwd1=md5(trim(request.form("passwd")))
verifycode=request.form("verifycode")验证码验证
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username1&"'"
rs.open sql,conn,1,3
if passwd1<>rs("passwd") or verifycode<>session("verifycode") then
response.write "<title>错误!</title>"
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body>"
response.write "<p> </p><p> </p><p> </p><table width=253 border=0 bgcolor=#000000 cellspacing=1 cellpadding=0 align=center><tr><td align=center bgcolor=#FFFFFF><p> </p><p>请输入正确的用户名、密码及验证码</p><p><a href='javascript:history.go(-1)'>点击这里返回重新输入</a></p></td></tr></table>"
<--else
rs("IP")=Request.ServerVariables("REMOTE_ADDR")
rs("lastlogin")=Now()
rs("logins")=rs("logins")+1
rs.update-->括号里的可以不要,是一些IP记录等
response.cookies("UserName")=RS("Username")
response.cookies("passwd")=rs("passwd")
rs.close
set rs=nothing

response.redirect "index.asp"

end if
%>