manage.asp

STM32 Keil 下的驱动STM32 Keil 下的驱动

<%
'====================================================================
'= CnwyAsp 请假信息管理系统
'= 河南省宝丰县第二高级中学 文 三(2) 班
'= 作者:王铮(Cnwy)QQ32940696
'= Copyright (c) 2005 Cnwy Wang All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：user.asp
'= 摘    要：用户行为文件
'=-------------------------------------------------------------------
'= 开始编写日期：2005-08-31
'= 编写完成日期: 
'= 最后修改日期
'====================================================================
%>
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Class_public.asp"-->
<!--#include file="Inc/Class_User.asp"-->
<!--#include file="Inc/Class_Html.asp"-->
<!--#include file="Inc/Class_Manage.asp"-->
<%
dim action
dim Cnwy_user,Cnwy_Html,Cnwy_Manage
set Cnwy_user=new CnwyAsp_user
set Cnwy_Html=new CnwyAsp_Html
set Cnwy_Manage=new CnwyAsp_Manage
action=trim(request.querystring("action"))
select case action
case "system.asp"
Cnwy_user.checkmaster(1)
Cnwy_Html.MbHtml("top")
Cnwy_Html.systemhtml()
Cnwy_Html.Mbhtml("foot")
case "sysxg.asp"
Cnwy_Manage.system()
case "Mduty.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Mdutyhtml()
Cnwy_Html.Mbhtml("foot")
case "Sduty.asp"
Cnwy_Manage.Sduty()
case "jg.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.framehtml()
Cnwy_Html.Mbhtml("foot")
case "framexg.asp"
Cnwy_Manage.framexg()
case "Announce.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Announcehtml()
Cnwy_Html.Mbhtml("foot")
case "Vacation.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.vacationhtml()
Cnwy_Html.Mbhtml("foot")
case "vacadd.asp"
Cnwy_Manage.vacadd()
case "Myedit.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(0)
Cnwy_Html.Mbhtml("foot")
case "reVinfo.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(1)
Cnwy_Html.Mbhtml("foot")
case "PassVinfo.asp"
Cnwy_user.checkduty("B")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(2)
Cnwy_Html.Mbhtml("foot")
case "PassedVinfo.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(3)
Cnwy_Html.Mbhtml("foot")
case "TestVinfo.asp"
Cnwy_user.checkduty("C")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(4)
Cnwy_Html.Mbhtml("foot")
case "TstVac.asp"
Cnwy_user.checkduty("C")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(7)
Cnwy_Html.Mbhtml("foot")
case "TestedVinfo.asp"
Cnwy_user.checkduty("C")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(5)
Cnwy_Html.Mbhtml("foot")
case "TesteVinfo.asp"
Cnwy_user.checkduty("C")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.Handlevachtml(6)
Cnwy_Html.Mbhtml("foot")
case "Vacinfo.asp"
Cnwy_Html.Mbhtml("top")
Cnwy_Html.vacinfohtml()
Cnwy_Html.Mbhtml("foot")
case "Vacpass.asp"
Cnwy_user.checkduty("B")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.passhtml(0)
Cnwy_Html.Mbhtml("foot")
case "Nvacpass.asp"
Cnwy_user.checkduty("B")
Cnwy_Html.Mbhtml("top")
Cnwy_Html.passhtml(1)
Cnwy_Html.Mbhtml("foot")
case "vacps.asp"
Cnwy_user.checkduty("B")
Cnwy_Manage.vachandle 0,0
case "vacpn.asp"
Cnwy_user.checkduty("B")
Cnwy_Manage.vachandle 0,1
case "Vactests.asp"
Cnwy_user.checkduty("C")
Cnwy_Manage.vachandle 1,0
case "Vactesto.asp" 
Cnwy_user.checkduty("C")
Cnwy_Manage.vachandle 2,0
case "Annaction.asp"
Cnwy_user.checkmaster(1)
Cnwy_Manage.Annunceaction()
case "AnnManage.asp"
Cnwy_user.checkmaster(1)
Cnwy_Html.Mbhtml("top")
Cnwy_Html.AnnManageHtml()
Cnwy_Html.Mbhtml("foot")
case "Anndel.asp"
Cnwy_Manage.Anndel()
end select
set Cnwy_user=nothing
set Cnwy_Html=nothing
set Cnwy_Manage=nothing
%>