⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_getsoft.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border">
<form action="?action=config&config=save" method="post">
  <tr class="tdbg">
    <td width="20%" height="20" align="right"><STRONG>采集超时设置：</STRONG></td>
    <td><input name="Timeout" type="text" class="lostfocus" value="<%= rs("Timeout") %>" size="10" maxlength="9">
    <STRONG>秒</STRONG> <font color="Blue">* 默认64秒 如果128K的数据64秒还下载不完(按每秒2K保守估算)，则超时。</font></td>
  </tr>
  <tr class="tdbg">
    <td height="20" align="right"><STRONG>项目行数设置：</STRONG></td>
    <td><input name="MaxPerPage" type="text" class="lostfocus" value="<%= rs("MaxPerPage") %>" size="10" maxlength="9">
      <strong>条</strong>      <font color="Blue">* 采集项目管理显示条数，设0为10条。</font></td>
  </tr>
  <tr class="tdbg">
    <td width="20%" height="20" align="right"><STRONG>允许下载的图片大小：</STRONG></td>
    <td><input name="MaxFileSize" type="text" class="lostfocus" value="<%= rs("MaxFileSize") %>" size="27" maxlength="9">
    <STRONG>KB </STRONG> <font color="Blue">* 不限制请输入“0”。</font></td>
  </tr>
  
  <tr class="tdbg">
    <td height="20" align="right"><STRONG>采集保存地址：</STRONG></td>
    <td><input name="Dir" type="text" class="lostfocus" value="<% =rs("Dir") %>" size="27" maxlength="30">
    <font color="Blue">&nbsp;系统默认保存路径为{$DefaultDir}，可使用系统目录标签，若手动填写路径，后面必须带"/"符号。</font></td>
  </tr>
  <tr class="tdbg">
    <td height="20" align="right"><STRONG>采集保存文件类型：</STRONG></td>
    <td height="30"><input name="FileExtName" type="text" class="lostfocus" value="<% =rs("FileExtName") %>" size="50" maxlength="300">
      <font color="Blue">* 每个文件类型请用“|”分开，如:Rm|swf|rar。</font></td>
  </tr>
  <tr class="tdbg">
    <td height="38" align="right">&nbsp;</td>
    <td height="38"><input name="Submit2" type="submit" class="lostfocus" value="提交"></td>
  </tr>
  </form>
</table>
<%
Rs.Close	
set rs=nothing
End Sub

Sub addnew1()'初步设置
'call SetChannel
ModuleID=CGet.G("ModuleID")
If action="edit" Or action1="edit" Then
   If ItemID<>"" Then
	   ItemID=Clng(ItemID)
	   SqlItem ="Select * from Item where ItemID=" & ItemID
	   Set RsItem=Server.CreateObject("adodb.recordset")
	   RsItem.Open SqlItem,Conn_C,1,1
	   If RsItem.Eof And RsItem.Bof  Then
		  FoundErr=True
		  ErrMsg=ErrMsg & "<br><li>参数错误，没有找到该项目！</li>"
	   Else
		ItemName=RsItem("ItemName")
		ChannelID=RsItem("ChannelID")
		ClassID=RsItem("ClassID")
	   	SpecialID=RsItem("SpecialID")
		Encoding=RsItem("Encoding")
	   	WebUrl=RsItem("WebUrl")
	   	ListStr=RsItem("ListStr")
		ListPaingType=RsItem("ListPaingType")
		LPsString=RsItem("LPsString")
		LPoString=RsItem("LPoString")
		ListPaingStr2=RsItem("ListPaingStr2")
		Select Case ListPaingType
		   Case 0 
			  ListUrl=ListStr
		   Case 1
		   	  ListPaingID1=RsItem("ListPaingID1")
			  ListPaingID2=RsItem("ListPaingID2")
			  ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
		   Case 2
			  ListPaingStr3=RsItem("ListPaingStr3")
			  If  Instr(ListPaingStr3,"|")>0  Then
					ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
			  Else
					ListUrl=ListPaingStr3
			  End  If
			  ListPaingStr3=Replace(ListPaingStr3,"|",CHR(13))
		End Select
	   	ModuleID=RsItem("ModuleID")
		SaveFileUrl=RsItem("SaveFileUrl")
		Passed=RsItem("Passed")
		SaveFiles=RsItem("SaveFiles")
		CollecOrder=RsItem("CollecOrder")
		Script_Iframe=RsItem("Script_Iframe")
		Script_Object=RsItem("Script_Object")
		Script_Script=RsItem("Script_Script")
		Script_Div=RsItem("Script_Div")
		Script_Class=RsItem("Script_Class")
		Script_Span=RsItem("Script_Span")
		Script_Img=RsItem("Script_Img")
		Script_Font=RsItem("Script_Font")
		Script_A=RsItem("Script_A")
		Script_Html=RsItem("Script_Html")
		Script_Table=RsItem("Script_Table")
		Script_Tr=RsItem("Script_Tr")
		Script_Td=RsItem("Script_Td")
		Stars=RsItem("Stars")
		InfoPoint=RsItem("InfoPoint")
		Hits=RsItem("Hits")
		ModuleID=RsItem("ModuleID")
		Thumb_WaterMark=RsItem("Thumb_WaterMark")
		CollecNewsNum=RsItem("CollecNewsNum")
		Timing=RsItem("Timing")
		LoginType=RsItem("LoginType")
		LoginUrl	= RsItem("LoginUrl")
		LoginPostUrl= RsItem("LoginPostUrl")
		LoginUser	= RsItem("LoginUser")
		LoginPass	= RsItem("LoginPass")
		LoginFalse	= RsItem("LoginFalse")
		PaginationType=RsItem("PaginationType")
		MaxCharPerPage=RsItem("MaxCharPerPage")
		InfoGroup=RsItem("InfoGroup")
		strReplace=RsItem("strReplace")
	   End If
		RsItem.Close
		Set RsItem=Nothing
	else
		LoginType=0
		Encoding="GB2312"
   End If
