📄 bookman.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Bookclass.asp" -->
<%
Dim action
action=LCase(Request.QueryString("action"))
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>书籍信息添加与修改</title>
<link rel="stylesheet" href="stylecss.css" type="text/css">
<%if action="add" or action="modify" then%>
<link rel="stylesheet" href="style.css" type="text/css">
<style type="text/css">
<!--
table {
font-size: 9pt;
text-decoration: none;
border: 1px solid #000000;
}
-->
</style><%end if%>
</head>
<body>
<%
Call DBConnBegin()
Dim RMObject
Set RMObject=new BookManagerClass
Set RMObject.ActionConn=oConn
'Dim action
'action=LCase(Request.QueryString("action"))
If InStr("add,list,modify,delete,set",action)=0 Then
Response.Write "错误的参数"
Response.End
End If
Select Case action
Case "add"
RMObject.AddPage()
Case "modify"
RMObject.ModifyPage()
Case "list"
RMObject.ListPage()
Case "delete"
RMObject.DeletePage()
Case "set"
RMObject.SetPage()
Case Else
RMObject.ListPage()
End Select
Set RMObject=Nothing
Call DBConnEnd()
%></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -