📄 admin_labelpara.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#include File="Admin_CheckCode.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

If EL_Admin.Purview <> 1 Then
   If EL_Admin.CheckAdminPurview(11, 3) = False Then
      EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
   End If
End If


Dim ParaName, ParaIndex

ParaName = EL_Common.ELRequest("ParaName", 1)
ParaIndex = EL_Common.ELRequest("ParaIndex", 2)

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>参数输入</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript">
function OK(){
   var Label = "";
   var Type = getObject("InType").value;
   Label = "{$Para(";
   Label += "<%=ParaIndex%>"; //字段序号索引
   Label += ", "+ Type; //输出类型
   Label += ")}";
   if(Label!=""){
      window.returnValue = Label;
   }else{
      window.returnValue = null;
   }
   window.close();
}
</script>
<base target="_self">
</head>
<body>
<table width="400" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" align="center" class="top_item"><strong>参数输入</strong></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>参数名称：</strong></td>
    <td class="td_25"><input type="text" value="<%=ParaName%>" readonly="true"></td>
  </tr>
  <tr>
    <td width="114" align="right" class="td_ItemName"><strong>输入类型：</strong></td>
    <td width="281" class="td_25">
	<select name="InType" id="InType">
	  <option value="0">文本类型</option>
	  <option value="1" selected>数字类型</option>
	  <option value="2">布尔类型（是否）</option>
	  <option value="3">日期类型</option>
    </select>    </td>
  </tr>
  <tr>
    <td colspan="2" align="center" class="td_50"><input type="button" name="Submit" value=" 确定 " onClick="OK()">
      <input type="button" name="Submit2" value=" 取消 " onClick="window.close()"></td>
    </tr>
</table>

</body>
</html>
<% Call ApplicationTerminate() %>
⌨️ 快捷键说明

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