⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 addpicarticlejs.asp

📁 科汛网站管理系统(KeSion CMS) v2.2 是科汛网络基于ASP技术开发的网站管理系统
💻 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 AddPicArticleJS
KSCls.Execute()
Set KSCls = Nothing

Class AddPicArticleJS
        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, JSFileName, JSConfig, JSConfigArr, Action, JSID, Str, Descript, JSFlag, FolderID
		Dim ClassID, IncludeSubClass, PicWidth, PicHeight, OpenType, PicArticleNumber, ShowTitle, ArticleProperty, PicStyle, ContentLen, TitleLen, ArticleSort, ColNumber, TitleCss
		'判断是否编辑
		JSID = Trim(Request.QueryString("JSID"))
		FolderID = Request.QueryString("FolderID")
		
		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 = JSRS("JSFileName")
			Descript = JSRS("Description")
			JSConfig = JSRS("JSConfig")
			JSRS.Close
			Set JSRS = Nothing
			JSConfig = Replace(JSConfig, """", "") '注:去除左右双引号"
			JSConfigArr = Split(JSConfig, ",")
			ClassID = JSConfigArr(1)
			IncludeSubClass = CBool(JSConfigArr(2))
			PicWidth = JSConfigArr(3)
			PicHeight = JSConfigArr(4)
			OpenType = JSConfigArr(5)
			ShowTitle = CBool(JSConfigArr(6))
			ArticleProperty = JSConfigArr(7)
			PicStyle = JSConfigArr(8)
			ContentLen = JSConfigArr(9)
			TitleLen = JSConfigArr(10)
			PicArticleNumber = JSConfigArr(11)
			ArticleSort = JSConfigArr(12)
			ColNumber = JSConfigArr(13)
			TitleCss = JSConfigArr(14)
			
		End If
		If PicWidth = "" Then PicWidth = 130
		If PicHeight = "" Then PicHeight = 90
		If PicArticleNumber = "" Then PicArticleNumber = 10
		If PicStyle = "" Then PicStyle = 1
		If ContentLen = "" Then ContentLen = 50
		If TitleLen = "" Then TitleLen = 30
		If ColNumber = "" Then ColNumber = 5
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<link href=""../../inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
		Response.Write "<script src=""../LabelJS/AddPicArticleJS.JS"" language=""JavaScript""></script>"
		Response.Write "<script src=""../../JS/Common.js"" language=""JavaScript""></script>"
		Response.Write "</head>"
		Response.Write "<body topmargin=""0"" leftmargin=""0"" scroll=no>"
		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=""AddPicArticleJS.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=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "            <tr>"
		Response.Write "              <td width=""50%"" height=""30"">选择栏目"
		Response.Write "                <select  style=""width:70%;"" name=""ClassList"" class=""textbox"" id=""ClassList"">"
						  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> "
					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 "                允许包含子栏目</td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">图片设置 宽 <input name=""PicWidth"" type=""text"" class=""textbox"" id=""PicWidth"" value=""" & PicWidth & """ size=""8"" onBlur=""CheckNumber(this,'图片宽度');"">像素 高"
		Response.Write "                <input name=""PicHeight"" type=""text"" class=""textbox"" id=""PicHeight"" value=""" & PicHeight & """ size=""8"" onBlur=""CheckNumber(this,'图片高度');"">像素</td>"
		Response.Write "              <td rowspan=""6"" id=""ViewStylePicArea"">&nbsp;</td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">"
					   
		Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
				
		 Response.Write "                     显示标题"
					If JSID = "" Or ShowTitle = True Then
					  Response.Write ("<input name=""ShowTitle"" type=""radio"" value=""true"" checked>显示")
					  Response.Write ("<input name=""ShowTitle"" type=""radio"" value=""false"">不显示")
					Else
					  Response.Write ("<input type=""radio"" value=""true"" name=""ShowTitle"">显示")
					  Response.Write ("<input type=""radio"" value=""false"" name=""ShowTitle"" checked>不显示")
				   End If
		Response.Write "        </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">文章属性"
		Response.Write "                <input name=""ArticleProperty"" type=""radio"" value=""0"""
		If ArticleProperty = 0 Or JSID = """" Then Response.Write (" Checked")
		Response.Write ">全部文章"
		Response.Write "                <input name=""ArticleProperty"" type=""radio"" id=""ArticleProperty"" value=""1"""
		If ArticleProperty = 1 Then Response.Write (" Checked")
		Response.Write ">推荐"
		Response.Write "                <input name=""ArticleProperty"" type=""radio"" id=""ArticleProperty"" value=""2"""
		If ArticleProperty = 2 Then Response.Write (" Checked")
		Response.Write ">热门 </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">选择样式"
		Response.Write "                <select name=""PicStyle"" class=""textbox"" onchange=""SelectPicStyle(this.value)"">"
						  If PicStyle = "1" Then
							Response.Write ("<option value=""1"" selected>样式一</option>")
						  Else
							Response.Write ("<option value=""1"">样式一</option>")
						  End If
						  If PicStyle = "2" Then
							Response.Write ("<option value=""2"" selected>样式二</option>")
						  Else
							Response.Write ("<option value=""2"">样式二</option>")
						  End If
						  If PicStyle = "3" Then
							  Response.Write ("<option value=""3"" selected>样式三</option>")
						  Else
							  Response.Write ("<option value=""3"">样式三</option>")
						  End If
						 
		Response.Write "                </select>"
		Response.Write "                　<font color=""#FF0000"">选择右边效果预览</font></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr id=""ContentLenArea"">"
		Response.Write "              <td height=""30"">内容字数"
		Response.Write "                <input name=""ContentLen"" type=""text"" class=""textbox"" id=""ContentLen"" style=""width:70%;"" onBlur=""CheckNumber(this,'内容字数');"" value=""" & ContentLen & """></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">标题字数"
		Response.Write "                <input name=""TitleLen"" onBlur=""CheckNumber(this,'标题字数');"" type=""text"" class=""textbox"" style=""width:70%;"" value=""" & TitleLen & """>"
		Response.Write "              </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">文章数量"
		Response.Write "                <input name=""PicArticleNumber"" type=""text"" id=""PicArticleNumber"" class=""textbox"" style=""width:70%;"" onBlur=""CheckNumber(this,'文章数量');"" value=""" & PicArticleNumber & """>"
		Response.Write "              </td>"
		Response.Write "              <td height=""30"">排序方法"
		Response.Write "                <select name=""ArticleSort"" class=""textbox"">"
				   
					If ArticleSort = "ID Desc" Then
					Response.Write ("<option value='ID Asc' selected>文章ID(降序)</option>")
					Else
					Response.Write ("<option value='ID Asc'>文章ID(降序)</option>")
					End If
					If ArticleSort = "ID Asc" Then
					Response.Write ("<option value='ID Asc' selected>文章ID(升序)</option>")
					Else
					Response.Write ("<option value='ID Asc'>文章ID(升序)</option>")
					End If
					If ArticleSort = "AddDate Asc" Then
					Response.Write ("<option value='AddDate Asc' selected>更新时间(升序)</option>")
					Else
					Response.Write ("<option value='AddDate Asc'>更新时间(升序)</option>")
					End If
					If ArticleSort = "AddDate Desc" Then
					 Response.Write ("<option value='AddDate Desc' selected>更新时间(降序)</option>")
					Else
					 Response.Write ("<option value='AddDate Desc'>更新时间(降序)</option>")
					End If
					If ArticleSort = "Hits Asc" Then
					 Response.Write ("<option value='Hits Asc' selected>点击数(升序)</option>")
					Else
					 Response.Write ("<option value='Hits Asc'>点击数(升序)</option>")
					End If
					If ArticleSort = "Hits Desc" Then
					  Response.Write ("<option value='Hits Desc' selected>点击数(降序)</option>")
					Else
					  Response.Write ("<option value='Hits Desc'>点击数(降序)</option>")
					End If
				   
		Response.Write "                </select></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">每行数量"
		Response.Write "                <input type=""text"" onBlur=""CheckNumber(this,'每行数量');"" class=""textbox""  style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
		Response.Write "              </td>"
		Response.Write "              <td height=""30"">标题样式<font color=""#FF0000"">"
		Response.Write "                <input name=""TitleCss"" type=""text"" id=""TitleCss"" class=""textbox"" style=""width:70%;"" value=""" & TitleCss & """>"
		Response.Write "                </font></td>"
		Response.Write "            </tr>"
		Response.Write "          </table>"
		Response.Write "          </FIELDSET></td>"
		Response.Write "      </tr>"
		Response.Write "    </table>"
		Response.Write "  </form>"
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script>"
		Response.Write "SelectPicStyle(" & PicStyle & ");"
		Response.Write "</script>"
		End Sub
End Class
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -