?? typeman.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="Userclass.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 UserManagerClass
Set RMObject.ActionConn=oConn
'Dim action
'action=LCase(Request.QueryString("action"))
If InStr("add,list,modify,delete,set",action)=0 Then
Response.Write "錯誤的參數(shù)"
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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -