getmarqueepicture.asp

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

						Response.Write ("<option value=""down"" selected>向下滚动</option>")
						Else
						Response.Write ("<option value=""down"">向下滚动</option>")
						End If
						
		Response.Write "                </select></td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea"">排序方法"
		Response.Write "                <select name=""PictureSort""  style=""width:75%;"">"
					
					If PictureSort = "ID Desc" Then
					Response.Write ("<option value='ID Desc' selected>图片ID(降序)</option>")
					Else
					Response.Write ("<option value='ID Desc'>图片ID(降序)</option>")
					End If
					If PictureSort = "ID Asc" Then
					Response.Write ("<option value='ID Asc' selected>图片ID(升序)</option>")
					Else
					Response.Write ("<option value='ID Asc'>图片ID(升序)</option>")
					End If
					If PictureSort = "AddDate Asc" Then
					Response.Write ("<option value='AddDate Asc' selected>更新时间(升序)</option>")
					Else
					Response.Write ("<option value='AddDate Asc'>更新时间(升序)</option>")
					End If
					If PictureSort = "AddDate Desc" Then
					 Response.Write ("<option value='AddDate Desc' selected>更新时间(降序)</option>")
					Else
					 Response.Write ("<option value='AddDate Desc'>更新时间(降序)</option>")
					End If
					If PictureSort = "Hits Asc" Then
					 Response.Write ("<option value='Hits Asc' selected>点击数(升序)</option>")
					Else
					 Response.Write ("<option value='Hits Asc'>点击数(升序)</option>")
					End If
					If PictureSort = "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 name=""MarqueeWidth"" class=""textbox"" type=""text"" id=""MarqueeWidth2"" value=""" & MarqueeWidth & """ size=""16"" onBlur=""CheckNumber(this,'占据宽度');"">"
		Response.Write "像素 </td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea""> 占据高度"
		Response.Write "                <input name=""MarqueeHeight"" class=""textbox"" type=""text"" id=""MarqueeHeight"" value=""" & MarqueeHeight & """ size=""16"" onBlur=""CheckNumber(this,'占据高度');"">"
		Response.Write "像素</td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""26"">"
		Response.Write KSCMS.ReturnOpenTypeStr(OpenType)
		Response.Write "</td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea"">显示名称"
				   
				   If ShowTitle = True Then
					Response.Write ("<input name=""ShowTitle"" onclick=""SetStatus(true)"" type=""radio"" value=""true"" checked>是")
					Response.Write ("<input name=""ShowTitle"" onclick=""SetStatus(false)"" type=""radio"" value=""false"">否")
					Else
					  Response.Write ("<input type=""radio"" onclick=""SetStatus(true)""  value=""true"" name=""ShowTitle"">是")
					  Response.Write ("<input type=""radio"" onclick=""SetStatus(false)"" value=""false"" name=""ShowTitle"" checked>否")
				   End If
		Response.Write "        </td>"
		Response.Write "            </tr>"
		Response.Write "            <tr>"
		Response.Write "              <td height=""26"">图片大小 图片宽度"
		Response.Write "                <input name=""PicWidth"" class=""textbox"" type=""text"" id=""PicWidth2"" value=""" & PicWidth & """ size=""16"" onBlur=""CheckNumber(this,'图片宽度');"">"
		Response.Write "像素 </td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea"">图片高度"
		Response.Write "                <input name=""PicHeight"" class=""textbox"" type=""text"" id=""PicHeight2"" value=""" & PicHeight & """ size=""16"" onBlur=""CheckNumber(this,'图片高度');"">"
		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=""MarqueeSpeed"" type=""text"" class=""textbox"" id=""MarqueeSpeed""    style=""width:75%;"" onBlur=""CheckNumber(this,'滚动速度');"" value=""" & MarqueeSpeed & """></td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea"">图片数量"
		Response.Write "              <input name=""PicPictureNumber"" class=""textbox"" type=""text"" id=""PicPictureNumber""    style=""width:75%;"" onBlur=""CheckNumber(this,'图片数量');"" value=""" & PicPictureNumber & """></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:75%;"" value=""" & TitleLen & """>              </td>"
		Response.Write "              <td height=""26"" valign=""top"" id=""ViewStylePicArea"">标题样式"
		Response.Write "              <input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:75%;"" 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 "    <br>"
		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/ViewMarqueePicture.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 "  </form>"
		  
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script language=""javascript"">"
		Response.Write "SetStatus('" & ShowTitle & "');"
		Response.Write "</script>"
		End Sub
End Class
%>