getpicarticlelist.asp

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

		Response.Write "             <td height=""26"">文章属性"
		Response.Write "                <input name=""ArticleProperty"" type=""radio"" value=""0"""
		If ArticleProperty = 0 Or LabelID = """" Then Response.Write (" Checked")
		Response.Write " > 全部文章"
		Response.Write "                <input name=""ArticleProperty"" title=""可以利用这个属性制作 &quot;推荐图片&quot; 栏目"" type=""radio"" id=""ArticleProperty"" value=""1"""
		If ArticleProperty = 1 Then Response.Write (" Checked")
		Response.Write "> 推荐"
		Response.Write "                <input name=""ArticleProperty"" title=""可以利用这个属性制作 &quot;热门图片&quot; 栏目""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=""26"">选择样式"
		Response.Write "                <select name=""PicStyle"" 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>"
		Response.Write "              <td height=""26"" id=""ContentLenArea"">内容字数"
		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=""26"">标题字数"
		Response.Write "                <input name=""TitleLen"" class=""textbox"" onBlur=""CheckNumber(this,'标题字数');"" type=""text""    style=""width:70%;"" value=""" & TitleLen & """>"
		Response.Write "              </td>"
		Response.Write "            </tr>"
		
			Response.Write "              <tr id=""style50"">"
		Response.Write "                <td width=""50%"" height=""20""> 图片边框"
		Response.Write "                  <select name=""ThumbsBorderType"" class=""textbox"" style=""width:75%;"" onchange=""SetThumbsBorder()"">"
				  
				  If LabelID = "" Or CStr(ThumbsBorderType) = "0" Then
					Response.Write ("<option value=""0"" selected>颜色边框</option>")
					Response.Write ("<option value=""1"">透明边框</option>")
				   Else
					Response.Write ("<option value=""0"">颜色边框</option>")
					Response.Write ("<option value=""1"" selected>透明边框</option>")
				   End If
		Response.Write "                  </select></td>"
		Response.Write "                <td width=""50%"" height=""20"">"
				
				If LabelID = "" Or CStr(ThumbsBorderType) = "0" Then
				  Response.Write ("<div align=""left"" id=""ThumbsBorderColor""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""ColorThumbsBorder"" style=""width:120;"" value=""" & ThumbsBorder & """>")
				  Response.Write ("<input type=""button"" name=""button1"" value=""选择颜色..."" onClick=""OpenThenSetValue('../../Dialog/SelectColor.asp',230,190,window,document.myform.ColorThumbsBorder);""> ")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=ThumbsBorderPic style=""display:none""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""PicThumbsBorder"" name=""PicThumbsBorder"">")
				  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.PicThumbsBorder);"" name=""Submit3"" value=""选择图片..."">")
				  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.PicThumbsBorder.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
				  Response.Write ("</div>")
				Else
				  Response.Write ("<div align=""left"" id=""ThumbsBorderColor"" style=""display:none""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""ColorThumbsBorder"" style=""width:120;""> ")
				  Response.Write ("<input type=""button"" name=""button1"" value=""选择颜色..."" onClick=""OpenThenSetValue('../../Dialog/SelectColor.asp',230,190,window,document.myform.ColorThumbsBorder);""> ")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=""ThumbsBorderPic"">")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""PicThumbsBorder"" name=""PicThumbsBorder"" value=""" & ThumbsBorder & """>")
				  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.PicThumbsBorder);"" name=""Submit3"" value=""选择图片..."">")
				  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.PicThumbsBorder.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
				  Response.Write ("</div>")
				End If
				
		Response.Write "                </td>"
		Response.Write "              </tr>"
		
		Response.Write "            <tr>"
		Response.Write "              <td height=""26"">文章数量"
		Response.Write "                <input name=""PicArticleNumber"" class=""textbox"" type=""text"" id=""PicArticleNumber""    style=""width:70%;"" onBlur=""CheckNumber(this,'文章数量');"" value=""" & PicArticleNumber & """>"
		Response.Write "              </td>"
		Response.Write "              <td height=""30"">排序方法"
		Response.Write "                <select name=""ArticleSort"">"
					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=""26"">每行数量"
		Response.Write "                <input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'每行数量');""  style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
		Response.Write "              </td>"
		Response.Write "              <td height=""30"">标题样式"
		Response.Write "                <input class=""textbox"" name=""TitleCss"" type=""text"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """></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/ViewPicArticle.htm','new','left=250,top=50,width=450,height=230')"">点此预览</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 language=""javascript"">"
		Response.Write "SelectPicStyle(" & PicStyle & ");"
		Response.Write "</script>"
		End Sub
End Class
%>