admin_user.asp

这是一个学生档案管理系统,欢迎大家下载使用哈!

<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->

<%
Call Login_Judge
Dim a_UserId,a_PassWord,a_UserName
Dim sex
action=che(request("action"))
id=che(request("id"))
Dim users(2)
users(0)="帐    号"
users(1)="姓    名"
users(2)="密    码"

Dim userslm(2)
userslm(0)="a_UserId"
userslm(1)="a_UserName"
userslm(2)="a_PassWord"
If action="list" Then
	%>
	<h1>管理员管理</h1>
	<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
  <tr align="center"> 
		<td width="5%" class="art_tit">选</td>
    <td width="15%" class="art_tit">帐号</td>
    <td width="15%" class="art_tit">姓名</td>
		<td width="20%" class="art_tit">最后登陆时间</td>
		<td width="10%" class="art_tit">登陆次数</td>
		<td width="10%" class="art_tit">操作</td>
  </tr>
	<form name="del" method="Post" action="admin_user.asp?action=del">
	<%
	PurviewChecked=False
	strFileName="admin_user.asp?action="&action&"&types="&types&"&keyword="&keyword
	const MaxPerPage=10
	if request("page")<>"" then
		currentPage=cint(request("page"))
	else
		currentPage=1
	end If
	set rs=server.createobject("adodb.recordset")
	rs.open ("select id,a_UserId,a_UserName,a_lastdate,a_loads from Admin_User "&Sql_Condition&" order by id desc"),conn,1,1
	if rs.eof and rs.bof then
		response.write"<tr><td width='100%' height='100' align='center' colspan='7' class=""main_info"">当前列表为空</td></tr></form></TABLE>"
	Else
		pagedw="条记录"
		totalPut=rs.recordcount
		if currentpage<1 Then currentpage=1
		if (currentpage-1)*MaxPerPage>totalput then
			if (totalPut mod MaxPerPage)=0 then
				currentpage= totalPut \ MaxPerPage
			else
				currentpage= totalPut \ MaxPerPage + 1
			end if
		end If
		if currentPage<>1 then
			if (currentPage-1)*MaxPerPage<totalPut then
				rs.move  (currentPage-1)*MaxPerPage
				dim bookmark
				bookmark=rs.bookmark				
			else
				currentPage=1
			end If
		end If
		showContent
		showpage strFileName,totalput,MaxPerPage,true,false,pagedw
	end If
	
sub showContent
	dim i
	i=0
	do while not rs.eof
		%>
		<tr align="center"> 
		<td class="art_info2">
			<input name='id' type='checkbox' class="chek" onclick="unselectall()" id="ArticleID" value='<%=Rs(0)%>' style=" border: 0px"> 
		</td>
			<td class="art_info2">&nbsp;<A HREF="admin_user.asp?action=edit&id=<%=Rs(0)%>"><%=Rs(1)%></A></td>
			<td class="art_info2">&nbsp;<%=Rs(2)%></td>
			<td class="art_info2">&nbsp;<%=Rs(3)%></td>
			<td class="art_info2">&nbsp;<%=Rs(4)%></td>
			<td class="art_info2">&nbsp;<A HREF="admin_Power.asp?id=<%=Rs(0)%>">权限编辑</A></td>
			 </tr>
	<%
		i=i+1
		if i>=MaxPerPage then exit do
		rs.movenext
	loop
	%>	
		<tr><td colspan=7 align="center">
		&nbsp;&nbsp;<input name="chkAll" class="chek" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox" style=" border: 0px">
							  选中本页显示的所有标题&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onclick="ConfirmDel('del');" class="butt">删除选定的标题</a>
		</td></tr>
		</form>
		</TABLE>
				</td>
			</tr>
		</table>
		<%
		end sub

