📄 getspecialmarqueearticle.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../../Conn.asp"-->
<!--#include file="../../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 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 GetSpecialMarqueeArticle
KSCls.Execute()
Set KSCls = Nothing

Class GetSpecialMarqueeArticle
        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 TempSpecialID, FolderID, LabelContent, LabelContentArr, Action, LabelID, Str, Descript, LabelFlag
		Dim SpecialID, MarqueeWidth, MarqueeHeight, DateRule, OpenType, MarqueeArticleNumber, MarqueeBgcolor, MarqueeDirection, TitleLen, MarqueeStyle, ArticleSort, MarqueeSpeed, TitleCss, DateCss
		FolderID = Request("FolderID")
		'判断是否编辑
		LabelID = Trim(Request.QueryString("LabelID"))
		If LabelID = "" Then
		  SpecialID = "0"
		  Action = "Add"
		Else
			Action = "Edit"
		  Dim LabelRS, LabelName
		  Set LabelRS = Server.CreateObject("Adodb.Recordset")
		  LabelRS.Open "Select * From KS_Label Where ID='" & LabelID & "'", Conn, 1, 1
		  If LabelRS.EOF And LabelRS.BOF Then
			 LabelRS.Close
			 Set LabelRS = Nothing
			 Response.Write ("<Script>alert('参数传递出错!');window.close();</Script>")
			 Response.End
		  End If
			LabelName = Replace(Replace(LabelRS("LabelName"), "{LB_", ""), "}", "")
			FolderID = LabelRS("FolderID")
			Descript = LabelRS("Description")
			LabelContent = LabelRS("LabelContent")
			LabelFlag = LabelRS("LabelFlag")
			LabelRS.Close
			Set LabelRS = Nothing
			LabelContent = Replace(Replace(LabelContent, "{$GetSpecialMarqueeArticle(", ""), ")}", "")
			LabelContent = Replace(LabelContent, """", "") '注:去除左右双引号"
			LabelContentArr = Split(LabelContent, ",")
			SpecialID = LabelContentArr(0)
			MarqueeWidth = LabelContentArr(1)
			MarqueeHeight = LabelContentArr(2)
			MarqueeSpeed = LabelContentArr(3)
			MarqueeDirection = LabelContentArr(4)
			OpenType = LabelContentArr(5)
			ArticleSort = LabelContentArr(6)
			TitleLen = LabelContentArr(7)
			MarqueeStyle = LabelContentArr(8)
			MarqueeArticleNumber = LabelContentArr(9)
			DateRule = LabelContentArr(10)
			MarqueeBgcolor = LabelContentArr(11)
			TitleCss = LabelContentArr(12)
			DateCss = LabelContentArr(13)
		End If
		If MarqueeWidth = "" Then MarqueeWidth = 150
		If MarqueeHeight = "" Then MarqueeHeight = 20
		If MarqueeArticleNumber = "" Then MarqueeArticleNumber = 10
		If TitleLen = "" Then TitleLen = 30
		If MarqueeSpeed = "" Then MarqueeSpeed = 5
		If LabelID = "" Then MarqueeStyle = 0
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<link href=""../../Inc/ModeWindow.css"" rel=""stylesheet"">"
		Response.Write "<script src=""../LabelJS/GetSpecialMarqueeArticle.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=""AddLabelSave.asp"">"
		Response.Write " <input type=""hidden"" name=""LabelContent"">"
		Response.Write "  <input type=""hidden"" name=""LabelFlag"" value=""" & LabelFlag & """>"
		Response.Write " <input type=""hidden"" name=""Action"" value=""" & Action & """ > """
		Response.Write "  <input type=""hidden"" name=""LabelID"" value=""" & LabelID & """ > """
		Response.Write " <input type=""hidden"" name=""FileUrl"" value=""GetSpecialMarqueeArticle.asp"">"
		Response.Write "    <br>"
		Response.Write KSCMS.ReturnLabelInfo(LabelName, FolderID, Descript)
		Response.Write "    <br>"
		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>滚动专题标签属性设置</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  class=""textbox"" style=""width:70%;"" name=""SpecialID"" id=""SpecialID"" onChange=""SetLabelFlag(this)"">"
		Response.Write "                  <option selected value=""-1"" style=""color:red"">- 当前专题(专题页通用)-</option>"
						  
		
						  If SpecialID = "0" Then
						   Response.Write ("<option  value=""0"" selected>- 不指定专题 -</option>")
						   Else
						  Response.Write ("<option  value=""0"">- 不指定专题 -</option>")
						  End If
						
		Response.Write KSCMS.ReturnSpecial(SpecialID, 1, "")
		Response.Write "</select> </td>"
		Response.Write "              <td height=""30"">&nbsp; </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">宽高设置 占据宽度"
		Response.Write "                <input name=""MarqueeWidth"" class=""textbox"" type=""text"" id=""MarqueeWidth2"" value=""" & MarqueeWidth & """ size=""16"" onBlur=""CheckNumber(this,'占据宽度');"">像素 </td>"
		Response.Write "              <td height=""30"">占据高度"
		Response.Write "                <input name=""MarqueeHeight"" class=""textbox"" type=""text"" id=""MarqueeHeight"" value=""" & MarqueeHeight & """ size=""16"" onBlur=""CheckNumber(this,'占据高度');"">像素</td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">滚动速度"
		Response.Write "                <input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'滚动速度');""  style=""width:70%;"" value=""" & MarqueeSpeed & """ name=""MarqueeSpeed"">"
		Response.Write "                　　</td>"
		Response.Write "              <td>滚动方向"
		Response.Write "                <select class=""textbox"" name=""MarqueeDirection"" id=""select3"" style=""width:160;"">"
						If MarqueeDirection = "left" Then
						Response.Write ("<option value=""left"" selected>向左滚动</option>")
					   Else
						Response.Write ("<option value=""left"">向左滚动</option>")
					   End If
					   If MarqueeDirection = "right" Then
						Response.Write ("<option value=""right"" selected>向右滚动</option>")
					   Else
						Response.Write ("<option value=""right"">向右滚动</option>")
					   End If
					   If MarqueeDirection = "up" Then
						Response.Write ("<option value=""up"" selected>向上滚动</option>")
						Else
						Response.Write ("<option value=""up"">向上滚动</option>")
						End If
						If MarqueeDirection = "down" Then
						Response.Write ("<option value=""down"" selected>向下滚动</option>")
						Else
						Response.Write ("<option value=""down"">向下滚动</option>")
						End If
						
		Response.Write "                </select></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">"
			  
		Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
		
		Response.Write "                　</td>"
		Response.Write "              <td>排序方法"
		Response.Write "                <select class=""textbox"" name=""ArticleSort"" style=""width:160;"">"
					If ArticleSort = "ID Desc" Then
					Response.Write ("<option value='ID Desc' selected>文章ID(降序)</option>")
					Else
					Response.Write ("<option value='ID Desc'>文章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 name=""TitleLen"" class=""textbox"" onBlur=""CheckNumber(this,'标题字数');"" type=""text""    style=""width:70%;"" value=""" & TitleLen & """ >"
		Response.Write "              </td>"
		Response.Write "              <td>滚动方式"
					 
					 If MarqueeStyle = 0 Then
					  Response.Write ("<input type=""radio"" onclick=""SetDisabled(0);"" value=""0"" name=""MarqueeStyle"" checked>默认方式 ")
					  Response.Write ("<input type=""radio"" onclick=""SetDisabled(1);"" value=""1"" name=""MarqueeStyle"">纵向间隔滚动 ")
					 Else
					  Response.Write ("<input type=""radio"" onclick=""SetDisabled(0);"" value=""0"" name=""MarqueeStyle"">默认方式 ")
					  Response.Write ("<input type=""radio"" onclick=""SetDisabled(1);"" value=""1"" name=""MarqueeStyle"" checked>纵向间隔滚动 ")
					 End If
		
		Response.Write "              </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">文章数量"
		Response.Write "                <input class=""textbox"" name=""MarqueeArticleNumber"" type=""text"" id=""MarqueeArticleNumber""    style=""width:70%;"" onBlur=""CheckNumber(this,'文章数量');"" value=""" & MarqueeArticleNumber & """ >"
		Response.Write "              </td>"
		Response.Write "              <td>日期格式"
		Response.Write "                <select class=""textbox"" style=""width:70%;"" name=""DateRule"" id=""select4"">"
		Response.Write KSCMS.ReturnDateFormat(DateRule)
		Response.Write "                </select></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">背景颜色"
		Response.Write "                <input name=""MarqueeBgcolor"" class=""textbox"" type=""text"" style=""width:70%;"" id=""MarqueeBgcolor"" value=""" & MarqueeBgcolor & """></td>"
		Response.Write "              <td><input type=""button"" name=""button1"" value=""选择颜色..."" onClick=""OpenThenSetValue('../../Dialog/SelectColor.asp',230,190,window,document.myform.MarqueeBgcolor);""></td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""30"">标题样式"
		Response.Write "                <input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """></td>"
		Response.Write "              <td>日期样式"
		Response.Write "                <input name=""DateCss"" class=""textbox"" type=""text"" id=""DateCss"" style=""width:70%;"" value=""" & DateCss & """ >"
		Response.Write "               </td>"
		Response.Write "            </tr>"
		Response.Write "          </table>"
		Response.Write "          </FIELDSET></td>"
		Response.Write "      </tr>"
		Response.Write "    </table>"
		Response.Write "    <br>"
		Response.Write "            <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		Response.Write "              <tr>"
		Response.Write "                <td>&nbsp;</td>"
		Response.Write "                <td width=""100""> <div align=""center"">"
		Response.Write "                    <input name=""SubmitBtn"" type=""button""  onClick=""InsertScriptFun()""  id=""Submitsss4""  value="" 确 定 "">"
		Response.Write "                  </div></td>"
		Response.Write "                <td width=""100""> <div align=""center"">"
		Response.Write "                    <input type=""button"" onClick=""window.close();"" name=""Submit2"" value="" 取 消 "">"
		Response.Write "                  </div></td>"
		Response.Write "                <td>&nbsp;</td>"
		Response.Write "              </tr>"
		Response.Write "            </table>"
				 
		Response.Write "  <table width=""92%"" height=""15"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
		Response.Write "      <tr>"
		Response.Write "       <td height=""25""><strong>附加说明：</strong>1<strong>.</strong>此标签作用：显示加入专题且具有滚动属性的文章"
		Response.Write "          　　<a href=""#"" onclick=""javascript:open('../View/ViewMarquee.htm','new','left=250,top=50,width=400,height=180')"">点此预览</a></td>"
		Response.Write "      </tr>"
		Response.Write "      <tr>"
		Response.Write "        <td height=""25"">　　　　　 2.当选择专题为<font color=""#FF0000""> &quot;当前专题(专题页通用)&quot;</font>,则此标签在专题页通用</td>"
		Response.Write "      </tr>"
		Response.Write "    </table>"
		Response.Write "  </form>"
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script>"
		Response.Write "SetDisabled(" & MarqueeStyle & ");"
		Response.Write "</script>"
		End Sub
End Class
%>
⌨️ 快捷键说明

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