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

📄 collect_itemaddnew.asp

📁 SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.
💻 ASP
字号:
🔍 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../../SysCls/KS_CollectCommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628个人Access版
'Copyright (C) 2006-2008 Kesion.Com  All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407 
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail  :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com  
'演示站点：http://test.kesion.com 
'郑重声明:
'    ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
'    ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
'    ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Collect_ItemAddNew
KSCls.Execute()
Set KSCls = Nothing

Class Collect_ItemAddNew
        Private KSCMS
		Private KMCObj
		Private ConnItem
		Private Sub Class_Initialize()
		  Set KSCMS=New CommonCls
		  Set KMCObj=New CollectCommonCls
		  Set ConnItem = KSCMS.ConnItem()
		End Sub
        Private Sub Class_Terminate()
		 Call KSCMS.CloseConnItem()
		 Call KSCMS.Closeconn
		 Set KSCMS=Nothing
		 Set KMCObj=Nothing
		End Sub
		Sub Execute()
		Call KMCObj.GetClassList
		Call Main
		Response.Write "<script>" & vbCrLf
		Response.Write "SelectClass(1);" & vbCrLf
		Response.Write "function SelectClass(ChannelID)" & vbCrLf
		Response.Write "{" & vbCrLf
		Response.Write " document.all.ClassArea.innerHTML='<select ID=""ClassID"" name=""ClassID"" style=""Width:200"">'+ClassArr[ChannelID]+'</select>';"
		Response.Write "}" & vbCrLf
		Response.Write "function CheckForm(myform)" & vbCrLf
		Response.Write "{ if (myform.ItemName.value=='')" & vbCrLf
		Response.Write "  {" & vbCrLf
		Response.Write "   alert('请输入项目名称');" & vbCrLf
		Response.Write "   myform.ItemName.focus();" & vbCrLf
		Response.Write "   return false;" & vbCrLf
		Response.Write "  }" & vbCrLf
		Response.Write " if (myform.ChannelID.value=='0')" & vbCrLf
		Response.Write "  {" & vbCrLf
		Response.Write "    alert('请选择系统模块!');" & vbCrLf
		Response.Write "    return false;" & vbCrLf
		Response.Write "  }" & vbCrLf
		Response.Write "   if (myform.ClassID.value=='0')" & vbCrLf
		Response.Write "  {" & vbCrLf
		Response.Write "    alert('请选择栏目!');" & vbCrLf
		Response.Write "    return false;" & vbCrLf
		Response.Write "  }" & vbCrLf
		Response.Write "  if (myform.WebName.value=='')" & vbCrLf
		Response.Write "  {" & vbCrLf
		Response.Write "   alert('请输入网站名称');" & vbCrLf
		Response.Write "   myform.WebName.focus();" & vbCrLf
		Response.Write "   return false;" & vbCrLf
		Response.Write "  }" & vbCrLf
		Response.Write "  //if (myform.WebUrl.value=='')" & vbCrLf
		Response.Write " // {" & vbCrLf
		Response.Write " //  alert('请输入网站网址');" & vbCrLf
		Response.Write " //  myform.WebUrl.focus();" & vbCrLf
		Response.Write " //  return false;" & vbCrLf
		Response.Write " // }" & vbCrLf
		Response.Write " return true;" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "</script>"
		
		End Sub
		Sub Main()
		Response.Write "<html>"
		Response.Write "<head>"
		Response.Write "<title>采集系统</title>"
		Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
		Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""../inc/Admin_Style.css"">"
		Response.Write "</head>"
		Response.Write "<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"" oncontextmenu=""return false"">"
		Response.Write "<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1""  class=""sortbutton"">"
		Response.Write "  <tr>"
		Response.Write "    <td height=""22"" colspan=""2"" align=""center""><table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"">"
		Response.Write "      <tr>"
		Response.Write "        <td align=""center""><strong>操作步骤：</strong>添加项目 >> <font color=red>基本设置</font> >> 列表设置 >> 链接设置 >> 正文设置 >> 采样测试 >> 属性设置 >> 完成</td>"
		Response.Write "      </tr>"
		Response.Write "    </table></td>"
		Response.Write "  </tr>"
		Response.Write "</table>"
		Response.Write "<br>"
		Response.Write "<br>"
		Response.Write "<table width=""55%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" class=""border"" >"
		Response.Write "<form method=""post"" action=""Collect_ItemModify2.asp"" name=""myform"" onSubmit=""return(CheckForm(this))"">"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""25"" align=""center"">项目名称：</td>"
		Response.Write "      <td width=""75%"" height=""25"">"
		Response.Write "        <input name=""ItemName"" type=""text"" size=""27"" maxlength=""30"">"
		Response.Write "        &nbsp;&nbsp;<font color=red>*</font> 如：腾讯网－新闻中心      </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 所属系统：</td>"
		Response.Write "      <td width=""75%"" height=""25""><select ID=""ChannelID"" name=""ChannelID"" onChange=""SelectClass(this.value)"" style=""Width:200"">"
		Response.Write KMCObj.Collect_ShowChannel_Option(1)
		Response.Write "</select>      </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 所属栏目：</td>"
		Response.Write "      <td width=""75%"" height=""25"" ID=""ClassArea""><select ID=""ClassID"" name=""ClassID"" style=""Width:200"">"
		Response.Write "      <option value=""0"">---选择栏目---</option>"
		Response.Write "      </select>      </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr style=""display:none"">"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 所属专题：</td>"
		Response.Write "      <td width=""75%"" height=""25""><input type=""hidden"" value=""0"" name=""specialid"">"
		'call KMCObj.Collect_ShowSpecial_Option(1,0)
		Response.Write "      </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 网站名称：</td>"
		Response.Write "      <td width=""75%"" height=""25"">"
		Response.Write "        <input name=""WebName"" type=""text"" size=""27"" maxlength=""30"">      </td>"
		Response.Write "    </tr>"
		Response.Write "    <tr style=""display:none"">"
		Response.Write "      <td width=""20%"" height=""25"" align=""center""> 网站网址：</td>"
		Response.Write "      <td width=""75%"" height=""25""><input name=""WebUrl"" type=""text"" value=""http://"" size=""49"" maxlength=""150"">      </td>"
		Response.Write "    </tr>"
		Response.Write "      <td height=""25""  align=""center"">网站登录：</td>"
		Response.Write "      <td height=""25"">"
		Response.Write "        <input type=""radio"" value=""0"" name=""LoginType"" checked onClick=""Login.style.display='none'"">不需要登录<span lang=""en-us"">&nbsp;"
		Response.Write "        </span>"
		Response.Write "        <input type=""radio"" value=""1"" name=""LoginType"" onClick=""Login.style.display=''"">设置参数</td>"
		Response.Write "    </tr>"
		Response.Write "   <tr id=""Login"" style=""display:none"">"
		Response.Write "      <td height=""25"" align=""center""> 登录参数：</td>"
		Response.Write "      <td height=""25"">"
		Response.Write "        登录地址：<input name=""LoginUrl"" type=""text"" size=""40"" maxlength=""150"" value=""""><br>"
		Response.Write "        提交地址：<input name=""LoginPostUrl"" type=""text"" size=""40"" maxlength=""150"" value=""""><br>"
		Response.Write "        用户参数：<input name=""LoginUser"" type=""text"" size=""30"" maxlength=""150"" value=""""><br>"
		Response.Write "        密码参数：<input name=""LoginPass"" type=""text"" size=""30"" maxlength=""150"" value=""""><br>"
		Response.Write "        失败信息：<input name=""LoginFalse"" type=""text"" size=""30"" maxlength=""150"" value=""""></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td width=""20%"" height=""25"" align=""center"">项目备注：</td>"
		Response.Write "      <td width=""75%"" height=""25""><textarea name=""ItemDemo"" cols=""49"" rows=""5""></textarea></td>"
		Response.Write "    </tr>"
		Response.Write "    <tr>"
		Response.Write "      <td height=""35"" colspan=""2"" align=""center""><input name=""Action"" type=""hidden"" id=""Action"" value=""SaveAdd"">"
		Response.Write "        <input name=""Cancel"" type=""button"" id=""Cancel"" value="" 返&nbsp;&nbsp;回 "" onClick=""window.location.href='javascript:history.back();'"">"
		Response.Write "        &nbsp;"
		Response.Write "      <input  type=""submit"" name=""Submit"" value=""下&nbsp;一&nbsp;步""></td>"
		Response.Write "    </tr>"
		Response.Write "</form>"
		Response.Write "</table>"
		Response.Write "</body>"
		Response.Write "</html>"
		End Sub
End Class
%>

⌨️ 快捷键说明

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