📄 ks_channelfoldercls.asp
字号:
'参数:ChannelID, FolderID, XMName--项目名称, EditChannelPowerName---编辑频道的权限, EditFolderChannelPowerName---编辑目录的权限
Sub GetEditFolder(ChannelID, FolderID, XMName, EditChannelPowerName, EditFolderChannelPowerName)
With Response
Dim RS, TemplateRS, TemplateSql, TypeList, TempStr, ArticleFsoType, ParentID
Dim NowDate, YearStr, MonthStr, DayStr
Set RS = Server.CreateObject("ADODB.RecordSet")
If LCase(Request("Action")) = "edit" Then
'收集参数
Dim FolderName, FolderOrder, FolderFsoIndex, FolderTemplateID
Dim ArticleFnameType, ArticleTemplateID, TopFlag,ClassPurview
FolderName = Request.Form("FolderName")
TopFlag = Request.Form("TopFlag")
If TopFlag = "" Then TopFlag = 0
FolderOrder = Request.Form("FolderOrder")
ArticleFsoType = Request.Form("ArticleFsoType")
ArticleTemplateID = Request.Form("ArticleTemplateID")
ArticleFnameType = Request.Form("ArticleFnameType")
FolderTemplateID = Request.Form("FolderTemplateID")
FolderFsoIndex = Request.Form("FolderFsoIndex")
ClassPurview=KSCMS.G("ClassPurview")
'有效性检查
If FolderName = "" Then .Write ("<script>alert('错误提示:\n\n目录名不能为空');history.back();</script>")
If Not IsNumeric(FolderOrder) Then .Write ("<script>alert('错误提示:\n\n目录排序号只能用数字');history.back();</script>")
If FolderOrder > 10000 Then .Write ("<script>alert('错误提示:\n\n目录排序号必须小于10000');history.back();</script>")
ParentID = Request.Form("ParentID")
If ParentID = "" Then ParentID = "0"
RS.Open " Select FolderName From KS_Class Where TN='" & ParentID & "' And ID<>'" & FolderID & "' And FolderName='" & FolderName & "'", Conn, 1, 1
If Not RS.EOF Then
.Write ("<script>alert('错误提示:\n\n存在相同的名称!');location.href='?FolderID=" & FolderID & "';</script>")
Exit Sub
Else
RS.Close
RS.Open "Select * from KS_Class Where ID='" & FolderID & "'", Conn, 1, 3
RS("TopFlag") = TopFlag
RS("FolderName") = FolderName
'RS("CreateDate") = Now
RS("FolderTemplateID") = FolderTemplateID
RS("FolderFsoIndex") = FolderFsoIndex
RS("ArticleTemplateID") = ArticleTemplateID
RS("ArticleFnameType") = ArticleFnameType
RS("ArticleFsoType") = ArticleFsoType
RS("FolderOrder") = FolderOrder
RS("CommentTF")=KSCMS.G("CommentTF")
RS.Update
RS.Close
If Trim(ParentID) = "0" Then
Dim FolderDomain
FolderDomain = Request.Form("FolderDomain")
ClassPurview = Request.Form("ClassPurview")
RS.Open "Select FolderDomain,ClassPurview from KS_Class where TS Like '%" & FolderID & "%'", Conn, 1, 3
Do While Not RS.EOF
RS("FolderDomain") = FolderDomain
RS("ClassPurview")= ClassPurview
RS.Update
RS.MoveNext
Loop
RS.Close
End If
Set RS = Nothing
.Write ("<script>alert('成功提示:\n\n修改目录属性资料成功!');window.close()</script>")
Exit Sub
End If
Else
RS.Open "select * from KS_Class where ID='" & FolderID & "'", Conn, 1
If RS.EOF And RS.BOF Then
.Write "参数错误!"
Exit Sub
End If
ParentID = Trim(RS("TN"))
ArticleFsoType = RS("ArticleFsoType")
If ParentID = "" Then ParentID = "0"
If ParentID = "0" Then
If Not KSCMS.ReturnPowerResult(ChannelID, EditChannelPowerName) Then Call KSCMS.ReturnErr(0, "") '修改频道权限检查
TempStr = "频道"
Else
If Not KSCMS.ReturnPowerResult(ChannelID, EditFolderChannelPowerName) Then Call KSCMS.ReturnErr(0, "") '修改目录权限检查
TempStr = "栏目"
End If
End If
NowDate = Now()
YearStr = CStr(Year(NowDate))
MonthStr = CStr(Month(NowDate))
DayStr = CStr(Day(NowDate))
'取得目录树,同时为了提高执行速度,采用Application缓存,减小访问数据库
If Application("ChannelFolderID") <> FolderID Or Application("ChannelFolderTreeList") = "" Then
TypeList = KSCMS.ReturnTree(ParentID, ChannelID)
Application("ChannelFolderID") = FolderID
Application("ChannelFolderTreeList") = TypeList
Else
TypeList = Application("ChannelFolderTreeList")
End If
.Write ("<html>")
.Write ("<head>")
.Write ("<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">")
.Write ("<link href=""../Inc/ModeWindow.css"" rel=""stylesheet"">")
.Write ("<script language=""JavaScript"" src=""../JS/Common.js""></script>")
.Write ("</head>")
.Write ("<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">")
.Write ("<form name=""EditFolderForm"" method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & """>")
.Write (" <table width=""99%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
.Write (" <tr>")
.Write (" <td>")
.Write (" <FIELDSET align=center>")
.Write ("<LEGEND align=left>编辑" & TempStr & "</LEGEND>")
.Write (" <table width=""95%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"">")
.Write (" <input type=""hidden"" value=""" & ParentID & """ name=""ParentID"">")
.Write (" <Input type=""Hidden"" value=""" & FolderID & """ name=""FolderID"">")
.Write (" <input type=""hidden"" value=""edit"" name=""action"">")
If ParentID <> "0" Then
.Write ("<tr>")
.Write (" <td width=""150"" height=""28"" align=""right""> <div align=""center"">父栏目：</div></td>")
.Write (" <td width=""84%"" height=""28""> ")
.Write (" <select name=""TreeParentID"">")
.Write (TypeList)
.Write (" </select>不能改</td>")
.Write ("</tr>")
End If
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right""> <div align=""center"">" & TempStr & "名称： </div></td>")
.Write (" <td width=""84%"" height=""28""><b> ")
.Write (" <INPUT NAME=""FolderName"" TYPE=""text"" id=""FolderName"" style=""border-style: solid; border-width: 1"" value=""" & RS("FolderName") & """ size=30>")
.Write (" </b>概括性的说明文字<b><b> </b> </b></td>")
.Write ("</tr>")
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center"">英文名称：<strong> ")
.Write (" </strong></div></td>")
.Write (" <td height=""28"" nowrap><b> ")
.Write (" <INPUT NAME=""Folder_add"" TYPE=""text"" id=""folder_add"" value=""" & Split(RS("Folder"), "/")(RS("tj") - 1) & """ style=""border-style: solid; border-width: 1"" size=30 disabled=true>")
.Write (" </b></td>")
.Write ("</tr>")
.Write ("<tr> ")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center"">此" & TempStr &"是否允许投稿：</div></td>")
.Write (" <td height=""28"" nowrap> ")
If RS("CommentTF") = 1 Then
.Write ("<input name=""CommentTF"" type=""radio"" value=""1"" checked>")
Else
.Write ("<input name=""CommentTF"" type=""radio"" value=""1"">")
End If
.Write ("允许 ")
If RS("CommentTF") = 0 Then
.Write ("<input name=""CommentTF"" type=""radio"" value=""0"" checked>")
Else
.Write ("<input name=""CommentTF"" type=""radio"" value=""0"">")
End If
.Write ("不允行</td>")
.Write ("</tr>")
If ParentID = "0" Then
.Write ("<tr>")
.Write ("<td height=""28"" align=""right"" nowrap>")
.Write ("<div align=""center"">是否显示频道顶部导航：</div></td>")
.Write ("<td height=""28"" nowrap>")
If RS("TopFlag") = 1 Then
.Write ("<input name=""TopFlag"" type=""radio"" value=""1"" checked>")
Else
.Write ("<input name=""TopFlag"" type=""radio"" value=""1"">")
End If
.Write ("显示 ")
If RS("TopFlag") = 0 Then
.Write ("<input name=""TopFlag"" type=""radio"" value=""0"" checked>")
Else
.Write ("<input name=""TopFlag"" type=""radio"" value=""0"">")
End If
.Write ("不显示</td>")
.Write ("</tr>")
End If
If ParentID = "0" Then
.Write " <tr>" & vbCrLf
Else
.Write " <tr style=""display:none"">" & vbcrlf
End IF
.Write " <td width=""150"" height=""28"" align=""right"" nowrap>浏览/查看权限：</td>" & vbCrLf
.Write " <td height='28' nowrap><input name='ClassPurview' title='任何人（包括游客）可以浏览和查看此" & TempStr & "下的信息。' type='radio' value='0'"
If RS("ClassPurview")=0 Then .Write " checked"
.Write ">"
.Write " 开放" & TempStr
.Write " <input type='radio' title='任何人（包括游客）都可以浏览。游客不可查看，其他会员根据会员组的" & TempStr & "权限设置决定是否可以查看。' name='ClassPurview' value='1'"
IF RS("ClassPurview")=1 Then .Write " Checked"
.Write ">" & vbCrLf
.Write " 半开放" & TempStr
.Write " <input type='radio' title='游客不能浏览和查看，其他会员根据会员组的" & TempStr & "权限设置决定是否可以浏览和查看。' name='ClassPurview' value='2'"
IF RS("ClassPurview")=2 Then .Write " Checked"
.Write ">" & vbCrLf
.Write " 认证" & TempStr
.Write "</td>"
.Write " </tr>" & vbCrLf
.Write ("<tr>")
.Write (" <td width=""150"" height=""28"" align=""right"" nowrap> <div align=""center""> ")
If ParentID = "0" Then
.Write ("频道首页模板：")
Else
.Write ("栏目模板：")
End If
.Write (" </div></td>")
.Write (" <td height=""28"" nowrap> <select name=""FolderTemplateID"" id=""FolderTemplateID"">")
Set TemplateRS = Server.CreateObject("ADODB.RECORDSET")
If ParentID = "0" Then
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=" & ChannelID & " And TemplateType=1 Order By TemplateID" '2栏目模板
Else
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=" & ChannelID & " And TemplateType=2 Order By TemplateID" '2栏目模板
End If
TemplateRS.Open TemplateSql, Conn, 1, 1
If TemplateRS.EOF And TemplateRS.BOF Then
.Write ("<option value=0>请先添加模板</option>")
Else
Do While Not TemplateRS.EOF
If RS("FolderTemplateID") = TemplateRS(0) Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
Else
If TemplateRS("IsDefault") = 1 Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -