getmarqueearticle.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

		Response.Write "                　　</td>"
		Response.Write "              <td>滚动方向"
		Response.Write "                <select class=""textbox"" name=""MarqueeDirection"" id=""MarqueeDirection"" 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
%>