📄 getdownloadlist.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
					Else
					Response.Write ("<option value='ID Desc'>下载ID(降序)</option>")
					End If
					If DownLoadSort = "ID Asc" Then
					Response.Write ("<option value='ID Asc' selected>下载ID(升序)</option>")
					Else
					Response.Write ("<option value='ID Asc'>下载ID(升序)</option>")
					End If
					If DownLoadSort = "AddDate Asc" Then
					Response.Write ("<option value='AddDate Asc' selected>更新时间(升序)</option>")
					Else
					Response.Write ("<option value='AddDate Asc'>更新时间(升序)</option>")
					End If
					If DownLoadSort = "AddDate Desc" Then
					 Response.Write ("<option value='AddDate Desc' selected>更新时间(降序)</option>")
					Else
					 Response.Write ("<option value='AddDate Desc'>更新时间(降序)</option>")
					End If
					If DownLoadSort = "Hits Asc" Then
					 Response.Write ("<option value='Hits Asc' selected>点击数(升序)</option>")
					Else
					 Response.Write ("<option value='Hits Asc'>点击数(升序)</option>")
					End If
					If DownLoadSort = "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 width=""50%"" height=""24"">排列列数"
			Response.Write "             <input type=""text"" class=""textbox"" onBlur=""CheckNumber(this,'排列列数');""  style=""width:70%;"" value=""" & ColNumber & """ name=""ColNumber"">"
		   Response.Write "           </td>"
		   
		   Response.Write "           <td width=""50%"" height=""24"" style=""display:none"">"
		   Response.Write "             显示方式 (预留功能)"
		   Response.Write "               <select name=""ShowStyle"">"
				   If ShowStyle = 1 Then
					Response.Write ("<option value='1' selected>下载名称列表</option>")
					Else
					Response.Write ("<option value='1'>下载名称列表</option>")
					End If
					If ShowStyle = 2 Then
					Response.Write ("<option value='2' selected>下载名称+缩略图</option>")
					Else
					Response.Write ("<option value='2'>下载名称+缩略图</option>")
					End If
						 
		   Response.Write "              </select>　                </td>"
		   Response.Write "         </tr>"
		   Response.Write "         <tr>"
		   Response.Write "           <td width=""50%"" height=""24"">导航类型"
		   Response.Write "             <select name=""NavType"" style=""width:70%;"" 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:70%;"" 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:70%;""> 支持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=""MoreLinkArea"" "
			 If DownLoadProperty <> "0" Then Response.Write (" style=""display:none""")
			 Response.Write ">"
			 Response.Write "         <td width=""50%"" height=""24"">更多链接"
			 Response.Write "           <select name=""MoreLinkType"" style=""width:70%;"" onChange=""SetMoreLinkStatus()"">"
						If LabelID = "" Or CStr(MoreLinkType) = "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(MoreLinkType) = "0" Then
					Response.Write ("<div align=""left"" id=""LinkWord""> ")
					Response.Write ("  <input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"" value=""" & MoreLink & """>")
					Response.Write ("</div>")
					Response.Write ("<div align=""left"" id=""LinkPic"" style=""display:none""> ")
					Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"">")
					Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
					Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.value='';"" onmouseover=""this.style.color='red'"" onMouseOut=""this.style.color='green'"">清除</span>")
					Response.Write ("</div>")
				Else
				   Response.Write ("<div align=""left"" id=""LinkWord"" style=""display:none""> ")
				   Response.Write ("<input type=""text"" class=""textbox"" name=""MoreLinkWord"" style=""width:70%;"">")
				   Response.Write ("</div>")
				   Response.Write ("<div align=""left"" id=""LinkPic""> ")
				   Response.Write ("<input type=""text"" class=""textbox"" readonly style=""width:120;"" id=""MoreLinkPic"" name=""MoreLinkPic"" value=""" & MoreLink & """>")
				   Response.Write ("<input type=""button"" onClick=""OpenThenSetValue('../../Dialog/SelectPic.asp?CurrPath=" & CurrPath & "&ShowVirtualPath=true',550,290,window,document.myform.MoreLinkPic);"" name=""Submit3"" value=""选择图片..."">")
				   Response.Write ("&nbsp;<span style=""cursor:hand;color:green;"" onclick=""javascript:document.myform.MoreLinkPic.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=""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>"
			 Response.Write "         <td height=""24"">日期格式"
			 Response.Write "           <select  style=""width:70%;"" 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:70%;"">"
					 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 "        <tr>"
			Response.Write "          <td height=""24"">标题样式"
			Response.Write "            <input name=""TitleCss"" class=""textbox"" type=""text"" id=""TitleCss"" style=""width:70%;"" value=""" & TitleCss & """></td>"
			Response.Write "          <td height=""24"">日期样式"
			Response.Write "            <input name=""DateCss"" class=""textbox"" type=""text"" id=""DateCss"" style=""width:70%;"" value=""" & DateCss & """></td>"
			Response.Write "        </tr>"
			Response.Write "      </table>"
			Response.Write "      </FIELDSET></td>"
			Response.Write "  </tr>"
			Response.Write "</table>"
		   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=""SubmitBtn""  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=""22""><strong>附加说明：</strong>1<strong>.</strong>显示最新添加的下载"
			Response.Write "      　　<a href=""#"" onClick=""javascript:open('../View/ViewArticleList.htm','new','left=250,top=50,width=450,height=280')"">点此预览</a></td>"
			Response.Write "  </tr>"
			Response.Write "  <tr>"
			Response.Write "    <td height=""22"">　　　　　 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>"
		End Sub
End Class
%>
上一页 12
⌨️ 快捷键说明

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