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 + -
显示快捷键?