📄 login.asp
字号:
<%@language="VBScript" codepage="936"%>
<!--#include file="function.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<%
Randomize
chk=Int((9999 - 1000 + 1) * Rnd + 1000)
session("chk")=chk
'-----------------
if session("goindex") then
response.redirect("index.asp")
end if
'-----------------
if session("adminlogin")<>"" then
title="管理员管理"
else
title="登录"
end if
%>
<html>
<head>
<title><%=title%>--<%=name%>--[By BrightStar]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Meta Name="description" Content="BS在线文件管理系统">
<Meta Name="Keywords" Content="BS在线文件管理系统">
<meta http-equiv="pragma" content="no-cache">
<link href="styles.css" rel="stylesheet" type="text/css">
<script language="">
<!--
function adminlogin(action){
switch (action){
case "login" :
{obj=document.login;
obj.action="chk.asp?type="+action;
if(!obj.admin.value||obj.admin.value.length<5) {alert("管理员不可为空也不能少于5个字符！");return;}
if(!obj.pwd.value||obj.pwd.value.length<5) {alert("密码不可为空也不能少于5个字符！");return;}
if(obj.chk.value!=<%=chk%>) {alert("验证码不正确！");return;}
window.showModalDialog(obj.action+"&admin="+obj.admin.value+"&pwd="+obj.pwd.value+"&chk="+obj.chk.value,"","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
window.location.reload();}
break;//---------
case "adminlogin" :
{obj=document.login;
obj.action="chk.asp?type=login";
if(!obj.admin.value||obj.admin.value.length<5) {alert("管理员不可为空也不能少于5个字符！");return;}
if(!obj.pwd.value||obj.pwd.value.length<5) {alert("密码不可为空也不能少于5个字符！");return;}
if(obj.chk.value!=<%=chk%>) {alert("验证码不正确！");return;}
window.showModalDialog(obj.action+"&admin="+obj.admin.value+"&pwd="+obj.pwd.value+"&chk="+obj.chk.value+"&goindex=1","","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
window.location.reload();}
break;//---------
<%
if session("adminlogin") <> "" then
set rs=CreateObject("ADODB.Recordset")
if session("admin") and session("adminlogin") <> "" then
rs.open "select * from admin", conn,3,3
else
rs.open "select * from admin where admin='"&session("adminlogin")&"'", conn,3,3
end if
if not rs.eof then
i = 1
while not rs.eof
%>
case "gotoupdate<%=i%>" :
{var super<%=i%>=0;
obj=document.gotoupdate<%=i%>;
obj.action="chk.asp?type=modify";
if(!obj.admin.value||obj.admin.value.length<5) {alert("管理员不可为空也不能少于5个字符！");return;}
if(!obj.pwd.value) {if(!confirm("不修改密码吗？"))return;}
if(obj.pwd.value&&obj.pwd.value.length<5) {alert("密码长度应大于5个字符！");return;}
if(!obj.dir.value||obj.dir.value.length<2) {alert("请设置权限目录！");return;}
<% if session("admin") then %>
if(obj.super_v.checked) super<%=i%>=1;else super<%=i%>=0;
<% end if %>
//请设置权限目录！
window.showModalDialog(obj.action+"&admin="+obj.admin.value+"&pwd="+obj.pwd.value+"&dir="+obj.dir.value+"&super1="+super<%=i%>,"","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
window.location.reload();}
break;//---------
<% rs.movenext
i = i + 1
wend
end if
rs.close()
set rs=nothing
end if
%>
<% if session("adminlogin") <> "" then %>
case "addordel" :
{var super1
obj=document.addordel;
obj.action="chk.asp?type="+obj.aord_v.value;
if(!obj.aord_v.value) {alert("请选择操作！");return;}
if(!obj.admin.value||obj.admin.value.length<5) {alert("管理员不可为空也不能少于5个字符！");return;}
if(obj.aord_v.value=="add"){
if(!obj.pwd.value||obj.pwd.value.length<5) {alert("密码不可为空也不能少于5个字符！");return;}
if(!obj.dir.value||obj.dir.value.length<2) {alert("请设置权限目录！");return;}
if(obj.super_v.checked) super1=1;else super1=0;
window.showModalDialog(obj.action+"&admin="+obj.admin.value+"&pwd="+obj.pwd.value+"&dir="+obj.dir.value+"&super1="+super1,"","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
window.location.reload();}
else {
window.showModalDialog(obj.action+"&admin="+obj.admin.value,"是谁？","dialogWidth:280px;dialogHeight:150px;scroll:no;status:no;help:no");
window.location.reload();}
}
break;//---------
<% end if %>
}//end switch
}//end function
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<br>
<% if session("adminlogin")="" then %>
<br>
<table width="390" align="center" cellpadding="2" cellspacing="0" class="table" style="border: 1 solid #000000">
<form action="" method="post" name="login">
<tr>
<td colspan="2" align="center" bgcolor="#CCCCCC" style="font: 10.5pt;border-bottom: 1 solid #000000;">请登录</td>
</tr>
<tr bgcolor="#eeeeee">
<td height="5" colspan="2"></td>
</tr>
<tr bgcolor="#eeeeee">
<td width="100" align="center"> </td>
<td width="290">管理员:
<input name="admin" type="text" id="admin" value="" size="15" maxlength="20">
</td>
</tr>
<tr bgcolor="#eeeeee">
<td align="center"> </td>
<td>密 码:
<input name="pwd" type="password" id="pwd" value="" size="15" maxlength="20">
</td>
</tr>
<tr bgcolor="#eeeeee">
<td align="center"> </td>
<td>验证码:
<input name="chk" type="text" id="chk" size="7" maxlength="4">
【<%=chk%>】</td>
</tr>
<tr bgcolor="#eeeeee">
<td height="5" colspan="2"></td>
</tr>
<tr bgcolor="#CfCfCf">
<td align="center" style="border-top: 1 solid #000000"> </td>
<td style="border-top: 1 solid #000000"> <input onclick="javascript: adminlogin('login');" class="button" type="button" name="Submit" value="登录系统">
<input onclick="javascript:adminlogin('adminlogin');" class="button" type="button" name="Submit2" value="文件管理">
</td>
</tr>
</form>
</table>
<% else %>
<%
set rs=CreateObject("ADODB.Recordset")
if session("admin") then
rs.open "select * from admin order by date_add desc", conn,3,3
else
rs.open "select * from admin where admin='"&session("adminlogin")&"' order by date_add desc", conn,3,3
end if
if not rs.eof then
%>
<table width="758" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="border: 1 solid #000000" width="57" align="center"><a href="logout.asp?logout=1">退出管理</a></td>
<td width="28" align="center"> </td>
<td width="57" align="center" style="border: 1 solid #000000"><a href="index.asp">文件管理</a></td>
<td align="center"><b><font size="4">[<%=name%>]</font></b><font color="#ccaacc">-version:<%=version%></font> </td>
</tr>
</table>
<br>
<table width="758" align="center" cellpadding="2" cellspacing="0" class="table" style="border: 1 solid #000000">
<tr>
<td align="center" bgcolor="#CCCCCC" style="font: 10.5pt;border-bottom: 1 solid #000000;">管理员操作</td>
</tr>
<tr>
<td height="5"></td>
</tr>
<% i = 1
while not rs.eof
%>
<tr><form action="" method="post" name="gotoupdate<%=i%>">
<td>管 理 员:
<input name="admin" type="text" disabled id="admin22" value="<%=rs("admin")%>" size="15" maxlength="20">
密码:
<input name="pwd" type="password" id="pwd22" value="" size="15" maxlength="20" title="修改管理员权限目录时，若密码域留空则不更新密码！">
<% if session("admin") then %>
是否超级管理员:
<% if rs("super") and lcase(rs("admin")) <> lcase(session("adminlogin"))then %>
<input name="super_v" type="checkbox" onClick="javascript:alert('请慎重此项操作！');" id="super_v" style="border: 0 solid #ffffff;" value="1" checked>[选中为是]
<% else %>
<input name="super_v" type="checkbox" onClick="javascript:alert('请慎重此项操作！');" id="super_v" style="border: 0 solid #ffffff;" value="1"<% if lcase(rs("admin")) = lcase(session("adminlogin")) then %> checked disabled<% end if %>>[选中为是]
<% end if %>
<% end if %>
<br>
权限目录:
<input name="dir" <% if not session("admin") then response.write("disabled") end if %> value="<%=rs("dir")%>" type="text" id="dir" title="1.如果权限目录为多个，请用“|”分隔！ 2.非超级管理员无修改此目录的权限！ 3.超级管理员此权限目录第一个有效目录为登录默认目录！" size="80">
<input class="button" onClick="javascript:adminlogin('gotoupdate<%=i%>');" type="button" name="Submit4" value="更新">
</td></form>
</tr>
<% rs.movenext
i = i + 1
wend
end if
rs.close()
set rs=nothing
set conn=nothing
%>
<% if session("admin") then %>
<tr>
<td height="1" bgcolor="#000000"></td>
</tr>
<tr>
<td height="4" bgcolor="#eeeeee"></td>
</tr>
<tr><form action="" method="post" name="addordel">
<td bgcolor="#eeeeee"> 管 理 员:
<input name="admin" type="text" id="admin" value="" size="15" maxlength="20">
密码:
<input name="pwd" type="text" id="pwd25" value="" size="15" maxlength="20">
设为超级管理员:
<input name="super_v" style="border: 0 solid #ffffff;" type="checkbox" id="super_v" value="1">
执行操作:
<input type="radio" style="border: 0 solid #ffffff;" name="aord" value="add" onClick="javascript:document.addordel.aord_v.value = this.value;">添加
<input type="radio" style="border: 0 solid #ffffff;" name="aord" value="del" onClick="javascript:if(confirm('确认执行删除管理员操作吗？\t'))document.addordel.aord_v.value = this.value; else return false;">删除
<input name="aord_v" type="hidden" id="aord_v"><br>
权限目录:
<input name="dir" type="text" id="dir" title="如果权限目录为多个，请用“|”分隔！" size="80">
<input class="button" type="button" onClick="javascript:adminlogin('addordel');" name="Submit3" value="执行">
</td></form>
</tr>
<% end if %>
<tr>
<td height="5" bgcolor="#eeeeee"></td>
</tr>
<tr bgcolor="#CfCfCf">
<td style="border-top: 1 solid #000000"> </td>
</tr>
</table>
<table width="680" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
<tr>
<td>注意：<font color=red>如果有时操作结果错误，请清空浏览器缓存！</font>本系统所在目录为：<font color=red><%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></font>，请注意权限目录的设置！</td>
</tr>
</table>
<%
end if
%>
<br><center><%=copyright%></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -