📄 guanli.asp
字号:
<!-- #include file="func/db.fun" -->
<%
name=request("name")
pws=request("pws")
ss=session("name")
if ss = "" then
if name<> empty then
if pws<> empty then
sql="select * from admin where 管理员='" & name & "'"
set rs=GetMdbStaticRecordset("data/user.mdb",sql)
if rs.eof then
%>
<script language="VBScript">
MsgBox "你是非法用户。"
history.back()
</script>
<%
else
sql="select * from admin where 密码='" & pws & "'"
set rs=GetMdbStaticRecordset("data/user.mdb",sql)
if rs.eof then
%>
<script language="VBScript">
MsgBox "对不起，你输入的密码有误!"
history.back()
</script>
<%
end if
end if
else
%>
<script language="VBScript">
MsgBox "请输入密码!"
history.back()
</script>
<%
end if
else
%>
<script language="VBScript">
MsgBox "请输入管理员名!"
history.back()
</script>
<%
end if
session("name")=name
session("pws")=pws
end if
set rs=GetMdbStaticRecordset("data/user.mdb","userdase")
%>
<html>
<body bgcolor="ffffff">
<link rel="stylesheet" href="style.css">
<h2 align=center>"学生学历" 管理处 <br>
</h2>
<table width="721" border="0">
<tr>
<td>
<div align="right">
<a href="add.asp"><font size="2" color="#00CCFF">增加用户</font></a></div>
</td>
</tr>
</table>
<hr>
<%
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
ShowOnePage rs, Page
%>
<DIV ALIGN=right><P><HR>
<FORM Action=<%=Myself%>?name=<%=name%>&pws=<%=pws%> Method=post>
<%If Page <> 1 Then ' 如果不是位于第一页 %>
<A HREF=<%=Myself%>?Page=1&name=<%=name%>&pws=<%=pws%>>第一页</A>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -