📄 sf.asp
字号:
<%@ Language=VBScript %>
<% option explicit%>
<!--#include file="adovbs.asp"-->
<!--#include file="conn.asp" -->
<%
dim copyright
dim Aff,I
dim list,MaxPage,EditUserID,xiu
Aff = Chr(34)
Dim strSQL,Keys,UserID,Action
copyright = "<center><font style=" & Aff & "color: #000000; font-family: 宋体; font-size: 9pt" & Aff & ">" & vbCrLf
copyright = copyright & "Copyright © 1999-2000 " & vbCrLf
copyright = copyright & "97jsj All rights reserved<br>" & vbCrLf
copyright = copyright & "版权所有：<a href=" & Aff & "http://www.bjzx.net/97jsj" & Aff & " target=" & Aff & "_blank" & Aff & ">97计算机</a>" & vbCrLf
copyright = copyright & "网站维护：<a href=" & Aff & "mailto:97jsj@163.com" & Aff & ">97jsj</a>" & vbCrLf
copyright = copyright & "</font></center>" & vbCrLf
'程序开始，有三个判断
'1、判断超级用户帐号是否为空
'2、判断是否为超级用户
'3、进行用户管理
'4、注销超级用户身份
'首先查看表是否有管理员身份在内，如果没有则要求注册。
'如果表有管理员资料则和提交的表单的身份进行验证
'如果验证通过即可以进入管理界面
'如果不通过则输出错误信息，本返回index页面
'如果退出管理环境则注销当前用户。
'//showpage_admin_login '//子程序用来显示管理员登陆页面
'//ShowRegAdminPage '//子程序用来显示注册管理员页面
'//SQL_Server '//数据库操作
'//DeleteOrEditOfAdmin '//子程序用来显示管理用户页面
'//chk_admin_password '//检测登陆用户的密码是否正确
'//Write_admin_data '//写入数据库超级用户的信息
'//delete_user_list '//删除用户
'//CHK_admin_ISNULL '//检查数据表是否为空字段
'------------------Program Start --------------------------------------
'目前需要两个表示不同处理的关键字
Keys=Request("Keys")
Response.Write Keys
Select case Keys
case "Login"
CHK_admin_ISNULL '//检测输出什么页面
case "RegAdmin"
Write_admin_data '//写admin数据
case "ChkAdmin"
CHK_chk_admin_password_OUTPage '//检测是否为sysop
case "DeleteID" '//删除用户操作字符
delete_user_list
case "EditUser" '//编辑用户资料
IsAdminEditUser
case Else
%>
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Help</title>
</head>
<body><div align="center"><center><table border="1" cellspacing="3" cellpadding="0" style="font-family: 宋体; font-size: 10.5pt; color: #000000" bgcolor="#FF9900" bordercolorlight="#FFCC00" bordercolordark="#663300" bordercolor="#FF9900" width="218"><tr><td width="206" colspan="2">
<p align="center">【同学录参数说明】
</td></tr><tr><td width="56">Login</td><td width="144">超级用户登陆</td></tr><tr><td width="56">RegAdmin</td><td width="144">注册超级用户帐号</td></tr><tr><td width="56">ChkAdmin</td><td width="144">检测身份</td></tr><tr><td width="56">DeleteID</td><td width="144">删除用户ID</td></tr><tr><td width="56">EditUser</td><td width="144">编辑用户资料</td></tr></table></center></div></body>
</html>
<%
Response.Write copyright
Response.End
End Select
If Session("Sysop") = "" Then
Session("Sysop") = False
End if
Sub CHK_admin_ISNULL()
'这段是判断输出页面，而程序本身需要带参运行
'数据库操作
strSQL="SELECT * FROM admin "
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
If List.Eof and List.Bof Then
ShowRegAdminPage '超级用户无法使用，因为数据库的用户记录为null
Else
showPage_admin_login '显示登陆页面
End if
List.Close
End Sub
Sub CHK_chk_admin_password_OUTPage()
chk_admin_password
If Session("Sysop") Then
DeleteOrEditOfAdmin
End if
End sub
'-----------------------------------------------------------------------------------------------------------
sub Write_admin_data()
If request.form("admin_name") ="" Or request.form("admin_password")="" Or request.form("admin_mail")="" Then
Response.Write "<center>"
Response.Write "错误！请填写所有的项目！"
Response.Write "<br>请按【<a href=" & Aff & "javascript:history.go(-1);" & Aff & ">回上一页</a>】</center>"
Response.End
Else
strSQL="SELECT * FROM admin "
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
'###################' 改写数据记录 '###################'
If List.Eof and List.Bof Then '如果有记录则覆盖，否则添加新记录
List.addnew
End if
list("admin_name")=request.form("admin_name")
list("admin_password")=request.form("admin_Password")
list("admin_mail")=request.form("admin_mail")
list.update
Session("Sysop") = True
Session("admin_name") = request.form("admin_name")
Session("admin_password") = request.form("admin_password")
Response.Write "<meta http-equiv="&Aff&"refresh"&Aff&" content="&Aff&"3;url=sf.asp?Keys=ChkAdmin"&Aff&">"
Response.Write "<center><hr size=1 color=red width=600>您登陆的帐号是："&request.form("admin_name")&"<br>密码是："&request.form("admin_password")&"<br>E-MAIL是："&request.form("mail")&"</center>"
Response.Write "<br><cneter>请登陆三秒钟将自动进入管理区域</center>"
Response.Write copyright
list.close
End If
end sub
sub chk_admin_password()
strSQL="SELECT * FROM admin "
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
If Session("admin_name") = "" Or Session("admin_password")="" Then
'没有数据存在，马上将检测用户密码
If request.form("admin_password")="" Or request.form("admin_name")="" Then
Response.Write "<center>"
Response.Write "错误！请输入您的帐号和密码！"
Response.Write "<br>请按【<a href=" & Aff & "javascript:history.go(-1);" & Aff & ">回上一页</a>】</center>"
Response.End
Else
strSQL="SELECT * FROM admin "
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
'###################' 检验数据 '###################'
If List("admin_name")=request.form("admin_name") and List("admin_password")=Request.form("admin_password") Then
Session("Sysop") = True
'Response.Write "<center><hr size=1 color=red width=600>您登陆的帐号是："&list("admin_name")&"<br>密码是："&list("admin_password")&"<br>OK!</center>"
Session("admin_name") = List("admin_name")
Session("admin_password") = List("admin_password")
Else
If List("admin_name")<>Request.Form("admin_name") Then
Response.Write " 您输入的帐号不正确！请重新输入！"
Else
Response.Write " 您输入的密码不正确！请重新输入！"
End if
Session("Sysop") = False
Session("admin_name") =""
Session("admin_Password")=""
End If
List.Close
End If
Else
strSQL="SELECT * FROM admin "
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
If List("admin_name")=Session("admin_name") and List("admin_password")=Session("admin_Password") Then
'Response.Write "<hr size=1 color=red width=600>您登陆的帐号是："&list("admin_name")&"<br>密码是："&list("admin_password")&"<br>OK!"
Session("Sysop") = True
Else
If List("admin_name")<>Session("admin_name") Then
Response.Write " 您的帐号信息已经丢失，请重新登陆！"
Else
Response.Write " 您的密码信息已经丢失，请重新登陆！"
End if
Session("Sysop") = False
Session("admin_name")=""
Session("admin_Password")=""
End if
list.close
End If
end sub
'############' 处理删除用户 '#################'
sub delete_user_list()
chk_admin_password
UserID=Request.Form("UserID")
If Session("Sysop")=True Then
strSQL="DELETE * FROM LIST WHERE ID="+UserID
Set List=Server.CreateObject("Adodb.RECORDSET")
List.Open strSQL,conntmp,adOpenKeySet,adLockPessimistic
response.write "<script language='javascript'>" & chr(13)
response.write "alert('已经成功删除该用户！');" & Chr(13)
response.write "window.document.location.href='sf.asp?Keys=ChkAdmin';"&Chr(13)
response.write "</script>" & Chr(13)
Else
response.write "<script language='javascript'>" & chr(13)
response.write "alert('你无权管理，请退出！');" & Chr(13)
response.write "window.document.location.href='Index.asp?action=search';"&Chr(13)
response.write "</script>" & Chr(13)
Session("admin_name")=""
Session("admin_Password")=""
response.End
End if
End sub
'-----------------------------------------------------------------------------------------------------------
sub showpage_admin_login()
Dim htmltext
htmltext=""
htmltext= htmltext & "<html><head><meta http-equiv=" & Aff & "Content-Type" & Aff & " content=" & Aff & "text/html; charset=gb2312" & Aff & ">" & vbCrLf
htmltext= htmltext & "<meta name=" & Aff & "GENERATOR" & Aff & " content=" & Aff & "Microsoft FrontPage 4.0" & Aff & "><meta name=" & Aff & "ProgId" & Aff & " content=" & Aff & "FrontPage.Editor.Document" & Aff & "><title>管理员登陆</title></head><body><Form method=" & Aff & "POST" & Aff & " action=" & Aff & "sf.asp" & Aff & ">" & vbCrLf
htmltext= htmltext & "<div align=" & Aff & "center" & Aff & "><center><table border=" & Aff & "1" & Aff & " cellspacing=" & Aff & "0" & Aff & " cellpadding=" & Aff & "3" & Aff & " style=" & Aff & "font-family: 宋体; font-size: 9pt" & Aff & " bordercolor=" & Aff & "#B4C3DC" & Aff & " bordercolorlight=" & Aff & "#FFFFFF" & Aff & " bordercolordark=" & Aff & "#B4C3DC" & Aff & ">" & vbCrLf
htmltext= htmltext & "<tr><input name=" & Aff & "keys" & Aff & " type=" & Aff & "hidden" & Aff & " value=" & Aff & "ChkAdmin" & Aff & ">" & vbCrLf
htmltext= htmltext & "<td>超级用户帐号：</td><td><input type=" & Aff & "text" & Aff & " name=" & Aff & "admin_name" & Aff & " size=" & Aff & "20" & Aff & "></td><td>超级用户密码：</td><td><input type=" & Aff & "password" & Aff & " name=" & Aff & "admin_password" & Aff & " size=" & Aff & "20" & Aff & "></td></tr></table></center></div><center><input type=" & Aff & "submit" & Aff & " value=" & Aff & " 确定登陆 " & Aff & "></center></form>" & copyright & "</body></html>" & vbCrLf
response.Write htmltext
end sub
'-----------------------------------------------------------------------------------------------------------
sub ShowRegAdminPage()
'------------------------[注册管理员]-------页面输出----------------------------------------------%>
<html><head><meta http-equiv="Content-Language" content="zh-cn"><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document"><title>注册超级用户</title><style>
<!--
input { font-family: 宋体; font-size: 9pt; background-color: #FFFFFF; color: #000000;
border: 1 solid #000000 }
-->
</style></head><body bgcolor="#000000" text="#C0C0C0" link="#C0C0C0" vlink="#C0C0C0"><form method="POST" action="sf.asp"><center><font face="黑体" size="6" color="#FF0000">注册</font><font face="黑体" size="6" color="#FFFFFF">管理员</font></center>
<div align="center"><center><table border="1" width="246" cellspacing="3" bordercolorlight="#FFCC00" bordercolordark="#663300" bordercolor="#FF9900" bgcolor="#FF9900" cellpadding="3" style="font-family: 宋体; font-size: 9pt; color: #000000">
<input name="keys" type="hidden" value="RegAdmin">
<tr><td width="226" colspan="2"> <font color="#FF0000">当前管理员为空，请注册管理员的帐号，请妥善保存好你的密码！</font></td>
</tr><tr><td width="91">超级用户帐号：</td><td width="133"><input type="text" name="admin_name" size="20"></td>
</tr><tr><td width="91">超级用户密码：</td><td width="133"><input type="password" name="admin_password" size="20"></td>
</tr><tr><td width="91">用户邮件地址：</td><td width="133"><input type="text" name="admin_mail" size="20"></td>
</tr><tr><td width="224" colspan="2"><p align="center">
<input type="submit" value="提交" name="B2" style="background-color: #FF9900; border: 0 solid #FF9900">
<input type="reset" value="全部重写" name="B1" style="background-color: #FF9900; border: 0 solid #FF9900">
</p></td></tr></table></center></div></form></body></html>
<%REM --------------------------------------------结束输出页面----------------------------------------
Response.Write copyright
End sub
'-----------------------------------------------------------------------------------------------------------
sub DeleteOrEditOfAdmin()
%><%'------------------[管理用户页面]------------页面输出---------------------------------------------%>
<%strSQL="SELECT * FROM List Order by ID DESC"
set list=server.createobject("adodb.recordset")
list.open strSQL,conntmp,adOpenKeySet,adLockPessimistic
'Response.Write strSQL
If Session("Sysop")=False Then
response.write "<script language='javascript'>" & chr(13)
response.write "alert('你无权管理，请退出！');" & Chr(13)
response.write "window.document.location.href='Index.asp?action=search';"&Chr(13)
response.write "</script>" & Chr(13)
Session("admin_name")=""
Session("admin_Password")=""
response.End
End If
if list.eof and list.bof then%>
<div align="center"><center>
<table border="1" width="650" cellspacing="0" cellpadding="3" bordercolor="#988CD0" bgcolor="#E0E0E0" style="font-family: 宋体; font-size: 9pt; color: #000000">
<tr><td width="100%">
<p align="center"><font color="#FF0000">
Sorry! 没有你想找的资料！</font></p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -