📄 addclassjs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../../Conn.asp"-->
<!--#include file="../../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New AddClassJS
KSCls.Execute()
Set KSCls = Nothing
Class AddClassJS
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
'主体部分
Public Sub Execute()
Dim TempClassList, InstallDir, CurrPath, JSConfig, JSConfigArr, Action, JSID, Str, Descript, FolderID
Dim JSFileName, ClassID, IncludeSubClass, ShowClassName, OpenType, ArticleListNumber, RowHeight, TitleLen, ArticleSort, ColNumber, ShowPicFlag, NavType, Navi, MoreLinkType, MoreLink, SplitPic, DateRule, DateAlign, TitleCss, DateCss
Dim ArticleProperty
CurrPath = KSCMS.GetConfig("UpFilesDir")
InstallDir = KSCMS.GetConfig("InstallDir")
CurrPath = Left(CurrPath, Len(CurrPath) - 1)
If InstallDir = "/" Then CurrPath = "/" & CurrPath
FolderID = Request.QueryString("FolderID")
'判断是否编辑
JSID = Trim(Request.QueryString("JSID"))
If JSID = "" Then
ClassID = "0"
Action = "Add"
Else
Action = "Edit"
Dim JSRS, JSName
Set JSRS = Server.CreateObject("Adodb.Recordset")
JSRS.Open "Select * From KS_JSFile Where JSID='" & JSID & "'", Conn, 1, 1
If JSRS.EOF And JSRS.BOF Then
JSRS.Close
Set JSRS = Nothing
Response.Write ("<Script>alert('参数传递出错!');history.back();</Script>")
Response.End
End If
FolderID = JSRS("FolderID")
JSName = Replace(Replace(JSRS("JSName"), "{JS_", ""), "}", "")
JSFileName = Trim(JSRS("JSFileName"))
JSID = JSRS("JSID")
Descript = Trim(JSRS("Description"))
JSConfig = Trim(JSRS("JSConfig"))
JSRS.Close
Set JSRS = Nothing
JSConfig = Replace(JSConfig, """", "") '注:去除左右双引号"
JSConfigArr = Split(JSConfig, ",")
ClassID = JSConfigArr(1)
IncludeSubClass = CBool(JSConfigArr(2))
ShowClassName = CBool(JSConfigArr(3))
OpenType = JSConfigArr(4)
ArticleProperty = JSConfigArr(5)
ArticleListNumber = JSConfigArr(6)
RowHeight = JSConfigArr(7)
TitleLen = JSConfigArr(8)
ArticleSort = JSConfigArr(9)
ColNumber = JSConfigArr(10)
ShowPicFlag = CBool(JSConfigArr(11))
NavType = JSConfigArr(12)
Navi = JSConfigArr(13)
MoreLinkType = JSConfigArr(14)
MoreLink = JSConfigArr(15)
SplitPic = JSConfigArr(16)
DateRule = JSConfigArr(17)
DateAlign = JSConfigArr(18)
TitleCss = JSConfigArr(19)
DateCss = JSConfigArr(20)
End If
If ArticleListNumber = "" Then ArticleListNumber = 10
If RowHeight = "" Then RowHeight = 20
If TitleLen = "" Then TitleLen = 30
If ColNumber = "" Then ColNumber = 1
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<script src=""../LabelJS/AddClassJS.JS"" language=""JavaScript""></script>"
Response.Write "<script src=""../../JS/Common.js"" language=""JavaScript""></script>"
Response.Write "<link href=""../../inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
Response.Write "</head>"
Response.Write "<body topmargin=""0"" leftmargin=""0"">"
Response.Write "<div align=""center"">"
Response.Write "<form method=""post"" name=""myform"" action=""AddJSSave.asp"">"
Response.Write " <input type=""hidden"" name=""JSConfig"">"
Response.Write " <input type=""hidden"" name=""JSType"" value=""0"">"
Response.Write " <input type=""hidden"" name=""Action"" value=""" & Action & """>"
Response.Write " <input type=""hidden"" name=""Page"" value=""" & Request("Page") & """>"
Response.Write " <input type=""hidden"" name=""JSID"" value=""" & JSID & """>"
Response.Write " <input type=""hidden"" name=""FileUrl"" value=""AddClassJS.asp"">"
Response.Write KSCMS.ReturnJSInfo(JSID, JSName, JSFileName, FolderID, 2, Descript)
Response.Write " <table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write " <td> <FIELDSET align=center>"
Response.Write " <LEGEND align=left>栏目JS属性设置</LEGEND>"
Response.Write " <table width=""96%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""25"">选择栏目"
Response.Write " <select style=""width:70%;"" class=""textbox"" name=""ClassList"" id=""select"">"
If ClassID = "0" Then
Response.Write ("<option value=""0"" selected>- 不指定栏目 -</option>")
Else
Response.Write ("<option value=""0"">- 不指定栏目 -</option>")
End If
Response.Write KSCMS.ReturnTree(ClassID, 1)
Response.Write "</select> </td>"
Response.Write " <td width=""50%"" height=""25"">"
Response.Write " <div align=""left"">"
If IncludeSubClass = True Or JSID = "" Then
Str = " Checked"
Else
Str = ""
End If
Response.Write ("<input name=""IncludeSubClass"" type=""checkbox"" id=""IncludeSubClass"" value=""true""" & Str & ">")
Response.Write " 允许包含子栏目</div></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""25"">显示栏目"
If JSID = "" Then
Response.Write ("<input type=""radio"" value=""true"" name=""ShowClassName"">是 ")
Response.Write ("<input type=""radio"" value=""false"" name=""ShowClassName"" checked>否")
Else
If ShowClassName = True Then
Response.Write ("<input type=""radio"" value=""true"" name=""ShowClassName"" checked>是 ")
Response.Write ("<input type=""radio"" value=""false"" name=""ShowClassName"">否")
Else
Response.Write ("<input type=""radio"" value=""true"" name=""ShowClassName"">是 ")
Response.Write ("<input type=""radio"" value=""false"" name=""ShowClassName"" checked>否")
End If
End If
Response.Write " </td>"
Response.Write " <td width=""50%"" height=""25"">"
Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""25"">文章属性"
Response.Write " <input name=""ArticleProperty"" onclick=""SetStatus(this)"" type=""radio"" value=""0"""
If ArticleProperty = 0 Or JSID = "" Then Response.Write (" Checked")
Response.Write ">全部文章"
Response.Write " <input name=""ArticleProperty"" onclick=""SetStatus(this)"" type=""radio"" id=""ArticleProperty"" value=""1"""
If ArticleProperty = 1 Then Response.Write (" Checked")
Response.Write ">推荐"
Response.Write " <input name=""ArticleProperty"" onclick=""SetStatus(this)"" type=""radio"" id=""ArticleProperty"" value=""2"""
If ArticleProperty = 2 Then Response.Write (" Checked")
Response.Write ">热门 </td>"
Response.Write " <td height=""25""><font color=""#FF0000"">可以利用这个属性制作 "推荐文章""
Response.Write " 和 "热门文章" 等栏目</font></td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td width=""50%"" height=""25"">文章数量"
Response.Write " <input name=""ArticleListNumber"" class=""textbox"" type=""text"" id=""ArticleListNumber2"" style=""width:70%;"" onBlur=""CheckNumber(this,'文章数量');"" value=""" & ArticleListNumber & """></td>"
Response.Write " <td width=""50%"" height=""25"">文章行距"
Response.Write " <input name=""RowHeight"" type=""text"" id=""RowHeight"" class=""textbox"" style=""width:70%;"" onBlur=""CheckNumber(this,'文章行距');"" value=""" & RowHeight & """></td>"
Response.Write " </tr>"
Response.Write " <tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -