user.asp

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

<%
'====================================================================
'= CnwyAsp 请假信息管理系统
'= 河南省宝丰县第二高级中学 文 三(2) 班
'= 作者:王铮(Cnwy)QQ32940696
'= Copyright (c) 2005 Cnwy Wang All Rights Reserved.
'=-------------------------------------------------------------------
'= 文件名称：user.asp
'= 摘    要：用户行为文件
'=-------------------------------------------------------------------
'= 开始编写日期：2005-08-26
'= 编写完成日期: 2005-08-31
'= 最后修改日期: 2005-09-02
'====================================================================
%>
<!--#include file="Conn.asp"-->
<!--#include file="Inc/Class_public.asp"-->
<!--#include file="Inc/Class_User.asp"-->
<!--#include file="Inc/Class_Html.asp"-->
<%
dim action,Cnwy_user,Cnwy_Html
set Cnwy_user=new CnwyAsp_user
set Cnwy_Html=new CnwyAsp_Html
action=trim(request.querystring("action"))
select case action
case "add.asp"
Cnwy_Html.MbHtml("top")
Cnwy_user.useradd()
Cnwy_Html.MbHtml("foot")
case "xg.asp"
Cnwy_Html.MbHtml("top")
Cnwy_user.userxg(0)
Cnwy_Html.MbHtml("foot")
case "Mxg.asp"
Cnwy_Html.MbHtml("top")
Cnwy_user.userxg(1)
Cnwy_Html.MbHtml("foot")
case "save.asp"
Cnwy_user.usersave()
case "Manage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_user.Muserpage()
Cnwy_Html.MbHtml("foot")
case "master.asp"
Cnwy_Html.MbHtml("top")
Cnwy_user.Master()
Cnwy_Html.MbHtml("foot")
case "MasterS.asp"
Cnwy_user.ManageUser(2)
case "zt.asp"
select case request.querystring("type")
case "lock"
Cnwy_user.ManageUser(0)
case "unlock"
Cnwy_user.ManageUser(1)
end select
case "del.asp"
Cnwy_user.ManageUser(3)
case "exit.asp"
Cnwy_user.userexit()
case "alluser.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.userhtml("alluser")
Cnwy_Html.MbHtml("foot")
case "online.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.userhtml("online")
Cnwy_Html.MbHtml("foot")
case "usermassage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.usermassage()
Cnwy_Html.MbHtml("foot")
case "massage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.massage(0)
Cnwy_Html.MbHtml("foot")
case "Smassage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.massage(1)
Cnwy_Html.MbHtml("foot")
case "Wmassage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.Msaddhtml()
Cnwy_Html.MbHtml("foot")
case "Mssave.asp"
Cnwy_user.Mssave()
case "Readmassage.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.readmassage()
Cnwy_Html.MbHtml("foot")
case "Msdel.asp"
Cnwy_User.Msdel()
case "duty.asp"
Cnwy_Html.MbHtml("top")
Cnwy_Html.dutyhtml()
Cnwy_Html.MbHtml("foot")
end select
set Cnwy_user=nothing
Set Cnwy_Html=nothing
%>