ElseIf action="add" Then
response.write "<h1>管理员资料添加</h1><table width=""100%"" cellspacing=""1"" cellpadding=""0"" class=""info_tab"">"&_
	"<FORM METHOD=POST ACTION=""admin_user.asp?action=save""><TR><TD colspan=2 class=""art_tit zq""><A HREF=""admin_user.asp?action=list"">返回管理员列表</A></TD></TR>"
	For i=0 To UBound(users)
		response.write "<TR><TD class=""zq"" width=""20%"">"&users(i)&"</TD><TD>&nbsp;"
			response.write "<INPUT TYPE="""
			If i=1 Then 
				response.write "a_PassWord"
			Else
				response.write "text"
			End If
			response.write """ NAME="""&userslm(i)&""">"
		response.write "</TD></TR>"
	Next
	%>
	<TR>
	<TD> </TD>
	<TD>&nbsp;<INPUT TYPE="submit" value="确认添加"></TD>
</TR>
</FORM>
</TABLE>
<%
ElseIf action="save" Then
	Call jstable
	If a_UserId = "" or a_PassWord = "" or a_UserName = "" Then errormsg "参数错误"
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_User] WHERE id=0"
	rs.Open Sql, Conn, 1, 3
	rs.AddNew
	Call sqltable("add")
	rs.Update
	rs.close
	rightmsg "admin_user.asp?action=list",""



ElseIf action="edit" Then 
If id="" Then id=session("admin_id")
Sql_Lists="a_UserId,a_UserName,a_PassWord"
Sql_tables="Admin_User"
Sql_Conditions=" ID = "&id
sql=Sqlinfo(Sql_Lists,Sql_tables,Sql_Conditions,Sql_Sortings,Sql_Orders,Sql_Additional)
member_edit = connopen(sql)
If isArray(member_edit) Then
	response.write "<h1>管理员资料修改</h1><table width=""100%"" cellspacing=""1"" cellpadding=""0"" class=""info_tab"">"&_
	"<FORM METHOD=POST ACTION=""admin_user.asp?action=mod""><TR><TD colspan=2 class=""art_tit zq""><A HREF=""admin_user.asp?action=list"">返回管理员列表</A></TD></TR>"
	For i=0 To UBound(users)
		response.write "<TR><TD class=""zq"" width=""20%"">"&users(i)&"</TD><TD>&nbsp;"
		If i<>0 Then	
				response.write "<INPUT TYPE="""
				If i=2 Then 
					response.write "PassWord"
					response.write """ NAME="""&userslm(i)&""" value="""">"
				else
					response.write "text"
					response.write """ NAME="""&userslm(i)&""" value="""&member_edit(i,0)&""">"
				End If
		Else
			response.write member_edit(i,0)
		End If 
		response.write "</TD></TR>"
	Next
Else
	errormsg "参数错误"
End If

%>
<TR>
	<TD> </TD>
	<TD>&nbsp;<INPUT TYPE="submit" value="确认修改"><INPUT TYPE="hidden" NAME="id" value="<%=id%>"></TD>
</TR>
</FORM>
</TABLE>
<%



ElseIf action="mod" Then
	Call jstable
	set rs=server.createobject("adodb.recordset")
	Sql = "SELECT * FROM [Admin_User] WHERE id="&id
	rs.Open Sql, Conn, 1, 3
	If Not rs.Eof Then
	Call sqltable("mod")
	rs.Update
	Else
	errormsg "参数错误"
	End If
	rs.close
	rightmsg "admin_user.asp?action=list",""

ElseIf action="del" Then
if id="" then errormsg "参数错误！"
set dels=conn.execute("delete from Admin_User where id in ("&id&")")
set dels=Nothing 
rightmsg "admin_user.asp?action=list",""

Else

End If

Sub jstable()
	a_UserId = che(request("a_UserId"))
	a_PassWord = md5(md5(che(request("a_PassWord"))))
	a_UserName = che(request("a_UserName"))

End Sub
Sub sqltable(types)
If types="add" Then
	rs("a_UserId") = a_UserId
	rs("a_PassWord") = a_PassWord
else
	If a_PassWord<>"" Then rs("a_PassWord") = a_PassWord
End If
	rs("a_UserName") = a_UserName
End Sub
%>
<!--#include file="admin_page_footer.asp"-->