BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Admin_ItemFilterModify.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. <!--#include file="../admin_check.asp"-->
  4. <%
  5. Dim SqlItem,RsItem,ErrMsg,Action,ItemID,FilterName,FilterID,FilterObject,FilterType,FilterContent,FisString,FioString,FilterRep,Flag,PublicTf
  6. Action=Trim(Request("Action"))
  7. FilterID=Trim(Request("FilterID"))
  8.  
  9. If FilterID="" Then
  10.    FoundErr=True
  11.    ErrMsg=ErrMsg & "<br><br><li>参数错误,请从有效链接进入</li>"
  12. Else
  13.    FilterID=Clng(FilterID)
  14. End If
  15. If Action="SaveEdit" and FoundErr<>True Then
  16.    Call SaveEdit
  17. Else
  18.    Call Test()
  19. End If
  20. If FoundErr<>True Then
  21.    Call Main()
  22. Else
  23.    Call WriteErrMsg(ErrMsg)
  24. End If
  25. '关闭数据库链接
  26. Call CloseConn()
  27. Call CloseConnItem()
  28. %>
  29. <%
  30. Sub Main
  31. %>
  32. <html>
  33. <head>
  34. <title>采集系统</title>
  35. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  36. <link rel="stylesheet" type="text/css" href="../style/Style.css">
  37. <SCRIPT language=javascript>
  38. function showset(thisform)
  39. {
  40.                 if(thisform.FilterType.selectedIndex==1)
  41.                 {
  42.                 FilterType1.style.display = "none";
  43.                         FilterType2.style.display = "";
  44.                 }
  45.                 else
  46.                 {
  47.                 FilterType1.style.display = "";
  48.                         FilterType2.style.display = "none";
  49.             }
  50.  
  51. }
  52. </script></head>
  53. <body>
  54. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  55.   <tr>
  56.     <td class="td28">采集系统过滤管理</td>
  57.   </tr>
  58.   <tr class="td26" bgcolor="#FFFFFF">
  59.     <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>
  60.   </tr>
  61.   <tr>
  62.     <td bgcolor="#FFFFFF" style="padding-left:10px;"><a href="Admin_ItemFilterAdd.asp">添加新过滤</a></td>
  63.   </tr>
  64. </table>
  65. <form method="post" action="Admin_ItemFilterModify.asp" name="form1" style="padding:0; margin:0;">
  66. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">                      
  67.     <tr>                                
  68.       <td colspan="2" class="td28">编辑过滤</td>                                
  69.     </tr>                                
  70.     <tr>                                
  71.       <td width="14%" align="right" bgcolor="#FFFFFF">过滤名称:</td>                                
  72.       <td width="86%" bgcolor="#FFFFFF"><input name="FilterName" type="text" id="FilterName" value="<%=FilterName%>" size="25" maxlength="30">&nbsp;</td>
  73.         </tr>                                
  74.     <tr>                                
  75.       <td align="right" bgcolor="#FFFFFF">所属项目:</td>                                
  76.       <td bgcolor="#FFFFFF"><%Call Admin_ShowItem_Option(ItemID)%>                                
  77.       </td>                                
  78.     </tr>                                
  79.     <tr>                                
  80.       <td align="right" bgcolor="#FFFFFF">过滤对象:</td>                              
  81.       <td bgcolor="#FFFFFF">                              
  82.          <select name="FilterObject" id="FilterObject">                              
  83.             <option value="1" <%if FilterObject=1 Then Response.Write "selected"%>>标题过滤</option>                              
  84.             <option value="2" <%if FilterObject=2 Then Response.Write "selected"%>>正文过滤</option>                              
  85.          </select>                              
  86.       </td>                              
  87.     </tr>                              
  88.     <tr>                                
  89.       <td align="right" bgcolor="#FFFFFF">过滤类型:</td>                              
  90.       <td bgcolor="#FFFFFF">                              
  91.          <select name="FilterType" id="FilterType" onchange=showset(this.form)>                              
  92.             <option value="1" <%if FilterType=1 Then Response.Write "selected"%> >简单替换</option>                              
  93.             <option value="2" <%if FilterType=2 Then Response.Write "selected"%>>高级过滤</option>                              
  94.          </select>                              
  95.       </td>                                
  96.     </tr>    
  97.     <tr>                                
  98.       <td align="right" bgcolor="#FFFFFF">使用状态:</td>                              
  99.       <td bgcolor="#FFFFFF">                              
  100.          <select name="Flag" id="Flag">                              
  101.             <option value="yes" <%If Flag=True Then Response.Write "selected"%>>启用</option>                              
  102.             <option value="no" <%If Flag=False Then Response.Write "selected"%>>禁用</option>                              
  103.          </select>                              
  104.       </td>                                
  105.     </tr>                                    
  106.     <tr>                                
  107.       <td align="right" bgcolor="#FFFFFF">使用范围:</td>                              
  108.       <td bgcolor="#FFFFFF">                              
  109.          <select name="PublicTf" id="PublicTf">                              
  110.             <option value="yes" <%If PublicTf=True Then Response.Write "selected"%>>公有</option>                            
  111.             <option value="no" <%If PublicTf=False Then Response.Write "selected"%>>私有</option>                            
  112.          </select>                              
  113.       </td>                                
  114.     </tr>                                    
  115. </table>                                
  116. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab" id="FilterType1" style="display:<%if FilterType<>1 Then Response.Write "none"%>">                                
  117.     <tr>                                
  118.       <td width="14%" align="right" bgcolor="#FFFFFF">内容:</td>                              
  119.       <td width="86%" bgcolor="#FFFFFF"><textarea name="FilterContent" cols="49" rows="5"><%=FilterContent%></textarea></td>                              
  120.     </tr>                            
  121. </table>                
  122. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab" id="FilterType2" style="display:<%if FilterType<>2 Then Response.Write "none"%>">                                  
  123.     <tr>                              
  124.       <td width="14%" align="right" bgcolor="#FFFFFF">开始标记:</td>                              
  125.       <td width="86%" bgcolor="#FFFFFF"><textarea name="FisString" cols="49" rows="5"><%=FisString%></textarea>                              
  126.       &nbsp;</td>                                
  127.     </tr>                                
  128.     <tr>                                
  129.       <td align="right" bgcolor="#FFFFFF">结束标记:</td>                              
  130.       <td bgcolor="#FFFFFF"><textarea name="FioString" cols="49" rows="5"><%=FioString%></textarea>                                
  131.       &nbsp;</td>                                
  132.     </tr>                        
  133. </table>
  134. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  135.     <tr>
  136.       <td width="14%" align="right" bgcolor="#FFFFFF">替换:</td>
  137.       <td width="86%" bgcolor="#FFFFFF"><textarea name="FilterRep" cols="49" rows="5" id="FilterRep"><%=FilterRep%></textarea></td>
  138.     </tr>
  139. </table>
  140. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  141.     <tr>
  142.       <td colspan="2" align="center" bgcolor="#FFFFFF">
  143.         <input name="Action" type="hidden" id="Action" value="SaveEdit">
  144.         <input name="FilterID" type="hidden" id="FilterID" value="<%=FilterID%>">
  145.         <input name="Cancel" type="button" class="submit1" id="Cancel" onClick="window.location.href='Admin_ItemFilters.asp'" value="返&nbsp;&nbsp;回">
  146.         &nbsp;
  147.         <input name="Submit"  type="submit" class="submit1" value="确&nbsp;&nbsp;定">
  148.       </td>
  149.     </tr>
  150. </table>
  151. </form>
  152. </body>        
  153. </html>
  154. <%End Sub%>
  155.  
  156. <%
  157. Sub SaveEdit
  158. FilterID=Trim(Request("FilterID"))
  159. FilterName=Trim(Request.Form("FilterName"))
  160. ItemID=Trim(Request.Form("ItemID"))
  161. FilterObject=Trim(Request.Form("FilterObject"))
  162. FilterType=Trim(Request.Form("FilterType"))
  163. FilterContent=Request.Form("FilterContent")
  164. FisString=Request.Form("FisString")
  165. FioString=Request.Form("FioString")
  166. FilterRep=Request.Form("FilterRep")
  167. Flag=Trim(Request.Form("Flag"))
  168. PublicTf=Trim(Request.Form("PublicTf"))
  169.  
  170. If FilterID="" Then                                
  171.    FoundErr=True                                
  172.    ErrMsg=ErrMsg & "<br><li>参数错误!请从有效链接进入</li>"
  173. Else
  174.    FilterID=Clng(FilterID)                                
  175. End If                                
  176.  
  177. If FilterName="" Then                                
  178.    FoundErr=True                                
  179.    ErrMsg=ErrMsg & "<br><li>过滤名称不能为空</li>"                                
  180. End If                                
  181. If ItemID="" Then                                
  182.    FoundErr=True                                
  183.    ErrMsg=ErrMsg & "<br><li>请选择过滤所属项目</li>"                                
  184. Else                                
  185.    ItemID=Clng(ItemID)  
  186.    If ItemID=0 Then  
  187.       FoundErr=True                                
  188.       ErrMsg=ErrMsg & "<br><li>请选择过滤所属项目</li>"  
  189.    End If                                
  190. End If      
  191. If FilterObject="" Then                                
  192.    FoundErr=True                                
  193.    ErrMsg=ErrMsg & "<br><li>请选择过滤对象</li>"                                
  194. Else                                
  195.    FilterObject=Clng(FilterObject)  
  196. End If                                
  197.                            
  198. If FilterType="" Then                                
  199.    FoundErr=True                                
  200.    ErrMsg=ErrMsg & "<br><li>请选择过滤类型</li>"                                
  201. Else                                
  202.    FilterType=Clng(FilterType)                                
  203.    If FilterType=1 Then    
  204.       If FilterContent="" Then                              
  205.          FoundErr=True                                
  206.          ErrMsg=ErrMsg & "<br><li>过滤的内容不能为空</li>"  
  207.       End If  
  208.    ElseIf FilterType=2 Then  
  209.       If FisString="" or FioString="" Then  
  210.          FoundErr=True                                
  211.          ErrMsg=ErrMsg & "<br><li>开始/结束标记不能为空</li>"  
  212.       End If  
  213.    Else  
  214.       FoundErr=True                                
  215.       ErrMsg=ErrMsg & "<br><li>参数错误,请从有效链接进入</li>"  
  216.    End If  
  217. End If                    
  218. If Flag="yes" Then
  219.    Flag=True
  220. Else
  221.    Flag=False
  222. End If
  223. If PublicTf="yes" Then
  224.    PublicTf=True
  225. Else
  226.    PublicTf=False
  227. End If
  228.  
  229. If FoundErr<>True Then                                
  230.    SqlItem ="select top 1 *  from Filters Where FilterID=" & FilterID                                
  231.    Set RsItem=server.CreateObject("adodb.recordset")                                
  232.    RsItem.open SqlItem,ConnItem,2,3                                                              
  233.    RsItem("FilterName")=FilterName                                
  234.    RsItem("ItemID")=ItemID  
  235.    RsItem("FilterObject")=FilterObject                                
  236.    RsItem("FilterType")=FilterType                                
  237.    If FilterType=1 Then                                
  238.       RsItem("FilterContent")=FilterContent                                
  239.    ElseIf FilterType=2 Then                                
  240.       RsItem("FisString")=FisString                                
  241.       RsItem("FioString")=FioString                                
  242.    End If                                                
  243.    RsItem("FilterRep")=FilterRep        
  244.    RsItem("Flag")=Flag  
  245.    RsItem("PublicTf")=PublicTf                        
  246.    RsItem.Update                                
  247.    RsItem.Close                                
  248.    Set RsItem=Nothing                                
  249.    Response.Redirect "Admin_ItemFilters.asp"                                
  250. Else                                
  251.    Call WriteErrMsg(ErrMsg)                                
  252. End If                  
  253. End Sub
  254.  
  255. Sub Test
  256. Set RsItem=server.createobject("adodb.recordset")        
  257. SqlItem="select * from Filters Where FilterID=" & FilterID        
  258. RsItem.open SqlItem,ConnItem,1,1      
  259. If Not RsItem.Eof Then
  260.    ItemID=RsItem("ItemID")
  261.    FilterName=RsItem("FilterName")
  262.    FilterObject=RsItem("FilterObject")
  263.    FilterType=RsItem("FilterType")
  264.    FilterContent=RsItem("FilterContent")
  265.    FisString=RsItem("FisString")
  266.    FioString=RsItem("FioString")
  267.    FilterRep=RsItem("FilterRep")
  268.    Flag=RsItem("Flag")
  269.    PublicTf=RsItem("PublicTf")
  270. Else
  271.    FoundErr=True
  272.    ErrMsg=ErrMsg & "<br></li>参数错误,找不到该项目</li>"
  273. End If
  274. RsItem.Close
  275. Set RsItem=Nothing
  276. End Sub
  277. %>
  278.  
  279.  
  280.  
  281.  
downloadAdmin_ItemFilterModify.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