BVB Source Codes

Jie Yang v0.6.3 article system Show Admin_ItemFilterAdd.asp Source code

Return Download Jie Yang v0.6.3 article system: download Admin_ItemFilterAdd.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <!--#include file="inc/conn.asp"-->
  2. <!--#include file="inc/function.asp"-->
  3. <%
  4. Dim Action
  5. Action=Trim(Request("Action"))
  6. If Action="SaveAdd" Then
  7.    Call Save()
  8. Else
  9.    Call Main()
  10. End If
  11. '关闭数据库链接
  12. Call CloseConn()
  13. Call CloseConnItem()
  14. %>
  15. <%Sub Main%>
  16. <html>
  17. <head>
  18. <title>采集系统</title>
  19. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  20. <link rel="stylesheet" type="text/css" href="../style/Style.css">
  21. <SCRIPT language=javascript>
  22. function showset(thisform)
  23. {
  24.         if(thisform.FilterType.selectedIndex==1)
  25.         {
  26.                 FilterType1.style.display = "none";
  27.                 FilterType2.style.display = "";
  28.         }
  29.         else
  30.         {
  31.                 FilterType1.style.display = "";
  32.                 FilterType2.style.display = "none";
  33.         }
  34. }
  35. </script>
  36. </head>
  37. <body>
  38. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  39.   <tr>
  40.     <td class="td28">采集系统过滤管理</td>
  41.   </tr>
  42.   <tr class="td26" bgcolor="#FFFFFF">
  43.     <td><b>管理导航:</b><a href=Admin_ItemStart.asp>管理首页</a> | <a href="Admin_ItemAddNew.asp">添加新项目</a> | <a href="Admin_ItemManage.asp">采集项目管理</a> | <a href="Admin_ItemFilters.asp">采集过滤设置</a> | <a href="Admin_ItemHistroly.asp">历史采集记录</a> | <a href="Admin_ItemDatabase.asp?Action=LeadOut">采集项目导出</a> <a href="Admin_ItemDatabase.asp?Action=LeadIn">导入</a></td>
  44.   </tr>
  45. </table>
  46. <form method="post" action="Admin_ItemFilterAdd.asp" name="form1" style="padding:0; margin:0;">                                
  47. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  48.         <tr>                                
  49.       <td colspan="2" class="td28">添加新过滤</td>                                
  50.     </tr>                                
  51.     <tr>                                
  52.       <td align="right" bgcolor="#FFFFFF">过滤名称:</td>                                
  53.       <td bgcolor="#FFFFFF"><input name="FilterName" type="text" id="FilterName" size="25" maxlength="30"></td>                                
  54.     </tr>                                
  55.     <tr>                                
  56.       <td width="150" align="right" bgcolor="#FFFFFF"> 所属项目:</td>                                
  57.       <td bgcolor="#FFFFFF"><%Call Admin_ShowItem_Option(0)%>      </td>                                
  58.     </tr>                                
  59.     <tr>                                
  60.       <td width="150" align="right" bgcolor="#FFFFFF">过滤对象:</td>                              
  61.       <td bgcolor="#FFFFFF">                              
  62.          <select name="FilterObject" id="FilterObject">                              
  63.             <option value="1" selected>标题过滤</option>                              
  64.             <option value="2">正文过滤</option>                              
  65.          </select>      </td>                              
  66.     </tr>                              
  67.     <tr>                                
  68.       <td width="150" align="right" bgcolor="#FFFFFF"> 过滤类型:</td>                              
  69.       <td bgcolor="#FFFFFF">                              
  70.          <select name="FilterType" id="FilterType" onchange=showset(this.form)>                              
  71.             <option value="1" selected >简单替换</option>                              
  72.             <option value="2">高级过滤</option>                              
  73.          </select>      </td>                                
  74.     </tr>    
  75.     <tr>                                
  76.       <td width="150" align="right" bgcolor="#FFFFFF"> 使用状态:</td>                              
  77.       <td bgcolor="#FFFFFF">                              
  78.          <select name="Flag" id="Flag">                              
  79.             <option value="yes" selected >启用</option>                              
  80.             <option value="no">禁用</option>                              
  81.          </select>      </td>                                
  82.     </tr>                              
  83.     <tr>                                
  84.       <td width="150" align="right" bgcolor="#FFFFFF"> 使用范围:</td>                              
  85.       <td bgcolor="#FFFFFF">                              
  86.          <select name="PublicTf" id="PublicTf">                              
  87.             <option value="yes">公有</option>                              
  88.             <option value="no" selected>私有</option>                              
  89.          </select>      </td>                                
  90.     </tr>                              
  91. </table>                                
  92. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab" id="FilterType1" style="display:">
  93.         <tr>                                
  94.       <td width="150" align="right" bgcolor="#FFFFFF"> 内容:</td>                              
  95.       <td bgcolor="#FFFFFF"><textarea name="FilterContent" cols="49" rows="5"></textarea></td>                              
  96.     </tr>                            
  97. </table>
  98. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab" id="FilterType2" style="display:none">    
  99.     <tr bgcolor="#FFFFFF">                              
  100.       <td width="150"><strong> 开始标记:</strong></td>                              
  101.       <td><textarea name="FisString" cols="49" rows="5"></textarea>                              
  102.         &nbsp;</td>                                
  103.     </tr>                                
  104.     <tr bgcolor="#FFFFFF">                                
  105.       <td width="150"><strong> 结束标记:</strong></td>                              
  106.       <td><textarea name="FioString" cols="49" rows="5"></textarea>                                
  107.         &nbsp;</td>                                
  108.     </tr>                        
  109. </table>                
  110. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  111.         <tr id="FilterRep">                                
  112.       <td width="150" align="right" bgcolor="#FFFFFF"> 替换:</td>                                
  113.       <td bgcolor="#FFFFFF"><textarea name="FilterRep" cols="49" rows="5"></textarea>                                
  114.       &nbsp;</td>                              
  115.     </tr>                              
  116. </table>                              
  117. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">                    
  118.     <tr>                                
  119.       <td colspan="2" align="center" bgcolor="#FFFFFF">                              
  120.         <input name="Action" type="hidden" id="Action" value="SaveAdd">                              
  121.         <input name="Cancel" type="button" class="submit1" id="Cancel" onClick="window.location.href='Admin_ItemFilters.asp'" value="取&nbsp;&nbsp;消">                            
  122.         &nbsp;&nbsp;&nbsp;&nbsp; <input name="Submit"  type="submit" class="submit1" value="确&nbsp;&nbsp;定">                              
  123.       </td>                              
  124.     </tr>                              
  125. </table>                              
  126. </form>                              
  127. </body>                                        
  128. </html>                                
  129. <%End Sub                  
  130. Sub Save()
  131. Dim SqlItem,RsItem                                
  132. Dim FilterName,ItemID,FilterObject,FilterType,FilterContent,FisString,FioString,FilterRep,Flag,PublicTf
  133. FilterName=Trim(Request.Form("FilterName"))                                
  134. ItemID=Trim(Request.Form("ItemID"))    
  135. FilterObject=Request.Form("FilterObject")                              
  136. FilterType=Request.Form("FilterType")                                
  137. FilterContent=Request.Form("FilterContent")                                
  138. FisString=Request.Form("FisString")                                
  139. FioString=Request.Form("FioString")                                
  140. FilterRep=Request.Form("FilterRep")                                
  141. Flag=Request.Form("Flag")                              
  142. PublicTf=Request.Form("PublicTf")                              
  143.  
  144. If FilterName="" Then                                
  145.    FoundErr=True                                
  146.    ErrMsg=ErrMsg & "<br><li>过滤名称不能为空</li>"                                
  147. End If                                
  148. If ItemID="" Then                                
  149.    FoundErr=True                                
  150.    ErrMsg=ErrMsg & "<br><li>请选择过滤所属项目</li>"                                
  151. Else                                
  152.    ItemID=Clng(ItemID)  
  153.    If ItemID=0 Then  
  154.       FoundErr=True                                
  155.       ErrMsg=ErrMsg & "<br><li>请选择过滤所属项目</li>"  
  156.    End If                                
  157. End If      
  158. If FilterObject="" Then                                
  159.    FoundErr=True                                
  160.    ErrMsg=ErrMsg & "<br><li>请选择过滤对象</li>"                                
  161. Else                                
  162.    FilterObject=Clng(FilterObject)  
  163. End If                                
  164.                            
  165. If FilterType="" Then                                
  166.    FoundErr=True                                
  167.    ErrMsg=ErrMsg & "<br><li>请选择过滤类型</li>"                                
  168. Else                                
  169.    FilterType=Clng(FilterType)                                
  170.    If FilterType=1 Then    
  171.       If FilterContent="" Then                              
  172.          FoundErr=True                                
  173.          ErrMsg=ErrMsg & "<br><li>过滤的内容不能为空</li>"  
  174.       End If  
  175.    ElseIf FilterType=2 Then  
  176.       If FisString="" or FioString="" Then  
  177.          FoundErr=True                                
  178.          ErrMsg=ErrMsg & "<br><li>开始/结束标记不能为空</li>"  
  179.       End If  
  180.    Else  
  181.       FoundErr=True                                
  182.       ErrMsg=ErrMsg & "<br><li>参数错误,请从有效链接进入</li>"  
  183.    End If  
  184. End If
  185. If Flag="yes" Then
  186.    Flag=True
  187. Else
  188.    Flag=False
  189. End If    
  190. If PublicTf="yes" Then
  191.    PublicTf=True
  192. Else
  193.    PublicTf=False
  194. End If                              
  195.                                
  196. If FoundErr<>True Then                                
  197.    SqlItem ="select top 1 *  from Filters"                                
  198.    Set RsItem=server.CreateObject("adodb.recordset")                                
  199.    RsItem.open SqlItem,ConnItem,1,3                                
  200.    RsItem.AddNew                                
  201.    RsItem("FilterName")=FilterName                                
  202.    RsItem("ItemID")=ItemID  
  203.    RsItem("FilterObject")=FilterObject                                
  204.    RsItem("FilterType")=FilterType                                
  205.    If FilterType=1 Then                                
  206.       RsItem("FilterContent")=FilterContent                                
  207.    ElseIf FilterType=2 Then                                
  208.       RsItem("FisString")=FisString                                
  209.       RsItem("FioString")=FioString                                
  210.    End If                                                
  211.    RsItem("FilterRep")=FilterRep
  212.    RsItem("Flag")=Flag
  213.    RsItem("PublicTf")=PublicTf                                  
  214.    RsItem.Update                                
  215.    RsItem.Close                                
  216.    Set RsItem=Nothing                                
  217.    Response.Redirect "Admin_ItemFilters.asp"                                
  218. Else                                
  219.    Call WriteErrMsg(ErrMsg)                                
  220. End If                                
  221.                                
  222. End Sub                                
  223. %>
  224.  
  225.  
  226.  
  227.  
downloadAdmin_ItemFilterAdd.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top