sitemodifyone.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

				<option value="16" <% if Cint(M_Str) = 16 then Response.Write "selected" %>>16</option>
				<option value="17" <% if Cint(M_Str) = 17 then Response.Write "selected" %>>17</option>
				<option value="18" <% if Cint(M_Str) = 18 then Response.Write "selected" %>>18</option>
				<option value="19" <% if Cint(M_Str) = 19 then Response.Write "selected" %>>19</option>
				<option value="20" <% if Cint(M_Str) = 20 then Response.Write "selected" %>>20</option>
				<option value="21" <% if Cint(M_Str) = 21 then Response.Write "selected" %>>21</option>
				<option value="22" <% if Cint(M_Str) = 22 then Response.Write "selected" %>>22</option>
				<option value="23" <% if Cint(M_Str) = 23 then Response.Write "selected" %>>23</option>
				<option value="24" <% if Cint(M_Str) = 24 then Response.Write "selected" %>>24</option>
				<option value="25" <% if Cint(M_Str) = 25 then Response.Write "selected" %>>25</option>
				<option value="26" <% if Cint(M_Str) = 26 then Response.Write "selected" %>>26</option>
				<option value="27" <% if Cint(M_Str) = 27 then Response.Write "selected" %>>27</option>
				<option value="28" <% if Cint(M_Str) = 28 then Response.Write "selected" %>>28</option>
				<option value="29" <% if Cint(M_Str) = 29 then Response.Write "selected" %>>29</option>
				<option value="30" <% if Cint(M_Str) = 30 then Response.Write "selected" %>>30</option>
				<option value="31" <% if Cint(M_Str) = 31 then Response.Write "selected" %>>31</option>
			</select>
			<%
				Dim Dis_H,H_Str
				if Left(Auto_Collect_Time,2) = "no" Then
					Dis_H = "none"
					H_Str = ""
				Else
					Dis_H = ""
					If Left(Auto_Collect_Time,3) = "day" Then
						H_Str = Split(Auto_Collect_Time,"$$$")(1)
					Else
						H_Str = Split(Split(Auto_Collect_Time,"$$$")(1),"|")(1)
					End If	
				End If	
			%>
			<select name="TimeHour" id="TimeHour" style="width:30%; display:<% = Dis_H %>;">
				<option value="00:00" <% if H_Str = "00:00" Then Response.Write "selected" %>>00:00</option>
				<option value="00:30" <% if H_Str = "00:30" Then Response.Write "selected" %>>00:30</option>
				<option value="01:00" <% if H_Str = "01:00" Then Response.Write "selected" %>>01:00</option>
				<option value="01:30" <% if H_Str = "01:30" Then Response.Write "selected" %>>01:30</option>
				<option value="02:00" <% if H_Str = "02:00" Then Response.Write "selected" %>>02:00</option>
				<option value="02:30" <% if H_Str = "02:30" Then Response.Write "selected" %>>02:30</option>
				<option value="03:00" <% if H_Str = "03:00" Then Response.Write "selected" %>>03:00</option>
				<option value="03:30" <% if H_Str = "03:30" Then Response.Write "selected" %>>03:30</option>
				<option value="04:00" <% if H_Str = "04:00" Then Response.Write "selected" %>>04:00</option>
				<option value="04:30" <% if H_Str = "04:30" Then Response.Write "selected" %>>04:30</option>
				<option value="05:00" <% if H_Str = "05:00" Then Response.Write "selected" %>>05:00</option>
				<option value="05:30" <% if H_Str = "05:30" Then Response.Write "selected" %>>05:30</option>
				<option value="06:00" <% if H_Str = "06:00" Then Response.Write "selected" %>>06:00</option>
				<option value="06:30" <% if H_Str = "06:30" Then Response.Write "selected" %>>06:30</option>
				<option value="07:00" <% if H_Str = "07:00" Then Response.Write "selected" %>>07:00</option>
				<option value="07:30" <% if H_Str = "07:30" Then Response.Write "selected" %>>07:30</option>
				<option value="08:00" <% if H_Str = "08:00" Then Response.Write "selected" %>>08:00</option>
				<option value="08:30" <% if H_Str = "08:30" Then Response.Write "selected" %>>08:30</option>
				<option value="09:00" <% if H_Str = "09:00" Then Response.Write "selected" %>>09:00</option>
				<option value="09:30" <% if H_Str = "09:30" Then Response.Write "selected" %>>09:30</option>
				<option value="10:00" <% if H_Str = "10:00" Then Response.Write "selected" %>>10:00</option>
				<option value="10:30" <% if H_Str = "10:30" Then Response.Write "selected" %>>10:30</option>
				<option value="11:00" <% if H_Str = "11:00" Then Response.Write "selected" %>>11:00</option>
				<option value="11:30" <% if H_Str = "11:30" Then Response.Write "selected" %>>11:30</option>
				<option value="12:00" <% if H_Str = "12:00" Then Response.Write "selected" %>>12:00</option>
				<option value="12:30" <% if H_Str = "12:30" Then Response.Write "selected" %>>12:30</option>
				<option value="13:00" <% if H_Str = "13:00" Then Response.Write "selected" %>>13:00</option>
				<option value="13:30" <% if H_Str = "13:30" Then Response.Write "selected" %>>13:30</option>
				<option value="14:00" <% if H_Str = "14:00" Then Response.Write "selected" %>>14:00</option>
				<option value="14:30" <% if H_Str = "14:30" Then Response.Write "selected" %>>14:30</option>
				<option value="15:00" <% if H_Str = "15:00" Then Response.Write "selected" %>>15:00</option>
				<option value="15:30" <% if H_Str = "15:30" Then Response.Write "selected" %>>15:30</option>
				<option value="16:00" <% if H_Str = "16:00" Then Response.Write "selected" %>>16:00</option>
				<option value="16:30" <% if H_Str = "16:30" Then Response.Write "selected" %>>16:30</option>
				<option value="17:00" <% if H_Str = "17:00" Then Response.Write "selected" %>>17:00</option>
				<option value="17:30" <% if H_Str = "17:30" Then Response.Write "selected" %>>17:30</option>
				<option value="18:00" <% if H_Str = "18:00" Then Response.Write "selected" %>>18:00</option>
				<option value="18:30" <% if H_Str = "18:30" Then Response.Write "selected" %>>18:30</option>
				<option value="19:00" <% if H_Str = "19:00" Then Response.Write "selected" %>>19:00</option>
				<option value="19:30" <% if H_Str = "19:30" Then Response.Write "selected" %>>19:30</option>
				<option value="20:00" <% if H_Str = "20:00" Then Response.Write "selected" %>>20:00</option>
				<option value="20:30" <% if H_Str = "20:30" Then Response.Write "selected" %>>20:30</option>
				<option value="21:00" <% if H_Str = "21:00" Then Response.Write "selected" %>>21:00</option>
				<option value="21:30" <% if H_Str = "21:30" Then Response.Write "selected" %>>21:30</option>
				<option value="22:00" <% if H_Str = "22:00" Then Response.Write "selected" %>>22:00</option>
				<option value="22:30" <% if H_Str = "22:30" Then Response.Write "selected" %>>22:30</option>
				<option value="23:00" <% if H_Str = "23:00" Then Response.Write "selected" %>>23:00</option>
				<option value="23:30" <% if H_Str = "23:30" Then Response.Write "selected" %>>23:30</option>
			</select>
			</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">单次采集数量：</div></td>
			<td><input style="width:100%;" name="NewsNum" type="text" id="NewsNum" value="<% = RsEditObj("CellectNewNum") %>" onKeyUp=if(isNaN(value)||event.keyCode==32)execCommand('undo');  onafterpaste=if(isNaN(value)||event.keyCode==32)execCommand('undo');>
			</td>
		</tr>
		<tr class="hback">
			<td height="26"><div align="right">图片保存路径：</div></td>
			<td><input name="PicSavePath" type="text" id="PicSavePath" style="width:40%" value="<% = RsEditObj("PicSavePath") %>" readonly>
			<INPUT type="button"  name="Submit4" value="选择路径" onClick="OpenWindowAndSetValue('../CommPages/SelectManageDir/SelectPathFrame.asp?CurrPath=<%= str_CurrPath %>',300,250,window,document.Form.PicSavePath);document.Form.PicSavePath.focus();">
			保存远程图片自动水印
		<input type="checkbox" name="WaterPrint" value="1" <% IF RsEditObj("WaterPrintTF") = 1 Then Response.Write "checked" %>>
			</td>
		</tr>
  </table>
</form>
</body>
</html><%
Function UniteChildNewsList(TypeID,f_CompatStr,ClassID)  
	Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount,Select_Str
	Set f_ChildNewsRs = Conn.Execute("Select id,orderid,ClassName,ClassID,ParentID from FS_NS_NewsClass where IsURL=0 And ParentID='" & TypeID & "' and ReycleTF=0 order by Orderid desc,id desc" )
	f_TempStr =f_CompatStr & "┄"
	do while Not f_ChildNewsRs.Eof
			if f_ChildNewsRs("ClassID") = ClassID Then
				Select_Str = "selected"
			Else
				Select_Str = ""
			End If	
			UniteChildNewsList = UniteChildNewsList & "<option value="""& f_ChildNewsRs("ClassID") &""" " & Select_Str & ">"
			UniteChildNewsList = UniteChildNewsList & "├" &  f_TempStr & f_ChildNewsRs("ClassName") 
			UniteChildNewsList = UniteChildNewsList & "</option>" & Chr(13) & Chr(10)
			UniteChildNewsList = UniteChildNewsList &UniteChildNewsList(f_ChildNewsRs("ClassID"),f_TempStr,ClassID)
		f_ChildNewsRs.MoveNext
	loop
	f_ChildNewsRs.Close
	Set f_ChildNewsRs = Nothing
End Function

Function CheckRulerIDStr(IDStr,Act)
	Dim Arr,i,Str_ID,CheckRs,Name_Str,Str_IDs
	Str_IDs = IDStr & ""
	Arr = Split(Str_IDs,",")
	For i = LBOund(Arr) To UBound(Arr)
		IF Arr(i) <> "" And Not IsNull(Arr(i)) Then
			Set CheckRs = CollectConn.ExeCute("Select ID,RuleName From FS_Rule Where ID = " & Arr(i) & "")
			IF CheckRs.Eof Then
				Str_ID = Str_ID & ""
				Name_Str = Name_Str & ""
			Else
				Str_ID = Str_ID & "," & Arr(i)
				Name_Str = Name_Str & "," & CheckRs(1)
			End If
			CheckRs.Close : Set CheckRs = Nothing	
		Else
			Str_ID = Str_ID & ""
			Name_Str = Name_Str & ""
		End If
	Next
	If Left(Str_ID,1) = "," Then
		Str_ID = Right(Str_ID,Len(Str_ID) - 1)
	End If
	If Left(Name_Str,1) = "," Then
		Name_Str = Right(Name_Str,Len(Name_Str) - 1)
	End If
	If Act = "ID" Then
		CheckRulerIDStr = Str_ID
	Else
		CheckRulerIDStr = Name_Str
	End If			
End Function


Function GetAllRulerList()
	Dim Rs
	GetAllRulerList = "<select name=""CS_SiteReKey"" id=""CS_SiteReKey"" style=""width:48%;"" onChange=""Javascript:SelectRuler(this.options[this.selectedIndex]);"">" & VbNewLine
	GetAllRulerList = GetAllRulerList & VbTab & VbTab & " <option value="""">选择规则</option>" & VbNewLine
	GetAllRulerList = GetAllRulerList & VbTab & VbTab & " <option value=""Clear"" style=""color:#FF0000;"">清除</option>" & VbNewLine
	Set Rs = CollectConn.ExeCute("Select ID,RuleName From FS_Rule Where ID > 0 Order By ID Desc")
	Do While Not Rs.Eof
		GetAllRulerList = GetAllRulerList & VbTab & VbTab & " <option value=""" & Rs(0) & """>" & Rs(1) & "</option>" & VbNewLine
	Rs.MoveNext
	Loop
	GetAllRulerList = GetAllRulerList & VbTab & VbTab & "</select>"	
	Rs.Close : Set Rs = Nothing
End Function


Set Conn = Nothing
Set CollectConn = Nothing
Set RsEditObj = Nothing
%>
<script language="JavaScript">
function CheckData()
{
	if (document.Form.SiteName.value==''){alert('没有填写站点名称');document.Form.SiteName.focus();return;}
	if (document.Form.objURL.value==''){alert('没有填写采集对象页');document.Form.objURL.focus();return;}
	document.Form.submit();
}

function Setautocellecttime(str)
{
	if (str == "" || str == "no")
	{
		document.getElementById("TimeHour").style.display = "none";
		document.getElementById("TimeWeek").style.display = "none";
		document.getElementById("TimeMonth").style.display = "none";
	}
	if (str == "day")
	{
		document.getElementById("TimeHour").style.display = "";
		document.getElementById("TimeWeek").style.display = "none";
		document.getElementById("TimeMonth").style.display = "none";
	}
	else if (str == "week")
	{
		document.getElementById("TimeHour").style.display = "";
		document.getElementById("TimeWeek").style.display = "";
		document.getElementById("TimeMonth").style.display = "none";
	}
	else if (str == "month")
	{
		document.getElementById("TimeHour").style.display = "";
		document.getElementById("TimeWeek").style.display = "none";
		document.getElementById("TimeMonth").style.display = "";
	}
}

function SelectRuler(obj)
{
	var Ruler_V = obj.value;
	var Ruler_Str = obj.innerText;
	var Name_Str = document.Form.CS_SiteReKeyName.value;
	var ID_Str = document.Form.CS_SiteReKeyID.value;
	if (Ruler_V == '')
	{
		return;
	}
	if (Ruler_V == 'Clear')
	{
		document.Form.CS_SiteReKeyName.value = '';
		document.Form.CS_SiteReKeyID.value = '';
	}
	else
	{
		if (Name_Str == '' || ID_Str == '')
		{
			document.Form.CS_SiteReKeyName.value = Ruler_Str;
			document.Form.CS_SiteReKeyID.value = Ruler_V;
		}
		else
		{
			if (ID_Str.indexOf(Ruler_V) != -1)
			{
				document.Form.CS_SiteReKeyName.value = Name_Str;
				document.Form.CS_SiteReKeyID.value = ID_Str;
			}
			else
			{
				document.Form.CS_SiteReKeyName.value = Name_Str + ',' + Ruler_Str;
				document.Form.CS_SiteReKeyID.value = ID_Str + ',' + Ruler_V;
			}
		}
	}
}
</script>