bookman.asp
来自「在线图书馆 在线图书馆在线图书馆在线图书馆在线图书馆」· ASP 代码 · 共 55 行
ASP
55 行
<!--#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 + =
减小字号Ctrl + -
显示快捷键?