booktypeman.asp

来自「在线图书馆 在线图书馆在线图书馆在线图书馆在线图书馆」· ASP 代码 · 共 54 行

ASP
54
字号
<!--#include file="conn.asp"-->
<!--#include file="Typeclass.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 TypeManagerClass
Set RMObject.ActionConn=oConn
RMObject.tablename="BookTypeInfo"
RMObject.field="BookTypeName"
RMObject.attributename="书籍类型" 
If InStr("add,list,modify,delete",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 Else
    RMObject.ListPage()
End Select
Set RMObject=Nothing
Call DBConnEnd()
%></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?