adminpass.asp

来自「网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点」· ASP 代码 · 共 42 行

<!--#include file="bkconn.asp"-->
<% 
'获取数据
            susername=request.form("username")
            spwd=request.form("pwd")

'检验数据合法性
if Len(susername)<1 or Len(spwd)<1 or susername<>"system" then%>
<script language=vbscript> 
MsgBox "错误：输入不能有空或者非法用户！"
location.href = "main.asp"
</script>

<%else
set tablelist=conn.execute("select  * from  user where guestname='" &susername &"'")
if tablelist.eof and tablelist.bof then%>
<script language=vbscript> 
MsgBox "错误：非法用户！"
location.href = "main.asp"
</script>
<%else

'校验密码	     
if tablelist("ljl_pwd")<>spwd  then%>
<script language=vbscript> 
MsgBox "密码错误！"
location.href = "main.asp"
</script>
<%else
Session("ljl_liujinlu")=susername
Session("ljl_grad")=tablelist("grad")
Session("ljl_add")=tablelist("add")%>
<script language=vbscript> 
MsgBox "登陆成功，按此进入信息管理系统！"
location.href = "guanli.asp"
</script>
<%end if             
end if             
conn.close             
set conn=nothing             
end if             
%>