getcorrelativepicture.asp

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

		 Response.Write "           </tr>"
		 Response.Write "           <tr>"
		 Response.Write "             <td height=""26"">标题样式"
		 Response.Write "             <input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:75%;"" value=""" & TitleCss & """ /></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 id=""style40"">"
		 Response.Write "             <td width=""50%"" height=""26"">导航类型"
		 Response.Write "               <select name=""NavType"" style=""width:75%;"" onChange=""SetNavStatus()"">"
				  If LabelID = "" Or CStr(NavType) = "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=""24"">"
				 
				 If LabelID = "" Or CStr(NavType) = "0" Then
				  Response.Write ("<div align=""left"" id=""NavWord""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:75%;"" value=""" & Navi & """> 支持HTML")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic style=""display:none""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"">")
				  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
				  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
				  Response.Write ("</div>")
				Else
				  Response.Write ("<div align=""left"" id=""NavWord"" style=""display:none""> ")
				  Response.Write ("<input type=""text"" class=""textbox"" name=""TxtNavi"" style=""width:75%;""> 支持HTML")
				  Response.Write ("</div>")
				  Response.Write ("<div align=""left"" id=NavPic> ")
				  Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""NaviPic"" name=""NaviPic"" value=""" & Navi & """>")
				  Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.NaviPic);"" name=""Submit3"" value=""选择图片..."">")
				  Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.NaviPic.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  id=""style41"">"
		 Response.Write "             <td height=""24"" colspan=""2"">分隔图片"
		 Response.Write "               <input name=""SplitPic"" class=""textbox"" type=""text"" id=""SplitPic"" style=""width:61%;"" value=""" & SplitPic & """ readonly>"
		 Response.Write "               <input name=""SubmitPic"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.SplitPic);"" type=""button"" id=""SubmitPic2"" value=""选择图片..."">"
		 Response.Write "               <span style=""cursor:hand;color:green;"" onClick=""javascript:document.myform.SplitPic.value='';"" onMouseOver=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>"
		 Response.Write "              <div align=""left""> </div></td>"
		 Response.Write "           </tr>"
		 Response.Write "           <tr id=""style42"">"
		 Response.Write "             <td height=""24"">日期格式"
		 Response.Write "               <select  style=""width:75%;"" name=""DateRule"" id=""select2"">"
		 Response.Write KSCMS.ReturnDateFormat(DateRule)
		 Response.Write "               </select> </td>"
		 Response.Write "             <td height=""24"">"
		 Response.Write "               <div align=""left"">日期对齐"
		 Response.Write "                 <select class=""textbox"" name=""DateAlign"" id=""select3"" style=""width:75%;"">"
				   If LabelID = "" Or CStr(DateAlign) = "left" Then
					 Str = " selected"
					Else
					 Str = ""
					End If
					 Response.Write ("<option value=""left""" & Str & ">左对齐</option>")
					If CStr(DateAlign) = "center" Then
					 Str = " selected"
					Else
					 Str = ""
					End If
					 Response.Write ("<option value=""center""" & Str & ">居中对齐</option>")
					If CStr(DateAlign) = "right" Then
					 Str = " selected"
					Else
					 Str = ""
					End If
					 Response.Write ("<option value=""right""" & Str & ">右对齐</option>")
					 
		 Response.Write "                 </select>"
		 Response.Write "               </div></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/ViewCorrelativeArticle.htm','new','left=250,top=50,width=450,height=280')"">点此预览</a></td>"
		 Response.Write "     </tr>"
		 Response.Write "     <tr>"
		 Response.Write "       <td height=""25"">　　　　　 2.作用范围：图片内容页</td>"
		 Response.Write "     </tr>"
		 Response.Write "   </table>"
		Response.Write "</form>"
		  
		Response.Write "</div>"
		Response.Write "</body>"
		Response.Write "</html>"
		Response.Write "<script language=""javascript"">" & vbCrLf
		Response.Write "SelectPicStyle(" & PicStyle & ");" & vbCrLf
		Response.Write "</script>" & vbCrLf
		End Sub
End Class
%>