BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Admin_ItemCopy.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. <html>
  4. <head>
  5. <title>采集系统</title>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <link rel="stylesheet" type="text/css" href="../style/Style.css">
  8. </head>
  9. <body>
  10. <%
  11. Dim Action,ItemID,Arr_Item,Arr_i,ItemName,Arr_Filter
  12. Action=Trim(Request("Action"))
  13. ItemID=Trim(Request("ItemID"))
  14. FoundErr=False
  15.  
  16. If Action<>"Copy" Then
  17.    FoundErr=True
  18.    ErrMsg=ErrMsg & "<br><li>参数错误,请从有效链接进入</li>"
  19. End if  
  20. If ItemID=""  Then
  21.    FoundErr=True
  22.    ErrMsg=ErrMsg & "<br><li>参数错误,请从有效链接进入</li>"
  23. Else
  24.    ItemID=Clng(ItemID)
  25. End If
  26.  
  27. If FoundErr<>True Then
  28.    Set Rs=ConnItem.execute("Select * from Item Where ItemID=" & ItemID)
  29.    If Not Rs.Eof And Not Rs.Bof Then
  30.       Arr_Item=Rs.GetRows()
  31.    Else
  32.       Arr_Item=""
  33.    End if
  34.    Set Rs=Nothing
  35.  
  36.    If IsArray(Arr_Item)=True then
  37.       Set Rs=ConnItem.execute("Select * from Filters Where PublicTf=False And ItemID=" & ItemID)
  38.       If Not Rs.Eof And Not Rs.Bof Then
  39.          Arr_Filter=Rs.GetRows()
  40.       Else
  41.          Arr_Filter=""
  42.       End if
  43.       Set Rs=Nothing
  44.    End if
  45.    
  46.    If IsArray(Arr_Item)=True Then
  47.       set rs=server.createobject("adodb.recordset")
  48.       sql="select top 1 * from Item"
  49.       rs.open sql,connItem,1,3
  50.       rs.AddNew
  51.          rs(1)=Arr_Item(1,0)&"复件"
  52.          ItemName=Arr_Item(1,0)
  53.          For Arr_i=2 To Ubound(Arr_Item,1)
  54.             rs(Arr_i)=Arr_Item(Arr_i,0)
  55.          Next
  56.          ItemID=rs("ItemID")
  57.       rs.Update
  58.       rs.close
  59.       set rs=nothing
  60.  
  61.       If IsArray(Arr_Filter)=True Then
  62.          set rs=server.createobject("adodb.recordset")
  63.          sql="select top 1 * from Filters"
  64.          rs.open sql,connItem,1,3
  65.          rs.AddNew
  66.             rs(1)=ItemID
  67.             For Arr_i=2 To Ubound(Arr_Filter,1)
  68.                rs(Arr_i)=Arr_Filter(Arr_i,0)
  69.             Next
  70.          rs.Update
  71.          rs.close
  72.          set rs=nothing
  73.       End if      
  74.    else
  75.       FoundErr=True
  76.       ErrMsg=ErrMsg & "参数错误,没有找到该项目"
  77.    end if
  78.    
  79. End if
  80.  
  81. If FoundErr=True Then
  82.    Call Admin_ShowErr(ErrMsg)
  83. Else
  84.    Call Main
  85. End If  
  86. '关闭数据库链接
  87. Call CloseConnItem()
  88.  
  89. Sub Main%>
  90. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  91.   <tr>
  92.     <td class="td28">采集系统项目管理</td>
  93.   </tr>
  94.   <tr bgcolor="#FFFFFF" class="td26">
  95.     <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>
  96.   </tr>
  97. </table>        
  98. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  99.     <tr>
  100.       <td class="td28">添加新项目--项目复制</td>
  101.     </tr>
  102.     <tr>
  103.       <td align="center" bgcolor="#FFFFFF"><br>
  104.         <%=ItemName%> 项目复制完成,新的项目保存为:<%=ItemName%>复件<br><br>
  105.       </td>
  106.     </tr>
  107.     <tr>
  108.       <td align="center" bgcolor="#FFFFFF"><a href="Admin_ItemManage.asp">返回管理</a></td>
  109.   </tr>
  110. </table>
  111. <%
  112. End Sub
  113. %>
  114. </body>        
  115. </html>
downloadAdmin_ItemCopy.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