UC知道asp中管理员登录有问题
来源：百度知道 编辑：UC知道 时间：2024/06/23 23:43:19
代码如下：
<!--#include file="conn.asp"-->
<script language="vbscript">
function check()
if booklogin.username.value="" then
alert("用户名不能为空！")
booklogin.username.focus()
return false
end if
if booklogin.password.value="" then
alert("密码不能为空！")
booklogin.password.focus()
return false
end if
return true
end function
</script>
<% if request.QueryString("act")="login" then
user=request.Form("username")
pass=request.Form("password")
set NArs=server.CreateObject("adodb.recordset")
sql="select * from Note_Admin where Admin='"&user&"' and Pwd='"&pass&"'"
NArs.open sql,conn,1,1
if not(NArs.bof and NArs.eof) then
session("login")="o
<!--#include file="conn.asp"-->
<script language="vbscript">
function check()
if booklogin.username.value="" then
alert("用户名不能为空！")
booklogin.username.focus()
return false
end if
if booklogin.password.value="" then
alert("密码不能为空！")
booklogin.password.focus()
return false
end if
return true
end function
</script>
<% if request.QueryString("act")="login" then
user=request.Form("username")
pass=request.Form("password")
set NArs=server.CreateObject("adodb.recordset")
sql="select * from Note_Admin where Admin='"&user&"' and Pwd='"&pass&"'"
NArs.open sql,conn,1,1
if not(NArs.bof and NArs.eof) then
session("login")="o
这个程序在输入有误时，会弹出一个对话框，内容是“管理员用户名或密码输入有误，请检查后重新输入！”，点击确定后后回到当前页
如果你的意思是不弹出对话框就直接回到当前页，把
response.Write("<script>alert('管理员用户名或密码输入有误，请检查后重新输入！');history.back()</script>")
改为
response.Write("<script>history.back()</script>")
如果你用flash登录系统，则这个语句无效，如果是flash语句，你说一声，我再告诉你解决方法，因为解决方法相对比较长。。。