End If
Call SetChannel(2)
%>
<script language=javascript>
function AddReplace(){
	var strthis='替换前的字符串|替换后的字符串'; 
	var str=prompt('请输入替换前的字符串和替换后的字符串，中间用“|”隔开：',strthis);
	if(str!=null&&str!=''){document.myform.strReplace.options[document.myform.strReplace.length]=new Option(str,str);}
}
function ModifyReplace(){
	if(document.myform.strReplace.length==0) return false;
	var strthis=document.myform.strReplace.value; 
	if (strthis=='') {alert('请先选择一个字符串，再点修改按钮！');return false;}
	var str=prompt('请输入替换前的字符串和替换后的字符串，中间用“|”隔开：',strthis);
	if(str!=strthis&&str!=null&&str!=''){document.myform.strReplace.options[document.myform.strReplace.selectedIndex]=new Option(str,str);}
}
function DelReplace(){
	if(document.myform.strReplace.length==0) return false;
	var strthis=document.myform.strReplace.value; 
	if (strthis=='') {alert('请先选择一个字符串，再点删除按钮！');return false;}
	document.myform.strReplace.options[document.myform.strReplace.selectedIndex]=null;
}

function CheckForm(){
	if (document.myform.ItemName.value==''){
		alert('项目名称不能为空！');
		return false;
	}
	if (document.myform.ListStr.value==''){
		alert('请输入远程列表URL！');
		return false;
	}

		for(var n=0;n<document.myform.strReplace.length;n++){
			if (document.myform.ReplaceList.value=='') document.myform.ReplaceList.value=document.myform.strReplace.options[n].value;
			else document.myform.ReplaceList.value+='$$$'+document.myform.strReplace.options[n].value;
		}
}
</script>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Border" >
<form method="post" action="<%=CJFileName%>" name="myform" onSubmit="return CheckForm();">
    <tr> 
      <td height="22" colspan="2" class="title"> <div align="center"><strong>添 加 新 
		项 目--基 本 设 置</strong></div></td>
    </tr>
    <tr class="tdbg"> 
      <td width="20%" align="right"><strong>项目名称：</strong></td>
      <td width="75%">
	  <input name="ItemName" type="text" class="lostfocus" value="<%= ItemName %>" size="27" maxlength="30">&nbsp;&nbsp;<font color=red>*</font>如：创力网－下载中心 既简单又明了      </td>
    </tr>
    <tr class="tdbg">
      <td width="20%" align="right"><strong> 所属频道：</strong></td>
      <td width="75%"><select ID="ChannelID" name="ChannelID" onChange="changelocation(document.myform.ChannelID.options[document.myform.ChannelID.selectedIndex].value)"><%=ShowChannel_Option(2,ChannelID)%></select>
      </td>
    </tr>
    <tr class="tdbg"> 
      <td width="20%" align="right"><strong> 所属栏目：</strong></td>
      <td width="75%"><select name="ClassID" ID="ClassID"><%=ShowClass_Option(ChannelID,ClassID,0,1)%></select>
      </td>
    </tr>
    <tr class="tdbg"> 
      <td width="20%" align="right"><strong> 所属专题：</strong></td>
      <td width="75%"><select name="SpecialID" id="SpecialID" multiple style="height:90px;width:200px;"><%=ShowSpecial_Option(ChannelID,SpecialID,1)%></select>&nbsp;&nbsp
		<font color="#FF0000"><strong>说明：</strong></font><font color="#0000FF">按“Shift”“Ctrl”可多选</font>
      </td>
    </tr>
    <tr class="tdbg">
      <td align="right"><STRONG>目标网页编码：</STRONG></td>
      <td><input name="Encoding" type="text" value="<%=Encoding%>" size="10" maxlength="20"><font color=blue>请选择编码→</font></span>      <Select name="selEncoding" size="1" onChange="Encoding.value=this.value;">
        <option>请选择编码</option>
        <option value="GB2312" Selected <% If Encoding="GB2312" Then Response.Write "Selected" %>>GB2312</option>
        <option value="UTF-8" <% If Encoding="UTF-8" Then Response.Write "Selected" %>>UTF-8</option>
        <option value="BIG5" <% If Encoding="BIG5" Then Response.Write "Selected" %>>BIG5</option>
          </Select></td>
    </tr>
    
    <tr class="tdbg">
      <td align="right"><strong>远程列表URL:</strong></td>
      <td><input name="ListStr" type="text" class="lostfocus"  value="<%= ListStr %>" size="80" maxlength="200">
        <font color=red>*</font></td>
    </tr>
    <tr class="tdbg">
      <td align="right"><strong>列表分页采集设置:</strong></td>
      <td>
	<input type="radio" value="0" name="ListPaingType" <%If ListPaingType=0 Or ListPaingType="" Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='none';ListPaing4.style.display='none'">
        不作设置&nbsp;
	<input type="radio" value="3" name="ListPaingType" <%If ListPaingType=3 then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='none';ListPaing4.style.display=''">
	设置标签&nbsp;
        <input type="radio" value="1" name="ListPaingType" <%If ListPaingType=1 Then Response.Write "checked" %> onClick="ListPaing2.style.display='';ListPaing3.style.display='none';ListPaing4.style.display='none'">
        批量生成&nbsp;
        <input type="radio" value="2" name="ListPaingType" <%If ListPaingType=2 Then Response.Write "checked" %> onClick="ListPaing2.style.display='none';ListPaing3.style.display='';ListPaing4.style.display='none'">
	手动添加</td>
    </tr>
    <tr class="tdbg" id="ListPaing2" <% If ListPaingType<>1 Then Response.Write "style=""display:none""" %> >
      <td align="right"><strong><font color=blue>批量生成：</font></strong></td>
      <td><input name="ListPaingStr2" type="text" class="lostfocus" value="<% =ListPaingStr2 %>" size="80" maxlength="200">
        分页代码 <font color=red>{$ID}</font><br>
