admin.asp

一个简历管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
'程序名称：萍萍多用户简历系统
'程序版本：v1.0
'开发环境：SQL Server 2005 + IIS6.0（SQL Server 2000也能用）
'程序设计：秋忆工作室
'作者网站：http://www.skymean.com
'联系邮箱：[e-mail]
%>
<!--#include file="inc/conn.asp" -->
<!--#include file="inc/Cls_system.asp" -->
<!--#include file="inc/Cls_page.asp" -->
<!--#include file="inc/Cls_md5.asp" -->
<!--#include file="inc/Cls_admin.asp" -->
<%
Dim action,A
action = LCase(Trim(Request.QueryString("action")))
Set A = New Admin

Select Case action
	Case "checklogin"
		A.CheckLogin()
	Case "logout"
		A.Logout()
	Case "main"
		rp.Head("注册用户管理")
		A.ShowRegUser()
		rp.Foot()
	Case "admin"
		rp.Head("管理员管理")
		A.ShowAdmin()
		rp.Foot()
	Case "addadmin"
		rp.Head("添加管理员")
		A.AddAdmin()
		rp.Foot()
	Case "modifysave"
		A.ModifySave()
	Case "saveadmin"
		A.SaveAdmin()
	Case "savenewadmin"
		A.SaveNewAdmin()
	Case Else
		rp.Head("管理登录")
		A.Login()
		rp.Foot()
End Select

Set A = Nothing
CloseAllObj()
%>