展开全部
登陆验证代码 如下
<!--#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
%>
<!--#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
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<!--#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
%>
<!--#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
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
<%@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
%>
<%
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
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（1）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