格式：http://www.scuta.net/list.asp?page={$ID}<br>
生成范围：<br>
<input name="ListPaingID1" value="<%= ListPaingID1 %>" type="text" class="lostfocus" size="8" maxlength="200">
<span lang="en-us"> To </span>
<input name="ListPaingID2"  value="<%= ListPaingID2 %>" type="text" class="lostfocus" size="8" maxlength="200"> 
例如：1 - 9 或者 9 - 1<br>
格式：只能是数字，可升序或者降序。 </td>
    </tr>
	 <tr class="tdbg" id="ListPaing4" <%If ListPaingType<>3 then Response.Write "style=""display:none""" %> >
	   <td height="30" align="right"><strong><font color=blue>下一页开始标记：</font></strong>
	     <p>　</p>
	     <p>　</p>
       <strong><font color=blue>下一页结束标记：</font></strong></td>
	   <td><textarea name="LPsString" cols="60" rows="7" class="lostfocus"><%= LPsString %></textarea>
         <br>
         <textarea name="LPoString" cols="60" rows="7" class="lostfocus"><%= LPoString %></textarea></td>
    </tr>
    <tr class="tdbg" id="ListPaing3" <% If ListPaingType<>2 Then Response.Write "style=""display:none""" %>>
      <td align="right"><strong><font color=blue>手动添加：</font></strong></td>
      <td><textarea name="ListPaingStr3" cols="60" rows="7" class="lostfocus"><%= ListPaingStr3 %></textarea>
      格式：输入一个网址后按回车，再输入下一个</td>
    </tr>
	 <tr class="tdbg">
	   <td height="30" align="right"><STRONG>采集图片文件保存目录</STRONG>：</td>
	   <td><input name="SaveFileUrl" type="text" class="lostfocus" value="<% =SaveFileUrl %>" size="80" maxlength="200">
       <font color="Blue">&nbsp;后面必须带"/"符号</font></td>
    </tr>
   <tr class="tdbg"> 
      <td align="right"><strong> 网站登录：</strong></td>
      <td>
		<input type="radio" value="0" name="LoginType" <%if LoginType=0 Then Response.Write "checked"%> onClick="Login.style.display='none'">不需要登录<span lang="en-us">&nbsp;
		</span>
		<input type="radio" value="1" name="LoginType" <%if LoginType=1 Then Response.Write "checked"%> onClick="Login.style.display=''">设置参数

      </td>
    </tr>
   <tr class="tdbg" id="Login" style="<%If LoginType=0 Then Response.write "display:none"%>">
12345

⌨️ 快捷键说明

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