admin_field.asp

依蓝旅游网站管理系统Elan2008.SP2

    <td class="td_ItemName"><strong>是否必填</strong></td>
    <td class="td_25"><input name="Need" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsField("Need"))%>>
      是
      <input name="Need" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsField("Need"))%>>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="保存修改">
    <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
    <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
    <input name="Action" type="hidden" id="Action" value="SaveModify">
    <input name="FieldID" type="hidden" id="FieldID" value="<%=FieldID%>"></td>
  </tr>
</table>
</form>
<%
rsField.Close()
Set rsField = Nothing
Set FieldCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ManageField()
On Error Resume Next
Dim FieldCmd, rsField, RowCount, i
Call EL_Common.InitCommonCmd(FieldCmd, rsField, "EL_Field", "FieldID,FieldName,Title,FieldType,DefaultValue,Need", "ChannelID="& EL_Channel.ChannelID &" ORDER BY [FieldID] DESC")
rsField.Close()
RowCount = FieldCmd(0)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td width="5%" align="center" class="top_25"><strong>ID</strong></td>
    <td width="13%" align="center" class="top_25"><strong>字段名称</strong></td>
    <td width="15%" align="center" class="top_25"><strong>前台调用</strong></td>
    <td width="16%" align="center" class="top_25"><strong>标题</strong></td>
    <td width="12%" align="center" class="top_25"><strong>字段类型</strong></td>
    <td width="21%" align="center" class="top_25"><strong>默认值</strong></td>
    <td width="7%" align="center" class="top_25"><strong>是否必填</strong></td>
    <td width="11%" align="center" class="top_25"><strong>相关操作</strong></td>
  </tr>
  <%
    If RowCount = 0 Then
	   Response.Write "<tr><td class=td_25 colspan=7>没有自定义字段，<a href='Admin_Field.asp?ChannelID="& EL_Channel.ChannelID &"&Action=Add' style='color:blue'>点击添加</a></td></tr>"
	Else
	   rsField.Open()
	   For i = 1 To RowCount
  %>
  <tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
    <td align="center"><%=rsField(0)%></td>
    <td align="center"><%=rsField(1)%></td>
    <td align="center">{$<%=rsField(1)%>}</td>
    <td align="center"><%=rsField(2)%></td>
    <td align="center">
	<%
	  Select Case rsField(3).value
	    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
	%>	</td>
    <td align="center"><%=rsField(4)%></td>
    <td align="center"><%=EL_Common.ShowBoolean(rsField(5).value, "<span class=bluetext>是</span>", "<span class=graytext>否</span>")%></td>
    <td align="center" nowrap>
	<a href="Admin_Field.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Modify&FieldID=<%=rsField(0)%>">修改</a> | 
	<a href="Admin_Field.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Delete&FieldID=<%=rsField(0)%>" onClick="return confirm('本次操作将从数据表中彻底删除字段，不能恢复，确认要执行删除吗？')">删除</a>	</td>
  </tr>
  <%
          If i<RowCount Then rsField.MoveNext
	   Next
	   rsField.Close()
	End If
  %>
</table>
<%
Set rsField = Nothing
Set FieldCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub AddField()
On Error Resume Next
%>
<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="FieldName" type="text" id="FieldName" value="MY_" size="30" maxlength="30" onKeyUp="getObject('Label').value='{$'+ this.value +'}'"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>前台标签调用</strong></td>
    <td class="td_25"><input name="Label" type="text" id="Label" value="{$MY_}" readonly="true"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>字段标题</strong><br>
      在显示的标题名称<br>
      如：更新日期</td>
    <td class="td_25"><input name="Title" type="text" id="Title" size="30"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>录入提示</strong><br>
      在录入信息时显示在标题旁边的提示</td>
    <td class="td_25"><textarea name="Hint" cols="50" rows="3" id="Hint"></textarea></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>字段类型</strong></td>
    <td class="td_25"><select name="FieldType" id="FieldType" onChange="if(this.value == '3'){ document.getElementById('td_List').style.display='';}else{ document.getElementById('td_List').style.display='none'; }">
        <option value="1" selected>单行文本</option>
        <option value="2">多行文本</option>
        <option value="3">下拉列表</option>
        <option value="4">时间日期</option>
        <option value="5">数字</option>
        <option value="6">货币</option>
        <option value="7">布尔型（是否）</option>
    </select></td>
  </tr>
  <tr id="td_List" style="display:none; ">
    <td class="td_ItemName"><strong>下拉列表值</strong><br>
      每一行为一个列表项目</td>
    <td class="td_25"><textarea name="ArrOptions" cols="50" rows="6" id="ArrOptions"></textarea></td>
  </tr>
  <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" size="52"></td>
  </tr>
  <tr>
    <td class="td_ItemName"><strong>是否必填</strong></td>
    <td class="td_25"><input name="Need" type="radio" class="nomargin" value="<%=EL_True%>">
      是
      <input name="Need" type="radio" class="nomargin" value="<%=EL_False%>" checked>
      否</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit" value="添加字段">
    <input type="button" name="Submit2" value="返回上页" onClick="history.back()">
    <input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
    <input name="Action" type="hidden" id="Action" value="SaveNewField"></td>
  </tr>
</table>
</form>
<%
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>