📄 act.mx.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>
<% Dim Action,ModeID,Rs,ProjectUnit,MakeFolderDir,FilePathName,ContentExtension,AutoPage
ModeID = ACTCMS.ChkNumeric(Request("ModeID"))
Action = Request.QueryString("A")
if ModeID=0 or ModeID="" Then ModeID=1
Select Case Action
Case "AddSave","ESave"
Call AddSave()
Case "Add","E"
Call AddEdit()
Case Else
Call Main()
End Select
IF Action = "Del" Then
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
IF ModeID > 1 Then
ACTCMS.ACTEXE("Delete From Mode_Act Where ModeID=" & ModeID)
Call Actcms.ActErr("删除模型成功 <a href=Mode/ACT.MX.asp>点击这里返回管理首页</a>","2")
Else
Call Actcms.ActErr("系统定义的模型不允许删除","1")
End IF
End IF
Sub AddSave()
Dim ModeName,ModeTable,sql,ChannelRS,ChannelRSSql,ModeNote,ModeStatus,IFmake,RefreshFlag,Modedescription
Dim UpfilesDir,RecyleIF,CommentCode,Commentsize,WriteComment,CommentTemp,ModeTemplate,Modekeywords,ModeMakeDir
ModeName = ACTCMS.S("ModeName")
ModeTable = ACTCMS.S("ModeTable")&"_U_ACT"
ModeNote = ACTCMS.S("ModeNote")
ModeTemplate=ACTCMS.S("ModeTemplate")
Modedescription=ACTCMS.S("Modedescription")
Modekeywords=ACTCMS.S("Modekeywords")
ModeStatus = ACTCMS.S("ModeStatus")
IFmake = ACTCMS.S("IFmake")
RefreshFlag = ACTCMS.ChkNumeric(ACTCMS.S("RefreshFlag"))
UpfilesDir = ACTCMS.S("UpfilesDir")
RecyleIF = ACTCMS.S("RecyleIF")
ProjectUnit = ACTCMS.S("ProjectUnit")
MakeFolderDir = ACTCMS.S("MakeFolderDir")
FilePathName = ACTCMS.S("FilePathName")
ContentExtension = ACTCMS.S("ContentExtension")
ModeMakeDir = ACTCMS.S("ModeMakeDir")
AutoPage = ACTCMS.ChkNumeric(ACTCMS.S("AutoPage"))
CommentCode = ACTCMS.ChkNumeric(ACTCMS.S("CommentCode"))
Commentsize = ACTCMS.ChkNumeric(ACTCMS.S("Commentsize"))
WriteComment = ACTCMS.ChkNumeric(ACTCMS.S("WriteComment"))
CommentTemp = ACTCMS.S("CommentTemp")
IF ACTCMS.S("ModeName") = "" Then
Call ACTCMS.Alert("模型名称不能为空!",""):Exit Sub
End If
IF ACTCMS.S("ModeMakeDir") = "" Then
Call ACTCMS.Alert("模型生成目录不能为空!",""):Exit Sub
End If
Set ChannelRS = Server.CreateObject("adodb.recordset")
if Action="AddSave" Then
If Not ACTCMS.ChkAdmin() Then Call Actcms.Alert("对不起，您没有操作权限！","")
IF ACTCMS.S("ModeTable") = "" Then
Call ACTCMS.Alert("数据表为空!",""):Exit Sub
End if
If Not ACTCMS.ACTEXE("SELECT ModeName FROM Mode_Act Where ModeName='" & ModeName & "' order by ModeID desc").eof Then
Call ACTCMS.Alert("系统已存在该模型名称!",""):Exit Sub
End if
If Not ACTCMS.ACTEXE("SELECT ModeTable FROM Mode_Act Where ModeTable='" & ModeTable & "' order by ModeID desc").eof Then
Call ACTCMS.Alert("系统已存在该数据表!",""):Exit Sub
End if
If Not ACTCMS.ACTEXE("SELECT ModeTable FROM Mode_Act Where ModeMakeDir='" & ModeMakeDir & "' order by ModeID desc").eof Then
Call ACTCMS.Alert("系统已存在该模型目录!",""):Exit Sub
End if
ChannelRSSql = "select * from Mode_Act"
ChannelRS.Open ChannelRSSql, Conn, 1, 3
ChannelRS.AddNew
ChannelRS("ModeTable") = ModeTable
ChannelRS("ModeName") = ModeName
ChannelRS("ModeNote") = ModeNote
ChannelRS("ModeStatus") = ModeStatus
ChannelRS("IFmake") = IFmake
ChannelRS("RecyleIF") = RecyleIF
ChannelRS("AutoPage") = AutoPage
ChannelRS("UpfilesDir") = UpfilesDir
ChannelRS("ProjectUnit") = ProjectUnit
ChannelRS("MakeFolderDir") = MakeFolderDir
ChannelRS("FilePathName") = FilePathName
ChannelRS("ContentExtension") = ContentExtension
ChannelRS("RefreshFlag") = RefreshFlag
ChannelRS("CommentCode") = CommentCode
ChannelRS("Commentsize") = Commentsize
ChannelRS("WriteComment") = WriteComment
ChannelRS("CommentTemp") = CommentTemp
ChannelRS("ModeTemplate") = ModeTemplate
ChannelRS("Modedescription") = Modedescription
ChannelRS("Modekeywords") = Modekeywords
ChannelRS("ModeMakeDir") = ModeMakeDir
ChannelRS("ACT_DiY")="§0§0-1-0-1§0§actcms§0§§0§§0§§0§Simple§§§0§0§0§1§0§1§0§"&ACTCMS.ActCMS_Sys(3)&"templets/article/ClassIndex.htm§"&ACTCMS.ActCMS_Sys(3)&"templets/article/Class.Htm§"&ACTCMS.ActCMS_Sys(3)&"templets/article/Content.Htm§"
ChannelRS.Update
ChannelRS.Close:Set ChannelRS = Nothing
Sql="CREATE TABLE "&ModeTable&" ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"&_
"ClassID varchar(20),"&_
"Title varchar(200),"&_
"IntactTitle varchar(250),"&_
"ChangesLink tinyint,"&_
"ArticlePic tinyint,"&_
"Intro text,"&_
"Content text,"&_
"Hits int Default 0,"&_
"rev tinyint Default 0,"&_
"KeyWords varchar(255),"&_
"author varchar(20),"&_
"CopyFrom varchar(20),"&_
"UpdateTime datetime,"&_
"TemplateUrl varchar(100),"&_
"FileName varchar(200),"&_
"isAccept tinyint,"&_
"delif tinyint Default 0,"&_
"UserID tinyint Default 0,"&_
"ArticleInput varchar(10),"&_
"Slide tinyint Default 0,"&_
"PicUrl varchar(200),"&_
"Ismake tinyint,"&_
"GroupID_ACT varchar(50),"&_
"Score_ACT int Default 0,"&_
"Digg int Default 0,"&_
"down int Default 0,"&_
"ATT SmallInt Default 0,"&_
"IStop tinyint Default 0"&_
")"
ACTCMS.ACTEXE(sql)
Application.Contents.RemoveAll
Call Actcms.ActErr("添加成功 <a href=Mode/ACT.MX.asp>点击这里返回管理首页</a>","2")
Else
If Not ACTCMS.ACTCMS_QXYZ(ModeID,"","") Then Call Actcms.Alert("对不起，您没有"&ACTCMS.ACT_C(ModeID,1)&"系统该项操作权限！","")
If Not ACTCMS.ACTEXE("SELECT ModeName FROM Mode_Act Where ModeID <>" & ModeID & " AND ModeName='" & ModeName & "' order by ModeID desc").eof Then
Call ACTCMS.Alert("系统已存在该模型名称!",""):Exit Sub
End if
ChannelRSSql = "select * from Mode_Act Where ModeID=" &ModeID
ChannelRS.Open ChannelRSSql, Conn, 1, 3
if ChannelRS.eof then Call ACTCMS.Alert("错误!",""):Exit Sub
End if
ChannelRS("ModeName") = ModeName
ChannelRS("ModeNote") = ModeNote
ChannelRS("ModeStatus") = ModeStatus
ChannelRS("IFmake") = IFmake
ChannelRS("RecyleIF") = RecyleIF
ChannelRS("UpfilesDir") = UpfilesDir
ChannelRS("ProjectUnit") = ProjectUnit
ChannelRS("MakeFolderDir") = MakeFolderDir
ChannelRS("FilePathName") = FilePathName
ChannelRS("ContentExtension") = ContentExtension
ChannelRS("AutoPage") = AutoPage
ChannelRS("RefreshFlag") = RefreshFlag
ChannelRS("CommentCode") = CommentCode
ChannelRS("Commentsize") = Commentsize
ChannelRS("WriteComment") = WriteComment
ChannelRS("CommentTemp") = CommentTemp
ChannelRS("ModeTemplate") = ModeTemplate
ChannelRS("Modedescription") = Modedescription
ChannelRS("Modekeywords") = Modekeywords
ChannelRS("ModeMakeDir") = ModeMakeDir
ChannelRS.Update
ChannelRS.Close:Set ChannelRS = Nothing
Application.Contents.RemoveAll
Call Actcms.ActErr("修改成功 <a href=Mode/ACT.MX.asp>点击这里返回管理首页</a>","2")
End Sub
Sub Main()
%>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
<tr>
<td class="bg_tr">您现在的位置：模型管理 >> 浏览</td>
</tr>
<tr>
<td>当前模型： <a href="?A=Add">添加模型</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">生成Html</td>
<td align="center" class="bg_tr" nowrap>操作</td>
</tr>
<%
Set Rs =ACTCMS.ACTEXE("SELECT ModeID, ModeName,ModeTable, ModeStatus, IFmake,ModeNote FROM Mode_Act order by ModeID asc")
If Rs.EOF Then
Response.Write "<tr><td colspan=""6"" align=""center"">没有记录</td></tr>"
Else
Do While Not Rs.EOF
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
<td align="center"><%= Rs("ModeName") %></td>
<td align="center"><%= Rs("ModeTable") %></td>
<td align="center"><% if Rs("ModeID")<5 Then Response.Write "<font color=red>系统</font>" Else Response.Write "<font color=blue>自定义</font>" %></td>
<td align="center"><%= Rs("ModeNote") %></td>
<td align="center"><% IF Rs("ModeStatus") = 0 Then Response.Write "<font color=green>正常</font>" else Response.Write "<font color=red>禁用</font>" %></td>
<td align="center">
<% Select Case Rs("IFmake")
Case "0"
Response.Write "<font color=red>不生成(动态浏览) </font>"
Case "1"
Response.Write "<font color=green>生成(静态)</font>"
Case "2"
Response.Write "<font color=red>伪静态</font>"
End Select
%>
</td>
<td align="center">
<a href="Act.DiY.asp?ModeID=<%=Rs("ModeID")%>">自定义显示</a> ┆ <a href="ACT.ListM.ASP?A=L&ModeID=<%=Rs("ModeID") %>">字段列表</a> ┆ <a href="?A=E&ModeID=<%=Rs("ModeID") %>" >修改</a> ┆ <a href="?A=Del&ModeID=<%=Rs("ModeID") %>" onClick="{if(confirm('确定删除该模型吗?')){return true;}return false;}">删除</a></td>
</tr>
<%
Rs.movenext
Loop
End if %>
</table>
<%
End Sub
Sub AddEdit()
Dim FileFolder,ModeTable,ModeName,IFmake,RecyleIF,UpfilesDir,ModeStatus,RefreshFlag,ModeNote,A,WriteComment,CommentCode,Commentsize
Dim CommentTemp,ModeTemplate,Modekeywords,Modedescription,ModeMakeDir
if Action="Add" Then
UpfilesDir="UpFiles/"
AutoPage=0
A="AddSave"
FilePathName="{enname}/{date}/{pinyin}/"
ContentExtension=".htm"
WriteComment=3
CommentCode=0
Commentsize=0
MakeFolderDir="html/"
ModeMakeDir="html/"
CommentTemp=ACTCMS.ACTSYS&"templets/Write.Htm"
Else
Set Rs=server.CreateObject("adodb.recordset")
Rs.OPen "Select * from Mode_Act Where ModeID = "&ModeID&" order by ModeID desc",Conn,1,1
FileFolder = Rs("FileFolder")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -