📄 act.listm.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>模型管理</title>
<link href="../Images/css1/css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/javascript" src="../../ACT_inc/Prototype.js"></script>
<script language="JavaScript" type="text/javascript" src="../../ACT_inc/ActHelp.js"></script>
</head>
<body onload="SelectModelType()">
<% dim Rs,ModeID,FieldSql,Action,FieldName,FieldType,ColumnType,TableName,Title,Text_Default,TitleSize
Dim IsNotNull,MultipleTextType_Width,MultipleTextType_Height,ID,Type_Default,FieldRS,Description,Type_Type
Dim NType_Default,RadioType_Content,ListBoxType_Content,Content,RadioType_Type,ListBoxType_Type,ISType
Dim SupportHtmlType_Width,SupportHtmlType_Heigh
Dim IsEditor
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
if ModeID=0 or ModeID="" Then ModeID=1
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，你没有操作权限！","")
TableName=ACTCMS.ACT_C(ModeID,2)
ID=ACTCMS.ChkNumeric(Request("ID"))
Action = Request.QueryString("A")
Select Case Action
Case "AddSave"
Call AddSave()
Case "ESave"
Call Esave()
Case "A","E"
Call AddEdit()
Case Else
Call Main()
End Select
IF Action = "Del" Then
Dim FieldN
FieldN=ACTCMS.ACTEXE("Select FieldName From Table_ACT Where ID=" & ID)(0)
ACTCMS.ACTEXE("Delete from Table_ACT Where ID=" & ID & "")
ACTCMS.ACTEXE("Alter Table "& TableName &" Drop column "& FieldN &"")
Call Actcms.ActErr("删除字段成功 <a href=Mode/ACT.ListM.ASP?A=L&ModeID="&ModeID&">点击这里返回管理首页</a>","")
End IF
IF Request("A") = "N" Then
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
Conn.Execute("Update Table_ACT Set OrderID="&ACTCMS.ChkNumeric(Request("OrderID"))&" Where ID=" & ACTCMS.ChkNumeric(Request("ID")) & "")
Response.Redirect "?A=L&ModeID=" & ModeID
End If
Sub AddSave()
FieldType=ACTCMS.S("FieldType")
Title=ACTCMS.S("Title")
IsNotNull=ACTCMS.ChkNumeric(ACTCMS.S("IsNotNull"))
ISType=ACTCMS.ChkNumeric(ACTCMS.S("ISType"))
Type_Default=ACTCMS.S("Type_Default")
Description=ACTCMS.S("Description")
IF ACTCMS.Chkchars(Request.Form("FieldName")) = False Then
Call Actcms.ActErr("英文名称只能为英文、数字及下划线 <a href=Mode/ACT.ListM.ASP?A=L&ModeID="&ModeID&">点击这里返回管理首页</a>","")
Else
FieldName=ACTCMS.S("FieldName")&"_ACT"
End if
Dim ActMode_Width,ActMode_Height
'长度.宽度.
Select Case FieldType
Case "TextType"'单行文本
ActMode_Width = ACTCMS.ChkNumeric(ACTCMS.S("TitleSize"))'文本框长度
ColumnType="varchar(255)"
Case "MultipleTextType"'多行文本(不支持Html
ActMode_Width = ACTCMS.ChkNumeric(ACTCMS.S("MultipleTextType_Width"))
ActMode_Height = ACTCMS.ChkNumeric(ACTCMS.S("MultipleTextType_Height"))
ColumnType="text"
Case "MultipleHtmlType"'多行文本(支持Html)
Content = ACTCMS.S("IsEditor")'编辑器属性放入Content字段
ActMode_Width = ACTCMS.ChkNumeric(ACTCMS.S("SupportHtmlType_Width"))
ActMode_Height = ACTCMS.ChkNumeric(ACTCMS.S("SupportHtmlType_Heigh"))
ColumnType="text"
Case "RadioType"'单选项
Content = ACTCMS.S("RadioType_Content")
Type_Type = ACTCMS.ChkNumeric(ACTCMS.S("RadioType_Type"))'显示方式
ColumnType="varchar(255)"
Case "ListBoxType"'多选项
Content = ACTCMS.S("ListBoxType_Content")
Type_Type = ACTCMS.ChkNumeric(ACTCMS.S("ListBoxType_Type"))
ColumnType="text"
Case "NumberType"'数字
ActMode_Width = ACTCMS.ChkNumeric(ACTCMS.S("NumberType_TitleSize"))'数字的宽度放入总宽度字段名称中
ColumnType="int"'
Case "DateType"
ColumnType="datetime"'Response.write "日期时间"
Case "NumberType"
ColumnType="int"'Response.write "数字"
Case else
ColumnType="varchar(255)"
End Select
Set FieldRS = Server.CreateObject("ADODB.RECORDSET")
FieldSql = "Select * From [Table_ACT] Where FieldName='" & FieldName & "' And ModeID=" & ModeID
FieldRS.Open FieldSql, conn, 3, 3
If FieldRS.EOF And FieldRS.BOF Then
FieldRS.AddNew
FieldRS("FieldName") = FieldName
FieldRS("FieldType") = FieldType
FieldRS("ModeID") = ModeID
FieldRS("Title") = Title
FieldRS("IsNotNull") = IsNotNull
FieldRS("Width") = ActMode_Width
FieldRS("Height") = ActMode_Height
FieldRS("Type_Default") = Type_Default
FieldRS("Description") = Description
FieldRS("Type_Type") = Type_Type
FieldRS("Content") = Content
FieldRS("ISType") = ISType
FieldRS.Update
Conn.Execute("Alter Table "&TableName&" Add "&FieldName&" "&ColumnType&"")
Response.Write ("<Script> if (confirm('字段增加成功,继续添加吗?')) { location.href='?A=A&ModeID=" & ModeID& "';} else{location.href='?A=L&ModeID=" & ModeID&"';}</script>")
Else
Call ACTCMS.Alert("数据库中已存在该字段名称!", "")
Exit Sub
End If
End Sub
Sub Esave()
Title=ACTCMS.S("Title")
IsNotNull=ACTCMS.S("IsNotNull")
Type_Default=ACTCMS.S("Type_Default")
Description=ACTCMS.S("Description")
If TitleSize=0 Then TitleSize=40
Set FieldRS = Server.CreateObject("ADODB.RECORDSET")
FieldSql = "Select * From [Table_ACT] Where ID=" & ID
FieldRS.Open FieldSql, conn,1, 3
FieldRS("ModeID") = ModeID
FieldRS("Title") = Title
FieldRS("IsNotNull") = IsNotNull
Select Case FieldRS("FieldType")
Case "TextType"'单行文本
FieldRS("Width") = ACTCMS.ChkNumeric(ACTCMS.S("TitleSize"))'文本框长度
Case "MultipleTextType"'多行文本(不支持Html
FieldRS("Width") = ACTCMS.ChkNumeric(ACTCMS.S("MultipleTextType_Width"))
FieldRS("Height") = ACTCMS.ChkNumeric(ACTCMS.S("MultipleTextType_Height"))
Case "MultipleHtmlType"'多行文本(支持Html)
FieldRS("Content") = ACTCMS.S("IsEditor")'编辑器属性放入Content字段
FieldRS("Width") = ACTCMS.ChkNumeric(ACTCMS.S("SupportHtmlType_Width"))
FieldRS("Height") = ACTCMS.ChkNumeric(ACTCMS.S("SupportHtmlType_Heigh"))
Case "RadioType"'单选项
FieldRS("Content") = ACTCMS.S("RadioType_Content")
FieldRS("Type_Type") = ACTCMS.ChkNumeric(ACTCMS.S("RadioType_Type"))'显示方式
Case "ListBoxType"'多选项
FieldRS("Content") = ACTCMS.S("ListBoxType_Content")
FieldRS("Type_Type") = ACTCMS.ChkNumeric(ACTCMS.S("ListBoxType_Type"))
Case "NumberType"'数字
FieldRS("Width") = ACTCMS.ChkNumeric(ACTCMS.S("NumberType_TitleSize"))'数字的宽度放入总宽度字段名称中
End Select
FieldRS("Description") = Description
FieldRS("Type_Default") = Type_Default
FieldRS("ISType")= ACTCMS.ChkNumeric(ACTCMS.S("ISType"))
FieldRS.Update
Call Actcms.ActErr("字段修改成功 <a href=Mode/ACT.ListM.ASP?A=L&ModeID=" & ModeID& ">点击这里返回管理首页</a>","")
End Sub
Sub Main() %>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="bg_tr">您现在的位置：后台管理 >> <a href="ACT.MX.asp">模型列表</a> >> <a href="?A=L&ModeID=<%= ModeID %>">字段列表</a> >> 浏览[<%= ACTCMS.ACT_C(ModeID,1) %>]字段 </td>
</tr>
<tr>
<td>当前模型：[<%= ACTCMS.ACT_C(ModeID,1) %>] <a href="?A=A&ModeID=<%= ModeID %>">添加字段</a> | <a href="?">模型预览</a> | <a target="_blank" href="http://www.actcms.com/help/mode.htm">点击这里查看字段和标签调用视频帮助</a> |</td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td align="center" class="bg_tr">字段名称</td>
<td align="center" class="bg_tr">字段别名</td>
<td align="center" class="bg_tr">调用标签</td>
<td align="center" class="bg_tr">字段类型</td>
<td align="center" class="bg_tr">是否必填</td>
<td align="center" class="bg_tr">是否禁用</td>
<td align="center" class="bg_tr">排序</td>
<td width="100" align="center" class="bg_tr">管理操作</td>
</tr>
<%
Set Rs =ACTCMS.ACTEXE("SELECT * FROM Table_ACT Where ModeID=" & ModeID & " order by OrderID asc,ID Desc")
If Rs.EOF Then
Response.Write "<tr><td colspan=""8"" align=""center"">没有记录</td></tr>"
Else
Do While Not Rs.EOF
%>
<form name="Form1" method="post" action="?">
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td align="center"><%= Rs("FieldName") %></td>
<td align="center"><%= Rs("Title") %></td>
<td align="center"><font color=red>{$<%= Rs("FieldName") %>} </font></td>
<td align="center"><%
Select Case Rs("FieldType")
Case "TextType"
Response.write "单行文本"
Case "MultipleTextType"
Response.write "多行文本(不支持Html)"
Case "MultipleHtmlType"
Response.write "多行文本(支持Html)"
Case "RadioType"
Response.write "单选项"
Case "ListBoxType"
Response.write "多选项"
Case "DateType"
Response.write "日期时间"
Case "PicType"
Response.write "图片"
Case "FileType"
Response.write "文件"
Case "NumberType"
Response.write "数字"
Case "RadomType"
Response.write "随机数"
Case else
Response.write "<font color=red>该字段错误</font>"
End Select
%></td>
<td align="center"><%if Rs("IsNotNull")=0 Then Response.Write "是" Else Response.Write "否" %></td>
<td align="center"><%if Rs("ISType")=1 Then Response.Write "<font color=red>是</font>" Else Response.Write "<font color=green>否</font>" %> </td>
<td align="center">
<input name="OrderID" type="text" id="OrderID" value="<%=rs("OrderID")%>" size="4" maxlength="3">
<input name="A" type="hidden" id="A" value="N">
<input name="ID" type="hidden" id="ID" value="<%=rs("ID")%>">
<input name="ModeID" type="hidden" id="ModeID" value="<%=rs("ModeID")%>">
<input type="submit" Class="ACT_BTN" name="Submit" value=" 更新 ">
</td>
<td align="center"><a href="?A=E&ID=<%=Rs("ID")%>&ModeID=<%=Rs("ModeID")%> " >修改</a> ┆
<a href="?A=Del&ID=<%=Rs("ID")%>&ModeID=<%=Rs("ModeID")%> " onClick="{if(confirm('确定删除该字段吗?')){return true;}return false;}">删除</a> </td>
</form> </tr>
<%
Rs.movenext
Loop
End if %>
</table>
<% End Sub
Sub AddEdit()
Dim A
if Action="A" Then
A="AddSave"
TitleSize="40"
ISType="1"
RadioType_Content="选项一"& vbCrLf &"选项二"& vbCrLf &"选项三"
ListBoxType_Content="选项一"& vbCrLf &"选项二"& vbCrLf &"选项三"
SupportHtmlType_Width=620
SupportHtmlType_heigh=400
MultipleTextType_Width=300
MultipleTextType_Height=100
IsEditor="Simple"
IsNotNull=1
Else
Set FieldRS=server.CreateObject("adodb.recordset")
FieldRS.OPen "Select * from Table_ACT Where ID = "&ID&" order by ID desc",Conn,1,1
FieldName = FieldRS("FieldName")
FieldType = FieldRS("FieldType")
ModeID = FieldRS("ModeID")
Title = FieldRS("Title")
Type_Default = FieldRS("Type_Default")
Description = FieldRS("Description")
Select Case FieldType
Case "TextType"'单行文本
TitleSize=FieldRS("Width")
Case "MultipleTextType"'多行文本(不支持Html
MultipleTextType_Width=FieldRS("Width")
MultipleTextType_Height=FieldRS("Height")
Case "MultipleHtmlType"'多行文本(支持Html)
IsEditor=FieldRS("Content")
SupportHtmlType_Width=FieldRS("Width")
SupportHtmlType_Heigh=FieldRS("Height")
Case "RadioType"'单选项
RadioType_Content=FieldRS("Content")
RadioType_Type = FieldRS("Type_Type")
Case "ListBoxType"'多选项
ListBoxType_Content=FieldRS("Content")
ListBoxType_Type = FieldRS("Type_Type")
Case "NumberType"'数字
TitleSize=FieldRS("Width")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -