admin_user.asp

数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计成果。本系统采用ASP＋ACCESS架构

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

<%
'**************** 后台管理系统首页 *************
'** File: admin/index.asp V1.0 2005.05.08
'** Author: wwxbei
'***********************************************
if session("isAdminLoged")<>"logined" then
	Response.Write FSOFileRead("../html/admin_login.txt")
	Response.End
End if

dim txt, adminTxt

Select Case Request.QueryString("action")
	Case ""
		Call userList()
	Case "info"
		Call userInfo()
	Case "infoedit"
		Call userInfoEdit()
	Case "deluser"
		Call deluser()
	Case "listadmin"
		Call listAdmin()
	Case "addadmin"
		Call addadmin()
	Case "admininfo"
		Call admininfo()
	Case "deladmin"
		Call deladmin()
	Case "editadmin"
		Call editadmin()
	Case "editadminsave"
		Call editadminsave()
	Case "adminsave"
		Call adminSave()
End Select

Sub adminSave()
	Call DBConnBegin()
	Rs.open "select * from admin where id is null",conn,3,3
	Rs.addnew
	Rs("name") = trim(Request.Form("adminname"))
	Rs("password") = md5(trim(Request.Form("adminpass2")))
	Rs.update
	DBConnEnd()
	Response.Redirect ("admin_user.asp?action=listadmin")
End Sub

Sub deladmin()
	Call DBConnBegin()
	Conn.Execute("delete from admin where id="&request.querystring("id"))
	Call DBConnEnd()
	Response.Redirect ("admin_user.asp?action=listadmin")
End Sub

Sub editadmin()
	Call DBConnBegin()
	Sql="select * from admin where id="&Request.QueryString("id")
	Rs.Open Sql,conn,1,1
	txt = FSOFileRead("../html/admin_editadmin.txt")
	txt = Replace(txt,"{theName}",Rs("name"))
	txt = Replace(txt,"{theID}",Rs("id"))
	Call DBConnEnd()
End Sub

Sub editadminsave()
	Call DBConnBegin()
	Rs.open "select * from admin where id="&Request.Form("adminid"),conn,3,3
	Rs("name") = trim(Request.Form("adminname"))
	Rs("password") = md5(trim(Request.Form("adminpass2")))
	Rs.update
	DBConnEnd()
	Response.Redirect ("admin_user.asp?action=listadmin")
End Sub

Sub admininfo()
	Call DBConnBegin()
	Sql="select * from admin where id="&Request.QueryString("id")
	Rs.Open Sql,conn,1,1
	txt = FSOFileRead("../html/admin_info.txt")
	txt = Replace(txt,"{theName}",Rs("name"))
	'txt = Replace(txt,"{theTrueName}",Rs("truename"))
	txt = Replace(txt,"{theRegDay}",Rs("regday"))
	'txt = Replace(txt,"{theLogDay}",Rs("logday"))
	'txt = Replace(txt,"{theLogTimes}",Rs("logtimes"))
	'txt = Replace(txt,"{theLogIp}",Rs("logip"))
	'txt = Replace(txt,"{thePhone}",Rs("phone"))
	'txt = Replace(txt,"{theCellPhone}",Rs("cellphone"))
	txt = Replace(txt,"{theID}",Rs("id"))
	Call DBConnEnd()
End Sub

Sub addadmin()
	txt = FSOFileRead("../html/admin_addadmin.txt")
End Sub

Sub listAdmin()
dim strList, strList2
	Call DBConnBegin()
	Sql="select * from admin order by id desc"
	Rs.Open Sql,conn,1,1
	if Rs.BOF and Rs.EOF then
		txt="<div id='content'><h4>管理员列表</h4>数据库中还没有记录！</div>"
	else
		do while not Rs.EOF 
			strList = "<tr><td class='listcont'><a href='admin_user.asp?action=admininfo&id={theID}'>{theName}</a></td><td class='listtop1'>{theLogTimes}</td><td class='listtop1'><a href='admin_user.asp?action=editadmin&id={theID}'>编辑</a> <a href='admin_user.asp?action=deladmin&id={theID}'>删除</a></td></tr>"
			strList = Replace(strList,"{theName}",Rs("name"))
			strList = Replace(strList,"{theID}",Rs("id"))
			strList = Replace(strList,"{theLogTimes}",Rs("logtimes"))
			strList2= strList2 & strList
			RS.movenext 
		loop
		txt="<div id='content'><h4>管理员列表</h4><p>点击用户名查看详细信息</p><table><tr><td class='listtop1'>用户名</td><td class='listtop1'>登录次数</td><td class='listtop2'>操作</td></tr>"& strList2 & "</table><p/>" &"</div>"
	End if
	Call DBConnEnd()

