📄 ks_channelfoldercls.asp
字号:
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.1 0601个人Access版
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394
'程序版权： 科汛网络
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'====================================================================================================================
'-----------------------------------------------------------------------------------------------
'科汛网站管理系统,频道栏目通用类
'开发:林文仲 版本 V 2.2
'-----------------------------------------------------------------------------------------------
Class ChannelFolder
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.DelCaches(KSCMS.SiteSN & "ClassTree")
Call KSCMS.DelCaches(KSCMS.SiteSN & "ClassConfig")
Call KSCMS.DelCaches(KSCMS.SiteSN & "ClassPath")
Call KSCMS.DelCaches(KSCMS.SiteSN & "ClassNameAndPath")
Set KSCMS=Nothing
End Sub
'添加频道或目录的过程
'参数 channelID--频道ID,FolderID 父目录,FormProcesPage--表单处理的页面 ,tempStr---"频道" 或 " 目录" ,XMName---项目名称
Sub GetAddChannelFolder(ChannelID, FolderID, FormProcesPage, TempStr, XMName)
Dim Folder, FolderName, TS, TJ, TemplateRS, TemplateSql, FolderDomain, TypeList, NowDate, YearStr, MonthStr, DayStr,ClassPurview
NowDate = Now()
YearStr = CStr(Year(NowDate))
MonthStr = CStr(Month(NowDate))
DayStr = CStr(Day(NowDate))
TypeList = KSCMS.ReturnTree(FolderID, ChannelID)
If FolderID <> "0" Then
Dim FolderRS:Set FolderRS = Server.CreateObject("ADODB.RECORDSET")
FolderRS.Open"Select Folder,FolderName,FolderDomain,TS,Tj,ClassPurview From KS_Class Where ID='" & FolderID & "'",conn,1,1
If Not FolderRS.EOF Then
Folder = Trim(FolderRS("Folder"))
FolderDomain = Trim(FolderRS("FolderDomain"))
ClassPurview=FolderRS("ClassPurview")
TS = Trim(FolderRS("TS"))
TJ = FolderRS("TJ")
End If
FolderRS.Close:Set FolderRS = Nothing
End If
With Response
.Write "<html>" & vbCrLf
.Write "<head>" & vbCrLf
.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
.Write "<link href='../Inc/ModeWindow.css' rel='stylesheet'>" & vbCrLf
.Write "<script language='JavaScript' src='../JS/Common.js'></script>" & vbCrLf
.Write "</head>" & vbCrLf
.Write "<body scroll=no leftmargin='0' topmargin='0' marginwidth='0' marginheight='0' onload=""SelectArticleFsoType('9');"">" & vbCrLf
.Write "<form action='" & FormProcesPage & "' method='post' name='CreateFolderForm'>" & vbCrLf
.Write " <table width='99%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td>" & vbCrLf
.Write " <FIELDSET align=center>" & vbCrLf
.Write " <LEGEND align=left>创建新" & TempStr & "</LEGEND>" & vbCrLf
.Write " <table width='100%' border='0' align='center' cellpadding='0' cellspacing='0' style='border-collapse: collapse'>" & vbCrLf
.Write " <input type='hidden' value='" & FolderID & "' name='FolderID'>" & vbCrLf
.Write " <input type='hidden' value='" & Folder & "' name='folder'>" & vbCrLf
.Write " <input type='hidden' value='" & TS & "' name='ts'>" & vbCrLf
.Write " <input type='hidden' value='" & TJ + 1 & "' name='tj'>" & vbCrLf
If FolderID <> "0" Then
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right'>父栏目：</td>" & vbCrLf
.Write " <td width='20' height='28' align='right'></td>" & vbCrLf
.Write " <td height='28'> <select name='parentID'>" & vbCrLf
.Write TypeList & " </select></td>" & vbCrLf
.Write " </tr>"
End If
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right'>" & TempStr & "名称：</td>" & vbCrLf
.Write " <td width='20' height='28' align='right'> <div align='center'></div></td>" & vbCrLf
.Write " <td width='74%' height='28'><b>" & vbCrLf
.Write " <INPUT NAME='FolderName' TYPE='text' id='FolderName' style='border-style: solid; border-width: 1' title='请输入" & TempStr & "名称' size=30>"
.Write " </b>概括性的说明文字<b> </b></td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right' nowrap>英文名称：<br> </td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>"
.Write " <td height='28' nowrap><b>" & vbCrLf
.Write " <INPUT title='英文名称：不能带\/：*？“ < > | 等特殊符号' NAME='FolderEname' TYPE='text' id='FolderEname' style='border-style: solid; border-width: 1' size=30>"
.Write " </b> 不能改 </td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write ("<tr> ")
.Write (" <td height=""28"" align=""right"" nowrap> <div align=""center"">此" & TempStr &"是否允许投稿：</div></td>")
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>"
.Write (" <td height=""28"" nowrap> ")
.Write ("<input name=""CommentTF"" type=""radio"" value=""1"" checked>")
.Write ("允许 ")
.Write ("<input name=""CommentTF"" type=""radio"" value=""0"">")
.Write ("不允行</td>")
.Write ("</tr>")
If FolderID = "0" Then
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right' nowrap>频道顶部导航：</td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap><input name='TopFlag' type='radio' value='1' checked>"
.Write " 显示"
.Write " <input type='radio' name='TopFlag' value='0'>" & vbCrLf
.Write " 不显示</td>"
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right' nowrap>浏览/查看权限：<br><font color=blue>所有栏目将继承</font></td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap><input name='ClassPurview' title='任何人（包括游客）可以浏览和查看此" & TempStr & "下的信息。' type='radio' value='0' checked>"
.Write " 开放" & TempStr
.Write " <input type='radio' title='任何人（包括游客）都可以浏览。游客不可查看，其他会员根据会员组的" & TempStr & "权限设置决定是否可以查看。' name='ClassPurview' value='1'>" & vbCrLf
.Write " 半开放" & TempStr
.Write " <input type='radio' title='游客不能浏览和查看，其他会员根据会员组的" & TempStr & "权限设置决定是否可以浏览和查看。' name='ClassPurview' value='2'>" & vbCrLf
.Write " 认证" & TempStr
.Write "</td>"
.Write " </tr>" & vbCrLf
Else
.Write "<input type=""hidden"" value=""" & ClassPurview & """ name=""ClassPurview"">"
End If
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right' nowrap> " & vbCrLf
If FolderID = "0" Then
.Write ("频道首页模板：")
Else
.Write ("栏目模板：")
End If
.Write " <font color='#FF0000'><br>"
.Write " </font></td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap><b>" & vbCrLf
.Write " <select name='FolderTemplateID' id='select'>"
Set TemplateRS = Server.CreateObject("ADODB.RECORDSET")
If FolderID = "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>请先添加" & XMName & "频道首页模板</option>")
Else
Do While Not TemplateRS.EOF
If TemplateRS("IsDefault") = 1 Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
Else
.Write ("<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>")
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close
.Write " </select>" & vbCrLf
.Write " </b>生成的" & TempStr & "首页文件：<b>" & vbCrLf
.Write " <select name='FolderFsoIndex' id='select2' style='border-style: solid; border-width: 1'>" & vbCrLf
.Write " <option value='index.html'>index.html</option>" & vbCrLf
.Write " <option value='index.htm' selected>index.htm</option>" & vbCrLf
.Write " <option value='index.shtm'>index.shtm</option>" & vbCrLf
.Write " <option value='index.shtml'>index.shtml</option>" & vbCrLf
.Write " <option value='default.html'>default.html</option>" & vbCrLf
.Write " <option value='default.htm'>default.htm</option>" & vbCrLf
.Write " <option value='default.shtm'>default.shtm</option>" & vbCrLf
.Write " <option value='default.shtml'>default.shtml</option>" & vbCrLf
.Write " <option value='index.asp'>index.asp</option>" & vbCrLf
.Write " </select>" & vbCrLf
.Write " </b></td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>" & vbCrLf
.Write " <td height='30' align='right' nowrap>" & XMName & "页模板：</td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap><b>" & vbCrLf
.Write " <select name='ArticleTemplateID' id='select3'>" & vbCrLf
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=" & ChannelID & " And TemplateType=3 Order By TemplateID" '3内容页模板
TemplateRS.Open TemplateSql, Conn, 1, 1
If TemplateRS.EOF And TemplateRS.BOF Then
.Write ("<option value=0>请先添加" & XMName & "页模板</option>")
Else
Do While Not TemplateRS.EOF
If TemplateRS("IsDefault") = 1 Then
.Write ("<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>")
Else
.Write ("<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>")
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close
Set TemplateRS = Nothing
.Write " </select>"
.Write " </b> 生成的" & XMName & "页扩展名：<b>"
.Write " <select name='ArticleFnameType' id='select4' style='border-style: solid; border-width: 1'>" & vbCrLf
.Write " <option value='.html' selected>.html</option>" & vbCrLf
.Write " <option value='.htm'>.htm</option>" & vbCrLf
.Write " <option value='.shtm'>.shtm</option>" & vbCrLf
.Write " <option value='.shtml'>.shtml</option>" & vbCrLf
.Write " <option value='.asp'>.asp</option>" & vbCrLf
.Write " </select>" & vbCrLf
.Write " </b></td>" & vbCrLf
.Write " </tr>" & vbCrLf
.Write " <tr>"
.Write " <td height='30' align='right' nowrap>" & XMName & "生成路径格式：</td>" & vbCrLf
.Write " <td width='20' height='28' align='right' nowrap> <div align='center'></div></td>" & vbCrLf
.Write " <td height='28' nowrap> <select style='width:200;' name='ArticleFsoType' id='select5' onChange='SelectArticleFsoType(options[selectedIndex].value);'>" & vbCrLf
.Write " <option value='1'>" & YearStr & "/" & MonthStr & "-" & DayStr & "/RE" & "</option>" & vbCrLf
.Write " <option value='2'>" & YearStr & "/" & MonthStr & "/" & DayStr & "/RE" & "</option>" & vbCrLf
.Write " <option value='3'>" & YearStr & "-" & MonthStr & "-" & DayStr & "/RE" & "</option>" & vbCrLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -