📄 act.form.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,ModeName
Dim IsEditor
Dim SupportHtmlType_Width,SupportHtmlType_Heigh
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
if ModeID=0 or ModeID="" Then ModeID=1
If Not ACTCMS.ACTCMS_QXYZ(0,"form_ACT","") Then Call Actcms.Alert("对不起，你没有操作权限！","")
TableName=ACTCMS.actexe("select ModeTable from ModeForm_ACT")(0)
ModeName=ACTCMS.actexe("select ModeName from ModeForm_ACT")(0)
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 Request("A") = "N" Then
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
Conn.Execute("Update TableForm_ACT Set OrderID="&ACTCMS.ChkNumeric(Request("OrderID"))&" Where ID=" & ACTCMS.ChkNumeric(Request("ID")) & "")
Response.Redirect "?A=L&ModeID=" & ModeID
End If
IF Action = "Del" Then
Dim FieldN
FieldN=ACTCMS.ACTEXE("Select FieldName From TableForm_ACT Where ID=" & ID)(0)
ACTCMS.ACTEXE("Delete from TableForm_ACT Where ID=" & ID & "")
ACTCMS.ACTEXE("Alter Table "& TableName &" Drop column "& FieldN &"")
Call Actcms.ActErr("删除字段成功 <a href=Sys_Act/Form/ACT.Form.asp?A=L&ModeID="&ModeID&">点击这里返回管理首页</a>","")
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=Sys_Act/Form/ACT.Form.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 [TableForm_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 [TableForm_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=Sys_Act/Form/ACT.Form.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="Index.asp">自定义表单列表</a> >> <a href="Index.asp?A=L&ModeID=<%= ModeID %>">字段列表</a> >> 浏览[表单]字段 </td>
</tr>
<tr>
<td>当前表单：[<%= ModeName %>] <a href="?A=A&ModeID=<%= ModeID %>">添加字段</a> | <a href="?">表单预览</a> | <a href="?">点击这里查看字段和标签调用帮助</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 width="100" align="center" class="bg_tr">管理操作</td>
</tr>
<%
Set Rs =ACTCMS.ACTEXE("SELECT * FROM TableForm_ACT Where ModeID=" & ModeID & " order by OrderID desc,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"><%
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="0"
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 TableForm_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")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -