BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Admin_ItemAddNew3.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. <link rel="stylesheet" type="text/css" href="../style/Style.css">
  5. <%
  6. Dim SqlItem,RsItem,ItemID
  7. Dim ListStr,LsString,LoString,ListPaingType,LPsString,LPoString,ListPaingStr1,ListPaingStr2,ListPaingID1,ListPaingID2,ListPaingStr3
  8. Dim ListUrl,ListCode
  9. Dim LoginType,LoginUrl,LoginPostUrl,LoginUser,LoginPass,LoginFalse,LoginResult,LoginData
  10. Dim  ListPaingNext
  11. ItemID=Trim(Request.Form("ItemID"))
  12. ListStr=Trim(Request.Form("ListStr"))
  13. LsString=Request.Form("LsString")
  14. LoString=Request.Form("LoString")
  15. ListPaingType=Request.Form("ListPaingType")
  16. LPsString=Request.Form("LPsString")
  17. LPoString=Request.Form("LPoString")
  18. ListPaingStr1=Trim(Request.Form("ListPaingStr1"))
  19. ListPaingStr2=Trim(Request.Form("ListPaingStr2"))
  20. ListPaingID1=Trim(Request.Form("ListPaingID1"))
  21. ListPaingID2=Trim(Request.Form("ListPaingID2"))
  22. ListPaingStr3=Trim(Request.Form("ListPaingStr3"))
  23. FoundErr=False
  24.  
  25. If ItemID=""  Then
  26.    FoundErr=True
  27.    ErrMsg=ErrMsg & "<br><br><li>参数错误,请从有效链接进入</li>"
  28. Else
  29.    ItemID=Clng(ItemID)
  30. End If
  31. If LsString="" Then
  32.    FoundErr=True
  33.    ErrMsg=ErrMsg & "<br><br><li>列表开始标记不能为空</li>"
  34. End If
  35. If LoString="" Then
  36.    FoundErr=True
  37.    ErrMsg=ErrMsg & "<br><br><li>列表结束标记不能为空</li>"
  38. End If
  39. If ListPaingType="" Then
  40.    FoundErr=True
  41.    ErrMsg=ErrMsg & "<br><br><li>请选择列表索引分页类型</li>"
  42. Else
  43.    ListPaingType=Clng(ListPaingType)
  44.    Select Case ListPaingType
  45.    Case 0,1
  46.       If  ListPaingType=1  Then
  47.             If LPsString="" or LPoString="" Then
  48.                FoundErr=True
  49.                ErrMsg=ErrMsg & "<br><br><li>索引分页开始/结束标记不能为空</li>"
  50.             End If
  51.             If ListPaingStr1<>"" and Len(ListPaingStr1)<15 Then
  52.                FoundErr=True
  53.                ErrMsg=ErrMsg & "<br><br><li>索引分页重定向设置不正确(至少15个字符)</li>"
  54.             End If
  55.       End  If
  56.    Case 2
  57.       If ListPaingStr2="" Then
  58.          FoundErr=True
  59.          ErrMsg=ErrMsg & "<br><br><li>批量生成字符不能为空</li>"
  60.       End If
  61.       If isNumeric(ListPaingID1)=False or isNumeric(ListPaingID2)=False Then
  62.          FoundErr=True
  63.          ErrMsg=ErrMsg & "<br><br><li>批量生成的范围只能是数字</li>"
  64.       Else
  65.          ListPaingID1=Clng(ListPaingID1)
  66.          ListPaingID2=Clng(ListPaingID2)
  67.          If ListPaingID1=0 And ListPaingID2=0 Then
  68.             FoundErr=True
  69.             ErrMsg=ErrMsg & "<br><br><li>批量生成范围设置不正确</li>"
  70.          End If
  71.       End If
  72.    Case 3
  73.       If ListPaingStr3="" Then
  74.          FoundErr=True
  75.          ErrMsg=ErrMsg & "<br><br><li>列表索引分页不能为空,请手动添加</li>"
  76.       Else
  77.          ListPaingStr3=Replace(ListPaingStr3,CHR(13),"|")
  78.       End If
  79.    Case Else
  80.       FoundErr=True
  81.       ErrMsg=ErrMsg & "<br><br><li>请选择列表索引分页类型</li>"
  82.    End Select
  83. End if
  84.  
  85. If FoundErr<>True Then
  86.    SqlItem="Select * from Item Where ItemID=" & ItemID
  87.    Set RsItem=server.CreateObject("adodb.recordset")
  88.    RsItem.Open SqlItem,ConnItem,2,3
  89.  
  90.    RsItem("LsString")=LsString
  91.    RsItem("LoString")=LoString
  92.    RsItem("ListPaingType")=ListPaingType
  93.    Select Case ListPaingType
  94.    Case 0,1
  95.       If ListPaingType=1  Then
  96.             RsItem("LPsString")=LPsString
  97.             RsItem("LPoString")=LPoString
  98.             If ListPaingStr1<>"" Then
  99.                RsItem("ListPaingStr1")=ListPaingStr1
  100.             End If
  101.       End  If
  102.       ListUrl=RsItem("ListStr")
  103.    Case 2
  104.       RsItem("ListPaingStr2")=ListPaingStr2
  105.       RsItem("ListPaingID1")=ListPaingID1
  106.       RsItem("ListPaingID2")=ListPaingID2
  107.       ListUrl=Replace(ListPaingStr2,"{$ID}",CStr(ListPaingID1))
  108.    Case 3
  109.       RsItem("ListPaingStr3")=ListPaingStr3
  110.       If  Instr(ListPaingStr3,"|")>0  Then
  111.             ListUrl=Left(ListPaingStr3,Instr(ListPaingStr3,"|")-1)
  112.       Else
  113.             ListUrl=ListPaingStr3
  114.       End  If
  115.    End Select
  116.    LoginType=RsItem("LoginType")
  117.    LoginUrl=RsItem("LoginUrl")
  118.    LoginPostUrl=RsItem("LoginPostUrl")
  119.    LoginUser=RsItem("LoginUser")
  120.    LoginPass=RsItem("LoginPass")
  121.    LoginFalse=RsItem("LoginFalse")
  122.    RsItem.UpDate
  123.    RsItem.Close
  124.    Set RsItem=Nothing
  125.  
  126.    If LoginType=1 then
  127.       LoginData=UrlEncoding(LoginUser & "&" & LoginPass)
  128.       LoginResult=PostHttpPage(LoginUrl,LoginPostUrl,LoginData)
  129.       If Instr(LoginResult,LoginFalse)>0 Then
  130.          FoundErr=True
  131.          ErrMsg=ErrMsg & "<br><br><li>网站登录失败,请检查登录参数!</li>"
  132.       End If
  133.    End If
  134.    
  135.    If FoundErr<>True Then
  136.       ListCode=GetHttpPage(ListUrl)
  137.       If ListCode<>"$False$" Then
  138.          If ListPaingType=1  Then
  139.             ListPaingNext=GetPaing(ListCode,LPsString,LPoString,False,False)
  140.                   If ListPaingNext<>"$False$"  Then
  141.                      If ListPaingStr1<>""  Then  
  142.                         ListPaingNext=Replace(ListPaingStr1,"{$ID}",ListPaingNext)
  143.                Else
  144.                         ListPaingNext=DefiniteUrl(ListPaingNext,ListUrl)
  145.                End  If
  146.             End  If
  147.          End If
  148.          ListCode=GetBody(ListCode,LsString,Lostring,False,False)
  149.          If ListCode="$False$" Then
  150.             FoundErr=True
  151.             ErrMsg=ErrMsg & "<br><br><li>在截取:" & ListUrl & "信息列表时发生错误</li>"
  152.          End If
  153.       Else
  154.          FoundErr=True
  155.          ErrMsg=ErrMsg & "<br><br><li>在获取:" & ListUrl & "网页源码时发生错误</li>"
  156.       End If
  157.    End If
  158. End If
  159.  
  160. If FoundErr=True Then
  161.    Call WriteErrMsg(ErrMsg)
  162. Else
  163.    Call Main
  164. End If  
  165. '关闭数据库链接
  166. Call CloseConn()
  167. Call CloseConnItem()
  168. %>
  169.  
  170. <%Sub Main%>
  171. <html>
  172. <head>
  173. <title>采集系统</title>
  174. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  175. </head>
  176. <body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
  177. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  178.   <tr>
  179.     <td colspan="2" class="td28">采集系统项目管理</td>
  180.   </tr>
  181.   <tr class="td26" bgcolor="#FFFFFF">
  182.     <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>
  183.   </tr>
  184.   <tr bgcolor="#FFFFFF">
  185.     <td style="padding-left:10px;"><a href="Admin_ItemAddNew.asp">添加项目</a> >> <a href="Admin_ItemModify.asp">基本设置</a> >> <a href="Admin_ItemModify2.asp?ItemID=<%=ItemID%>">列表设置</a> >> <font color=red>链接设置</font> >> 正文设置 >> 采样测试 >> 属性设置 >> 完成</td>        
  186.   </tr>
  187. </table>      
  188. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  189.     <tr>
  190.       <td colspan="2" class="td28">添加新项目--列表截取测试</td>
  191.     </tr>
  192.     <tr bgcolor="#FFFFFF">
  193.       <td height="22" colspan="2"><%=ListCode%></td>
  194.     </tr>
  195.   <tr>
  196.     <td colspan="2" class="td28">项目编辑--采集目标源码<Input name="code" type="radio" class="checkbox" onClick="javascript:Content.style.height='1';" value="0" >不查看 <Input name="code" type="radio" class="checkbox" onClick="javascript:Content.style.height='300';" value="1" checked>查看源码</td>
  197.   </tr>
  198.   <tr bgcolor="#FFFFFF">
  199.     <td colspan="2" align="center"><TEXTAREA NAME="Content" ROWS="" COLS="" style="width:99%;height:300px"><%=ListCode%></TEXTAREA></td>
  200.   </tr>
  201. </table>
  202. <%If ListPaingNext<>"" And ListPaingNext<>"$False$" Then%>
  203. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  204.     <tr>
  205.       <td height="22" colspan="2" bgcolor="#FFFFFF" ><%Response.Write "<br>下一页列表:<a  href='" & ListPaingNext  &  "' target=_blank><font  color=red>"  &  ListPaingNext  &  "</font></a>"%></td>
  206.     </tr>
  207. </table>
  208. <%End If%>
  209. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  210. <form method="post" action="Admin_ItemAddNew4.asp" name="form1">
  211.     <tr>
  212.       <td colspan="2" class="td28">添加新项目--链接设置</td>
  213.     </tr>
  214.     <tr>
  215.       <td width="20%" align="right" bgcolor="#FFFFFF" >链接开始标记:</td>
  216.       <td width="75%" bgcolor="#FFFFFF">
  217.       <textarea name="HsString" cols="49" rows="7"></textarea></td>
  218.     </tr>
  219.     <tr>
  220.       <td width="20%" align="right" bgcolor="#FFFFFF" >链接结束标记:</td>
  221.       <td width="75%" bgcolor="#FFFFFF">
  222.       <textarea name="HoString" cols="49" rows="7"></textarea></td>
  223.     </tr>
  224.     <tr>
  225.       <td width="20%" align="right" bgcolor="#FFFFFF">链接处理类型:</td>
  226.       <td width="75%" bgcolor="#FFFFFF">
  227.                 <input name="HttpUrlType" type="radio" class="checkbox" onClick="HttpUrl1.style.display='none'" value="0" checked>
  228.                 自动处理&nbsp;
  229.                 <input name="HttpUrlType" type="radio" class="checkbox" onClick="HttpUrl1.style.display=''" value="1">
  230.                 重新定向      </td>
  231.     </tr>
  232.         <tr id="HttpUrl1" style="display:none">
  233.       <td width="20%" align="right" bgcolor="#FFFFFF">重新定向链接字符:</td>
  234.       <td width="75%" bgcolor="#FFFFFF">
  235.         <input name="HttpUrlStr" type="text" size="49" maxlength="200" value=""><br>
  236.         格式:http://www.*****.net/Article_Show.asp?ID={$ID}      </td>
  237.     </tr>
  238.     <tr>
  239.       <td colspan="2" align="center" bgcolor="#FFFFFF">
  240.         <input name="ItemID" type="hidden" value="<%=ItemID%>">
  241.         <input name="button1"  type="button" class="submit1" onClick="window.location.href='javascript:history.go(-1)'" value="上&nbsp;一&nbsp;步">
  242.         &nbsp;&nbsp;&nbsp;&nbsp;
  243.       <input name="Submit"  type="submit" class="submit1" value="下&nbsp;一&nbsp;步"></td>
  244.     </tr>
  245. </form>
  246. </table>
  247. <br>
  248. </body>        
  249. </html>
  250. <%End Sub%>
downloadAdmin_ItemAddNew3.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