End Sub

Sub userInfo()
	Call DBConnBegin()
	Sql="select * from student where id="&Request.QueryString("id")
	Rs.Open Sql,conn,1,1
	txt = FSOFileRead("../html/admin_info.txt")
	txt = Replace(txt,"{theName}",Rs("name"))
	txt = Replace(txt,"{theTrueName}",Rs("truename"))
	txt = Replace(txt,"{theNumber}",Rs("number"))
	txt = Replace(txt,"{theRegDay}",Rs("regday"))
	txt = Replace(txt,"{theLogDay}",Rs("logday"))
	txt = Replace(txt,"{theLogTimes}",Rs("logtimes"))
	txt = Replace(txt,"{theLogIp}",Rs("logip"))
	txt = Replace(txt,"{thePhone}",Rs("phone"))
	txt = Replace(txt,"{theCellPhone}",Rs("cellphone"))
	txt = Replace(txt,"{theClass}",Rs("class"))
	txt = Replace(txt,"{theID}",Rs("id"))
	Call DBConnEnd()
End Sub

Sub userInfoEdit()
	Call DBConnBegin()
	Sql="select * from student where id="&Request.QueryString("id")
	Rs.Open Sql,conn,1,1
	txt = FSOFileRead("../html/admin_infoedit.txt")
	txt = Replace(txt,"{theName}",Rs("name"))
	txt = Replace(txt,"{theTrueName}",Rs("truename"))
	txt = Replace(txt,"{theNumber}",Rs("number"))
	txt = Replace(txt,"{thePhone}",Rs("phone"))
	txt = Replace(txt,"{theCellPhone}",Rs("cellphone"))
	txt = Replace(txt,"{theClass}",Rs("class"))
	txt = Replace(txt,"{theID}",Rs("id"))
	Call DBConnEnd()
End Sub

Sub deluser()
	Call DBConnBegin()
	Conn.Execute("delete from student where id="&request.querystring("id"))
	Call DBConnEnd()
	Response.Redirect ("admin_user.asp")
End Sub			

Sub userList()
	dim strList, strList2, pagebar
	dim curpage,i
	Call DBConnBegin()
	Sql="select * from student order by id desc"
	if Request.QueryString("page")="" then
		curpage=1
	else 
		curpage=Request.QueryString("page")
	end if
	Rs.Open Sql,conn,1,1
	if Rs.BOF and Rs.EOF then
		txt="<div id='content'><h4>用户列表</h4>数据库中还没有记录！</div>"
	else
		RS.pagesize = 10
		RS.absolutepage = curpage 
		strList2=""
		for i = 0 to RS.pagesize-1
			strList = "<tr><td class='listtop1'>{theNumber}</td><td class='listtop1'>{theName}</td><td class='listtop1'><a href='admin_user.asp?action=info&id={theID}'>{theTrueName}</a></td><td class='listtop1'>{theLogTimes}</td></tr>"
			strList = Replace(strList,"{theNumber}",Rs("number"))
			strList = Replace(strList,"{theName}",Rs("name"))
			strList = Replace(strList,"{theID}",Rs("id"))
			strList = Replace(strList,"{theTrueName}",Rs("truename"))
			strList = Replace(strList,"{theLogTimes}",Rs("logtimes"))
			strList2= strList2 & strList
			RS.movenext 
			if RS.eof then
				i = i + 1
				exit for
			End If
		next 
		pagebar= ExportPageInfo(Rs, curpage, i, "admin_tiku.asp?action=list&tixing="&Request.QueryString("tixing")&"&")
		txt="<div id='content'><h4>用户列表</h4><p>点击用户名查看详细信息</p><table><tr><td class='listtop1'>学号</td><td class='listtop1'>用户名</td><td class='listtop1'>真实姓名</td><td class='listtop2'>登录次数</td></tr>"& strList2 & "</table><p/>" & pagebar &"</div>"
	End if
	Call DBConnEnd()
End Sub





adminTxt = FSOFileRead("../html/admin_user.txt")
adminTxt = replace(adminTxt, "{theRightFrmContent}", txt)
Response.write adminTxt
%>