📄 admin_selecthotel.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.CacheControl = "no-cache"
%>
<!--#Include File="../Conn.asp"-->
<!--#include File="Class/Admin_ClassAdmin.asp"-->
<!--#include File="Class/Admin_ClassCommon.asp"-->
<%
Sub ApplicationTerminate()
On Error Resume Next
Set EL_Admin = Nothing
Set EL_Common = Nothing
Call CloseConn()
If Err Then Err.Clear
Response.End()
End Sub
Dim EL_Admin, EL_Common
Set EL_Admin = New Class_Admin
Set EL_Common = New Class_Common
If EL_Admin.ErrorCode = 1 Then
Response.Write "请登陆后在使用此功能"
Call ApplicationTerminate()
ElseIf EL_Admin.ErrorCode = 2 Then
Response.Write "<font color=red>系统禁止了两个人使用同一帐号同时登陆系统，此帐号已经在别的地方登陆。</font>"
Call ApplicationTerminate()
End If
%>
<html>
<head>
<title>选择酒店</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<base target="_self">
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -