📄 admin_field.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName%>自定义字段管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong><%=EL_Channel.ChannelName%>自定义字段管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_Field.asp?ChannelID=<%=EL_Channel.ChannelID%>">自定义字段管理首页</a> | <a href="Admin_Field.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Add">添加自定义字段</a></td>
  </tr>
</table>
<br>
<%
If EL_Admin.Purview <> 1 And EL_Admin.Purview <> 2 Then
   EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If

Select Case Action
  Case "": Call ManageField()
  Case "Add": Call AddField()
  Case "SaveNewField": Call SaveField(0)
  Case "Modify": Call ModifyField()
  Case "SaveModify": Call SaveField(1)
  Case "Delete": Call SaveField(2)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SaveField(UpdateType)
  On Error Resume Next
  Dim FieldCmd
  Dim FieldID, FieldName, Title, Hint, FieldType, ArrOptions, DefaultValue, Need
  
  FieldID = EL_Common.ELRequest("FieldID", 2)
  FieldName = EL_Common.ELRequest("FieldName", 1)
  Title = EL_Common.ELRequest("Title", 1)
  Hint = EL_Common.ELRequest("Hint", 1)
  FieldType = EL_Common.ELRequest("FieldType", 2)
  ArrOptions = EL_Common.ELRequest("ArrOptions", 1)
  DefaultValue = EL_Common.ELRequest("DefaultValue", 1)
  Need = EL_Common.ELRequest("Need", 2)
  
  Call EL_Common.InitCommand(FieldCmd, "EL_SP_Field")
  With FieldCmd
    .Parameters.Append .CreateParameter("RETURN", 2, 4)
	.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
	.Parameters.Append .CreateParameter("@FieldID", 3, 1, 4, FieldID)
	.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
	.Parameters.Append .CreateParameter("@FieldName", 200, 1, 50, FieldName)
	.Parameters.Append .CreateParameter("@Title", 200, 1, 20, Title)
	.Parameters.Append .CreateParameter("@Hint", 200, 1, 50, Hint)
	.Parameters.Append .CreateParameter("@FieldType", 3, 1, 4, FieldType)
	.Parameters.Append .CreateParameter("@ArrOptions", 203, 1, EL_Common.LenParameter(ArrOptions), ArrOptions)
	.Parameters.Append .CreateParameter("@DefaultValue", 200, 1, 255, DefaultValue)
	.Parameters.Append .CreateParameter("@Need", 11, 1, 1, Need)
	.Execute()
  End With
  Select Case FieldCmd(0)
    Case 40: EL_Common.ShowErrorMsg("频道参数错误") : Set FieldCmd = Nothing : Exit Sub
	Case 41: EL_Common.ShowErrorMsg("已经存在字段名：<span class=redtext>"& FieldName &"</span>") : Set FieldCmd = Nothing : Exit Sub
	Case 42: EL_Common.ShowErrorMsg("指定字段不存在") : Set FieldCmd = Nothing : Exit Sub
  End Select
  Set FieldCmd = Nothing
  EL_Common.ShowScriptError()
  Select Case UpdateType
    Case 0: EL_Common.ShowSuccessMsg("成功添加字段：<span class=bluetext>"& FieldName &"</span>")
	Case 1: EL_Common.ShowSuccessMsg("成功修改字段：<span class=bluetext>"& Request("mFieldName") &"</span>")
	Case 2: Response.Redirect ComeURL
  End Select  
End Sub

Sub ModifyField()
On Error Resume Next
Dim FieldCmd, rsField, FieldID
FieldID = EL_Common.ELRequest("FieldID", 2)
Call EL_Common.InitCommonCmd(FieldCmd, rsField, "EL_Field", "*", "ChannelID="& EL_Channel.ChannelID &" AND FieldID="& FieldID)
rsField.Close()
If FieldCmd(0) <> 1 Then
   Set rsField = Nothing
   Set FieldCmd = Nothing
   EL_Common.ShowErrorMsg("指定字段不存在")
   Exit Sub
End If
rsField.Open()
%>
<script language="javascript">
function Check(frm){
   if(frm.FieldName.value.trim()=="" || frm.FieldName.value.trim().length<=3){
      alert("请输入字段名称");
	  frm.FieldName.focus();
	  return false;
   }else if(frm.FieldName.value.substring(0,3) != "MY_"){
      alert("字段名称必须以“MY_”开头");
	  frm.FieldName.focus();
	  return false;
   }else{
      var pattern = /^[a-zA-Z_]+$/i;
	  if(!pattern.test(frm.FieldName.value)){
	     alert("字段名称只能为英文和“_”的组合");
		 frm.FieldName.focus();
		 return false;
	  }
   }
   if(frm.Title.value.trim()==""){
      alert("请输入字段标题");
	  frm.Title.focus();
	  return false;
   }
   if(frm.FieldType.value == "3"){
      if(frm.ArrOptions.value.trim()==""){
	     alert("请输入下拉列表值");
		 frm.ArrOptions.focus();
		 return false;
	  }
   }
   if(frm.DefaultValue.value.trim() != ""){
      if(frm.FieldType.value =="4"){
	     if(!CheckDate(frm.DefaultValue.value) && !CheckDateTime(frm.DefaultValue.value)){
		    alert("你输入默认值的数据类型不正确");
			frm.DefaultValue.focus();
			return false;
		 }
	  }
	  if(frm.FieldType.value == "5" || frm.FieldType.value == "6"){
	     if(isNaN(frm.DefaultValue.value)){
		    alert("你输入默认值的数据类型不正确");
			frm.DefaultValue.focus();
			return false;
		 }
	  }
	  if(frm.FieldType.value == "7"){
	     if(frm.DefaultValue.value !="1" && frm.DefaultValue.value !="0"){
		    alert("你输入默认值的数据类型不正确");
			frm.DefaultValue.focus();
			return false;
		 }
	  }
   }
   if(frm.Need[0].checked){
      if(frm.FieldType.value != "3"){
	     if(frm.DefaultValue.value == ""){
		    alert("必填字段必须输入默认值");
			frm.DefaultValue.focus();
			return false;
		 }
	  }
   }
   SubmitOnce(frm);
   return true;
}
</script>
<form name="myform" action="Admin_Field.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="2" class="top_25"><strong>修改自定义字段</strong></td>
  </tr>
  <tr>
    <td width="29%" class="td_ItemName"><strong>字段名称</strong><br>
      请使用英文，并且以“<span class="redText">MY_</span>”开头<br>
    如：MY_UpdateTime</td>
    <td width="71%" class="td_25"><input name="sFieldName" type="text" disabled id="sFieldName" value="<%=rsField("FieldName")%>" size="30" maxlength="50">
      <input name="mFieldName" type="hidden" id="mFieldName" value="<%=rsField("FieldName")%>"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>前台标签调用</strong></td>
    <td class="td_25"><input name="Label" type="text" id="Label" value="{$<%=rsField("FieldName")%>}"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>字段标题</strong><br>
      在显示的标题名称<br>
      如：更新日期</td>
    <td class="td_25"><input name="Title" type="text" id="Title" value="<%=EL_Common.ServerHTMLEncode(rsField("Title"))%>" size="30" maxlength="20"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>录入提示</strong><br>
      在录入信息时显示在标题旁边的提示</td>
    <td class="td_25"><textarea name="Hint" cols="50" rows="3" id="Hint"><%=EL_Common.ServerHTMLEncode(rsField("Hint"))%></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>字段类型</strong></td>
    <td class="td_25">
	<select name="FieldType" id="FieldType" disabled>
	<option>
    <%
	  Select Case rsField("FieldType")
	    Case 1: Response.Write "单行文本"
		Case 2: Response.Write "多行文本"
		Case 3: Response.Write "下拉列表"
		Case 4: Response.Write "时间日期"
		Case 5: Response.Write "数字"
		Case 6: Response.Write "货币"
		Case 7: Response.Write "布尔型（是否）"
	  End Select
	%>
	</option>
    </select></td>
  </tr>
  <% If rsField("FieldType") = 3 Then%>
  <tr id="td_List">
    <td class="td_ItemName"><strong>下拉列表值</strong><br>
      每一行为一个列表项目</td>
    <td class="td_25"><textarea name="ArrOptions" cols="50" rows="6" id="ArrOptions"><%=EL_Common.ServerHTMLEncode(rsField("ArrOptions"))%></textarea></td>
  </tr>
  <% End If %>
  <tr>
    <td class="td_ItemName"><strong>默认值</strong><br>
      默认值的类型必须符合字段类型<br>
      <span class="BlueText">下拉菜单：写默认项的值<br>
      布尔型：1代表是，0代表否</span></td>
    <td class="td_25"><input name="DefaultValue" type="text" id="DefaultValue" value="<%=EL_Common.ServerHTMLEncode(rsField("DefaultValue"))%>" size="52"></td>
  </tr>
  <tr>
12 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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