📄 admin_labelfield.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 TableName, FieldName, FieldIndex
Dim TempType, FieldType, rs

TableName = EL_Common.ELRequest("TableName", 1)
FieldName = EL_Common.ELRequest("FieldName", 1)
FieldIndex = EL_Common.ELRequest("FieldIndex", 2)

TempType = EL_Common.GetFieldValue("B.name", "syscolumns A,systypes B", "A.id=object_id('"& TableName &"') And A.xtype=B.xtype And A.name='"& FieldName &"' And B.Name<>'sysname'")
TempType = LCase(TempType)
Select Case TempType
   Case "bigint", "decimal", "float", "int", "money", "real", "smallint", "tinyint", "numeric", "smallmoney":  
      FieldType = 1
   Case "smalldatetime", "datetime" :
      FieldType = 3
   Case "bit":
      FieldType = 2
   Case Else:
      FieldType = 0
End Select

%>
<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 SetOutType(Type){
   switch(parseInt(Type)){
      case 0: //文本类型
	     getObject("Tr_OutLen").style.display = "";
		 getObject("Tr_OutFliter").style.display = "";
		 getObject("Tr_OutDateType").style.display = "none";		 
		 getObject("Tr_Decimal").style.display = "none";
		 getObject("Tr_BoolTrue").style.display = "none";
		 getObject("Tr_BoolFalse").style.display = "none";
		 break;
	  case 1: //数字类型
	     getObject("Tr_OutLen").style.display = "none";
		 getObject("Tr_OutFliter").style.display = "none";
		 getObject("Tr_OutDateType").style.display = "none";
		 getObject("Tr_Decimal").style.display = "";
		 getObject("Tr_BoolTrue").style.display = "none";
		 getObject("Tr_BoolFalse").style.display = "none";
		 break;
	  case 2: //布尔类型（是否）
	     getObject("Tr_OutLen").style.display = "none";
		 getObject("Tr_OutFliter").style.display = "none";
		 getObject("Tr_OutDateType").style.display = "none";
		 getObject("Tr_Decimal").style.display = "none";
		 getObject("Tr_BoolTrue").style.display = "";
		 getObject("Tr_BoolFalse").style.display = "";
		 break;
	  case 3: //日期类型
	     getObject("Tr_OutLen").style.display = "none";
		 getObject("Tr_OutFliter").style.display = "none";
		 getObject("Tr_OutDateType").style.display = "";
		 getObject("Tr_Decimal").style.display = "none";
		 getObject("Tr_BoolTrue").style.display = "none";
		 getObject("Tr_BoolFalse").style.display = "none";
		 break;
	  default:break;
   }
}
function OK(){
   var Label = "";
   var Type = getObject("OutType").value;
   Label = "{$Field(";
   Label += "<%=FieldIndex%>"; //字段序号索引
   Label += ", "+ Type; //输出类型
   switch(parseInt(Type)){
      case 0:
	     Label += ", "+ getObject("OutLen").value; //输出长度
		 Label += ", "+ getObject("OutFliter").value; //过滤
		 break;
	  case 1:
	     Label += ", "+ getObject("Decimal").value; //输出小数点
		 Label += ", 0"; //补足参数
		 break;
	  case 2:
	     Label += ", "+ getObject("BoolTrue").value; //真
		 Label += ", "+ getObject("BoolFalse").value; //假
		 break;
	  case 3:
	     Label += ", "+ getObject("OutDateType").value; //输出格式
		 Label += ", 0"; //补足参数
		 break;
	  default:break;
   }
   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="<%=FieldName%>" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>当前字段类型：</strong></td>
    <td class="td_25"><input type="text" value="<%=TempType%>" readonly="true"></td>
  </tr>
  <tr>
    <td width="114" align="right" class="td_ItemName"><strong>输出类型：</strong></td>
    <td width="281" class="td_25">
	<select name="OutType" id="OutType" onChange="SetOutType(this.value)">
	  <option value="0" <%=EL_Common.SetObjectSelected(0, FieldType)%>>文本类型</option>
	  <option value="1" <%=EL_Common.SetObjectSelected(1, FieldType)%>>数字类型</option>
	  <option value="2" <%=EL_Common.SetObjectSelected(2, FieldType)%>>布尔类型（是否）</option>
	  <option value="3" <%=EL_Common.SetObjectSelected(3, FieldType)%>>日期类型</option>
    </select>    </td>
  </tr>
  <tr id="Tr_OutLen">
    <td align="right" class="td_ItemName"><strong>截取字符长度：</strong></td>
    <td class="td_25"><input name="OutLen" type="text" id="OutLen" value="0" size="10">
      <span class="redText">0为显示全部</span></td>
  </tr>
  <tr id="Tr_OutFliter">
    <td align="right" class="td_ItemName"><strong>字符过滤选项：</strong></td>
    <td class="td_25"><select name="OutFliter" id="OutFliter">
      <option value="0">不过滤直接输出</option>
      <option value="1">过滤HTML输出</option>
      <option value="2" selected>解析HTML输出</option>
    </select>    </td>
  </tr>
  <tr id="Tr_Decimal">
    <td align="right" class="td_ItemName"><strong>小数点位数：</strong></td>
    <td class="td_25"><input name="Decimal" type="text" id="Decimal" value="0" size="10"></td>
  </tr>
  <tr id="Tr_OutDateType">
    <td align="right" class="td_ItemName"><strong>输出格式：</strong></td>
    <td class="td_25"><select name="OutDateType" id="OutDateType">
      <option value="0">原始格式</option>
      <option value="1">年-月-日</option>
      <option value="2" selected>月-日</option>
    </select>    </td>
  </tr>
  <tr id="Tr_BoolTrue">
    <td align="right" class="td_ItemName"><strong>布尔值[真]：</strong></td>
    <td class="td_25"><input name="BoolTrue" type="text" id="BoolTrue" value="是" size="15"></td>
  </tr>
  <tr id="Tr_BoolFalse">
    <td align="right" class="td_ItemName"><strong>布尔值[假]：</strong></td>
    <td class="td_25"><input name="BoolFalse" type="text" id="BoolFalse" value="否" size="15"></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>
<script>SetOutType(<%=FieldType%>);</script>
</body>
</html>
<% Call ApplicationTerminate() %>
⌨️ 快捷键说明

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