ks_commoncls.asp

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

	'函数名：ReturnLabelFolderTree
	'作  用：显示标签目录列表。
	'参  数：SelectID ----  默认目录树ID号,ChannelID频道ID号,FolderType目录类型 0系统函数标签目录,1自由标签目录
	'返回值：标签目录列表
	'*************************************************************************************************************
	Public Function ReturnLabelFolderTree(SelectID, FolderType)
		   Dim TempStr,ID,FolderName
		   SelectID = Trim(SelectID)
		   If FolderType = "" Then FolderType = 0
		   TempStr = "<select class='textbox' style='width:200;border-style: solid; border-width: 1' name='ParentID'>"
		   
		   TempStr = TempStr & "<option value='0' Selected>根目录</option>"
			Dim LabelFolderRS:Set LabelFolderRS=Server.CreateObject("ADODB.RECORDSET")
			
			LabelFolderRS.Open ("Select ID,FolderName from KS_LabelFolder Where FolderType=" & FolderType & " And ParentID='0' Order By AddDate desc"), Conn, 1, 1
			
			Do While Not LabelFolderRS.EOF
			   ID = Trim(LabelFolderRS(0))
			   FolderName = Trim(LabelFolderRS(1))
			   TempStr = TempStr & "<option  "
			   If SelectID = ID Then TempStr = TempStr & " Selected"
			   TempStr = TempStr & " value='" & ID & "'>" & FolderName & " </option>"
			   TempStr = TempStr & ReturnSubLabelFolderTree(ID, SelectID)
			LabelFolderRS.MoveNext
			Loop
			LabelFolderRS.Close:Set LabelFolderRS = Nothing
			TempStr = TempStr & "</select>"
			ReturnLabelFolderTree = TempStr
	End Function
	
	'************************************************************************************
	'函数名：ReturnSubLabelFolderTree
	'作  用：查找并返子树数据。
	'参  数：ParentID ----父节点ID,   FolderID ----选择项ID
	'返回值：标签目录子树列表
	'************************************************************************************
	Public Function ReturnSubLabelFolderTree(ParentID, FolderID)
	  Dim SubTypeList, SubRS, SpaceStr, k, Total, Num,FolderName, ID,TJ
	  
	  Set SubRS = Server.CreateObject("ADODB.RECORDSET")
	  SubRS.Open ("Select count(ID) AS total from KS_LabelFolder Where ParentID='" & ParentID & "'"), Conn, 1, 1
	  Total = SubRS("Total")
	  SubRS.Close
	  SubRS.Open ("Select ID,FolderName,TS from KS_LabelFolder Where ParentID='" & ParentID & "' Order BY AddDate Desc"), Conn, 1, 1
	  Num = 0
	  Do While Not SubRS.EOF
	   Num = Num + 1:SpaceStr = ""
		TJ = UBound(Split(SubRS(2), ","))
		For k = 1 To TJ - 1
		  If k = 1 And k <> TJ - 1 Then
		  SpaceStr = SpaceStr & "&nbsp;&nbsp;│"
		  ElseIf k = TJ - 1 Then
			If Num = Total Then
				 SpaceStr = SpaceStr & "&nbsp;&nbsp;└ "
			Else
				 SpaceStr = SpaceStr & "&nbsp;&nbsp;├ "
			End If
		  Else
		   SpaceStr = SpaceStr & "&nbsp;&nbsp;│"
		  End If
		Next
	  ID = Trim(SubRS(0))
	  FolderName = Trim(SubRS(1))
	  If FolderID = ID Then
	   SubTypeList = SubTypeList & "<option selected value='" & ID & "'>" & SpaceStr & FolderName & "</option>"
	  Else
	   SubTypeList = SubTypeList & "<option value='" & ID & "'>" & SpaceStr & FolderName & "</option>"
	  End If
	   SubTypeList = SubTypeList & ReturnSubLabelFolderTree(ID, FolderID)
	  SubRS.MoveNext
	 Loop
	  SubRS.Close:Set SubRS = Nothing:ReturnSubLabelFolderTree = SubTypeList
	End Function
	
	'***********************************************************************************************************
	'函数名：ReturnLabelInfo
	'参  数：LabelName ----  默认标签名称,FolderID---标签目录ID号,Descript---标签描述
	'返回值：标签基本信息
	'*************************************************************************************************************
	Public Function ReturnLabelInfo(LabelName, FolderID, Descript)
	  ReturnLabelInfo = ("<table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
	  ReturnLabelInfo = ReturnLabelInfo & ("    <tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      <td>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      <FIELDSET align=center><LEGEND align=left>标签基本信息</LEGEND>")
	  ReturnLabelInfo = ReturnLabelInfo & ("        <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
	  ReturnLabelInfo = ReturnLabelInfo & ("          <tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      <td height=""30"">标签名称")
	  ReturnLabelInfo = ReturnLabelInfo & ("        <input name=""LabelName"" class=""textbox"" type=""text"" id=""LabelName"" value=""" & LabelName & """>")
	  ReturnLabelInfo = ReturnLabelInfo & ("        <font color=""#FF0000""> *</font><font color=""#FF0000""> 例如标签名称：&quot;推荐文章列表&quot;，则调用：&quot;{LB_推荐文章列表}&quot;。</font></td>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    </tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    <tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      <td height=""30"">标签目录 " & ReturnLabelFolderTree(FolderID, 0) & "<font color=""#FF0000"">请选择标签归属目录，以便日后管理标签</font></td>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    </tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    <tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      <td height=""30"">标签描述")
	  ReturnLabelInfo = ReturnLabelInfo & ("        <input name=""Descript"" class=""textbox"" type=""text"" id=""Descript"" value=""" & Descript & """ size=""40"">")
	  ReturnLabelInfo = ReturnLabelInfo & ("        <font color=""#FF0000""> 请在此输入标签的说明,方便以后查找</font></td>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    </tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      </table>")
	  ReturnLabelInfo = ReturnLabelInfo & ("      </FIELDSET></td>")
	  ReturnLabelInfo = ReturnLabelInfo & ("    </tr>")
	  ReturnLabelInfo = ReturnLabelInfo & ("  </table>")
	End Function
		
	'****************************************************************************************************************************
	'函数名：ReturnJSInfo
	'参  数：JSID--JSID号,JSName ----    默认JS名称,JSFileName----JS文件名,FolderID---标签目录ID号,FolderType---目录类型,Descript---标签描述
	'返回值：标签基本信息
'*******************************************************************************************************************************
	Public Function ReturnJSInfo(JSID, JSName, JSFileName, FolderID, FolderType, Descript)
		 ReturnJSInfo = "<table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
		 ReturnJSInfo = ReturnJSInfo & ("    <tr>")
		 ReturnJSInfo = ReturnJSInfo & ("       <td>")
		 ReturnJSInfo = ReturnJSInfo & ("      <FIELDSET align=center><LEGEND align=left>JS基本信息</LEGEND>")
		 ReturnJSInfo = ReturnJSInfo & ("        <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
		 ReturnJSInfo = ReturnJSInfo & ("            <tr>")
		 ReturnJSInfo = ReturnJSInfo & ("             <td height=""22"">JS 名 称")
		 ReturnJSInfo = ReturnJSInfo & ("                &nbsp;<input name=""JSName"" type=""text"" class=""textbox"" id=""JSName"" value=""" & JSName & """>")
		 ReturnJSInfo = ReturnJSInfo & ("                <font color=""#FF0000""> *</font><font color=""#FF0000""> 例如JS名称：&quot;推荐文章列表&quot;，则在模板中调用：&quot;{JS_推荐文章列表}&quot;（注意英文大小写及全半角）。</font></td>")
		 ReturnJSInfo = ReturnJSInfo & ("            </tr>")
		 ReturnJSInfo = ReturnJSInfo & ("            <tr>")
		 ReturnJSInfo = ReturnJSInfo & ("              <td height=""22"">JS文件名")
		 
		   If JSID <> "" Then
			  ReturnJSInfo = ReturnJSInfo & ("                <input class=""textbox"" disabled=true name=""JSFileName"" type=""text"" id=""JSFileName"" title=""JS文件名：不能带\/：*？“ < > | 等特殊符号"" value=""" & JSFileName & """>")
		   Else
			  ReturnJSInfo = ReturnJSInfo & ("                <input class=""textbox"" name=""JSFileName"" type=""text"" id=""JSFileName"" title=""JS文件名：不能带\/：*？“ < > | 等特殊符号"" value=""" & JSFileName & """>")
		   End If
		 ReturnJSInfo = ReturnJSInfo & ("            <font color=""#FF0000""> * 例如 &quot;News.js&quot; 一定要以扩展名 &quot;.js&quot;结束</font></td>")
		 ReturnJSInfo = ReturnJSInfo & ("        </tr>")
		 ReturnJSInfo = ReturnJSInfo & ("        <tr>")
		 ReturnJSInfo = ReturnJSInfo & ("         <td height=""22"">存放目录 " & ReturnLabelFolderTree(FolderID, FolderType) & " </td>")
		 ReturnJSInfo = ReturnJSInfo & ("       </tr>")
		 ReturnJSInfo = ReturnJSInfo & ("            <tr>")
		 ReturnJSInfo = ReturnJSInfo & ("              <td height=""22"">JS 描 述")
		 ReturnJSInfo = ReturnJSInfo & ("                <textarea class=""textbox"" name=""Descript"" cols=""60"" rows=""4"" id=""Descript"">" & Descript & "</textarea>")
		 ReturnJSInfo = ReturnJSInfo & ("           <font color=""#FF0000""> 请在此输入JS的说明,方便以后查找</font></td>")
		 ReturnJSInfo = ReturnJSInfo & ("            </tr>")
		 ReturnJSInfo = ReturnJSInfo & ("          </table>")
		 ReturnJSInfo = ReturnJSInfo & ("        </FIELDSET></td>")
		 ReturnJSInfo = ReturnJSInfo & ("      </tr>")
		 ReturnJSInfo = ReturnJSInfo & ("   </table>")
		 
		 '采集搜索参数
		 ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""KeyWord"" value=""" & Request.QueryString("KeyWord") & """>")
		 ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""SearchType"" value=""" & Request.QueryString("SearchType") & """>")
		 ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""StartDate"" value=""" & Request.QueryString("StartDate") & """>")
		 ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""EndDate"" value=""" & Request.QueryString("EndDate") & """>")
	End Function
	'**************************************************
	'函数名：ReturnDateFormat
	'作  用：返回系统支持的日期格式
	'参  数：SelectDate 预定选中的日期格式
	'**************************************************
	Public Function ReturnDateFormat(SelectDate)
			 Dim TempFormatDateStr, Str
			 If CStr(SelectDate) = "0" Then
				TempFormatDateStr = ("<option value=""0"" Selected>-不显示日期-</option> ")
			  Else
				TempFormatDateStr = ("<option value=""0"">-不显示日期-</option> ")
			  End If
			  If CStr(SelectDate) = "1" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""1""" & Str & " >2005-10-1</option>")
			  If CStr(SelectDate) = "2" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""2""" & Str & ">2005.10.1</option>")
			  If CStr(SelectDate) = "3" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""3""" & Str & ">2005/10/1</option>")
			  If CStr(SelectDate) = "4" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""4""" & Str & ">10/1/2005</option>")
			  If CStr(SelectDate) = "5" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""5""" & Str & ">2005年10月</option>")
			  If CStr(SelectDate) = "6" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""6""" & Str & ">2005年10月1日</option>")
			  If CStr(SelectDate) = "7" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""7""" & Str & ">10.1.2005</option>")
			  If CStr(SelectDate) = "8" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""8""" & Str & ">10-1-2005</option>")
			  If CStr(SelectDate) = "9" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""9""" & Str & ">10/1</option>")
			  If CStr(SelectDate) = "10" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""10""" & Str & ">10.1</option>")
			  If CStr(SelectDate) = "11" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""11""" & Str & ">10月1日</option>")
			  If CStr(SelectDate) = "12" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""12""" & Str & ">1日12时</option>")
			  If CStr(SelectDate) = "13" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""13""" & Str & ">1日12点</option>")
			  If CStr(SelectDate) = "14" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""14""" & Str & ">12时12分</option>")
			  If CStr(SelectDate) = "15" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""15""" & Str & ">12:12</option>")
			  If CStr(SelectDate) = "16" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""16""" & Str & ">10-1</option>")
			   If CStr(SelectDate) = "17" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""17""" & Str & ">10/1 12:00</option>")
			  
			  TempFormatDateStr = TempFormatDateStr & ("<optgroup  label=""-----加括号格式-----""></optgroup>")

			  If CStr(SelectDate) = "21" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""21""" & Str & " >(2005-10-1)</option>") 
			  If CStr(SelectDate) = "22" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""22""" & Str & ">(2005.10.1)</option>")
			  If CStr(SelectDate) = "23" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""23""" & Str & ">(2005/10/1)</option>")
			  If CStr(SelectDate) = "24" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""24""" & Str & ">(10/1/2005)</option>")
			  If CStr(SelectDate) = "25" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""225""" & Str & ">(2005年10月)</option>")
			  If CStr(SelectDate) = "26" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""26""" & Str & ">(2005年10月1日)</option>")
			  If CStr(SelectDate) = "27" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""27""" & Str & ">(10.1.2005)</option>")
			  If CStr(SelectDate) = "28" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""28""" & Str & ">(10-1-2005)</option>")
			  If CStr(SelectDate) = "29" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""29""" & Str & ">(10/1)</option>")
			  If CStr(SelectDate) = "30" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""30""" & Str & ">(10.1)</option>")
			  If CStr(SelectDate) = "31" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""31""" & Str & ">(10月1日)</option>")
			  If CStr(SelectDate) = "32" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""32""" & Str & ">(1日12时)</option>")
			  If CStr(SelectDate) = "33" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""33""" & Str & ">(1日12点)</option>")
			  If CStr(SelectDate) = "34" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""34""" & Str & ">(12时12分)</option>")
			  If CStr(SelectDate) = "35" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""35""" & Str & ">(12:12)</option>")
			  If CStr(SelectDate) = "36" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""36""" & Str & ">(10-1)</option>")
			  If CStr(SelectDate) = "17" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""17""" & Str & ">(10/1 12:00)</option>")


			  TempFormatDateStr = TempFormatDateStr & ("<optgroup  label=""-----加中括号格式-----""></optgroup>")
			  If CStr(SelectDate) = "41" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""41""" & Str & ">[2005.10.1]</option>")
			  If CStr(SelectDate) = "42" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""42""" & Str & ">[2005.10.1]</option>")
			  If CStr(SelectDate) = "43" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""43""" & Str & ">[2005/10/1]</option>")
			  If CStr(SelectDate) = "44" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""44""" & Str & ">[10/1/2005]</option>")
			  If CStr(SelectDate) = "45" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""45""" & Str & ">[2005年10月]</option>")
			  If CStr(SelectDate) = "46" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""46""" & Str & ">[2005年10月1日]</option>")
			  If CStr(SelectDate) = "47" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""47""" & Str & ">[10.1.2005]</option>")
			  If CStr(SelectDate) = "48" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""48""" & Str & ">[10-1-2005]</option>")
			  If CStr(SelectDate) = "49" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""49""" & Str & ">[10/1]</option>")
			  If CStr(SelectDate) = "50" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""50""" & Str & ">[10.1]</option>")
			  If CStr(SelectDate) = "51" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""51""" & Str & ">[10月1日]</option>")
			  If CStr(SelectDate) = "52" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr = TempFormatDateStr & ("<option value=""52""" & Str & ">[1日12时]</option>")
			  If CStr(SelectDate) = "53" Then Str = " Selected" Else Str = ""
			   TempFormatDateStr =