BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download Admin_ItemAttribute.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,Action
  7. Dim ItemID,ItemName,ChannelID,ClassID,SpecialID
  8. Dim  PaginationType,MaxCharPerPage,ReadLevel,Stars,ReadPoint,Hits,UpdateType,UpdateTime,IncludePicYn,DefaultPicYn
  9. Dim  OnTop,Elite,Hot,SkinID,TemplateID
  10. Dim  Script_Iframe,Script_Object,Script_Script,Script_Div,Script_Class,Script_Span,Script_Img,Script_Font,Script_A,Script_Html,Script_Table,Script_Tr,Script_Td,ErrMsg
  11. Dim  CollecListNum,CollecnewsNum,Passed,SaveFiles,CollecOrder,LinkUrlYn,InputerType,Inputer,EditorType,ShowCommentLink
  12. FoundErr=False
  13. ItemID=Trim(Request("ItemID"))
  14. Action=Trim(Request("Action"))
  15.  
  16. If ItemID="" Then
  17.    FoundErr=True
  18.    ErrMsg=ErrMsg & "<br><br><li>参数错误,项目ID不能为空!</li>"
  19. Else
  20.    ItemID=Clng(ItemID)
  21. End If
  22.  
  23. If  FoundErr<>True  Then
  24.       Call GetTest()
  25. End  If
  26. If FoundErr<>True Then
  27.    Call Main()
  28. End If
  29. %>
  30. <%Sub Main
  31. %>
  32. <html><head>
  33. <title>采集系统</title>
  34. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  35. <%
  36. sql = "select S_name,S_cid,S_id from Article_NewsSort order by S_order desc"
  37. set rs=server.createobject("ADODB.Recordset")
  38. rs.open sql,conn,1,1
  39. %>
  40. <script language = "JavaScript">
  41. var onecount1;
  42. onecount1=0;
  43. subcat1 = new Array();
  44. <%
  45. sqls="select S_id,S_name from Article_NewsSort where S_id="&ClassID&""
  46. set rstid=Server.CreateObject("ADODB.RecordSet")
  47. rstid.open sqls,conn,1,1
  48. if not rstid.eof then
  49.         sid=rstid("S_id")
  50.         sname=rstid("S_name")
  51. end if
  52. rstid.close
  53. set rstid=nothing
  54. count = 0
  55. do while not rs.eof
  56. %>
  57. subcat1[<%=count%>] = new Array("<%= trim(rs("S_name"))%>","<%= trim(rs("S_cid"))%>","<%= trim(rs("S_id"))%>");
  58.         <%count = count + 1
  59.         rs.movenext
  60.         loop
  61.         rs.close
  62.         set rs=nothing%>
  63. onecount1=<%=count%>;
  64.  
  65. function changelocation(addone)
  66.     {
  67.     document.myform.infoClassID.length = 0;
  68.  
  69.     var addone_id=addone;
  70.     var i;
  71.     document.myform.infoClassID.options[0] = new Option('<%=sname%>','<%=sid%>');
  72.     for (i=0;i < onecount1; i++)
  73.         {
  74.             if (subcat1[i][1] == addone)
  75.             {
  76.                 document.myform.infoClassID.options[document.myform.infoClassID.length] = new Option(subcat1[i][0], subcat1[i][2]);
  77.             }        
  78.         }
  79.        
  80.     }
  81. </script>
  82. </head>
  83. <body>
  84. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  85.   <tr>
  86.     <td colspan="2" class="td28">采集系统项目管理</td>
  87.   </tr>
  88.   <tr class="td26" bgcolor="#FFFFFF">
  89.     <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>
  90.   </tr>
  91.   <tr bgcolor="#FFFFFF">
  92.     <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> >> <a href="Admin_ItemModify3.asp?ItemID=<%=ItemID%>">链接设置</a> >> <a href="Admin_ItemModify4.asp?ItemID=<%=ItemID%>">正文设置</a> >> <a href="Admin_ItemModify5.asp?ItemID=<%=ItemID%>">采样测试</a> >> <a href="Admin_ItemAttribute.asp?ItemID=<%=ItemID%>"><font color=red>属性设置</font></a> >> 完成</td>      
  93.   </tr>
  94. </table>
  95. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  96.     <tr>
  97.       <td colspan="2" class="td28">编辑项目--属性设置</td>
  98.     </tr>
  99. </table>
  100. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  101. <form method="post" action="Admin_ItemSuccess.asp" name="myform">
  102.     <tr>
  103.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">项目名称:</td>
  104.       <td bgcolor="#FFFFFF"><input name='ItemName' type='text' id='ItemName' value='<%=ItemName%>' size='27' maxlength='30'></td>
  105.     </tr>
  106.    
  107.     <tr id="info">
  108.       <td align="right" bgcolor="#FFFFFF">所属频道:</td>
  109.       <td bgcolor="#FFFFFF"><select name="infoChannelID" onChange="changelocation(document.myform.infoChannelID.options[document.myform.infoChannelID.selectedIndex].value)" style="FONT-SIZE: 9pt; WIDTH: 130px; FONT-FAMILY: 宋体; HEIGHT: 22px" >
  110.                   <option value="" selected>请选择频道</option>
  111. <%sql1="select C_id,C_name from Article_Channel where C_ModuleType=10 order by C_order asc"
  112. set rs1=server.createobject("ADODB.Recordset")
  113. rs1.open sql1,conn,1,1
  114. while not rs1.eof%>
  115. <option value="<%=rs1("C_ID")%>" <%if ChannelID=rs1("C_ID") then response.write "Selected"%>><%=rs1("C_Name")%></option>
  116. <%rs1.movenext
  117. wend
  118. rs1.Close()
  119. %>
  120.           </select></td>
  121.     </tr>
  122.     <tr id="info">
  123.       <td width="20%" align="right" bgcolor="#FFFFFF"> 所属栏目:</td>
  124.       <td width="75%" bgcolor="#FFFFFF"><select name="infoClassID" size="1" style="FONT-SIZE: 9pt; WIDTH: 130px; FONT-FAMILY: 宋体; HEIGHT: 22px">
  125. <option selected>请选择栏目</option>
  126. </select></td>
  127.     </tr>
  128.     <tr>
  129.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">内容分页方式:</td>
  130.       <td bgcolor="#FFFFFF"><select name="PaginationType">
  131.             <option value="0" <%If PaginationType=0 Then response.write "selected"%>>不分页</option>
  132.             <option value="1" <%If PaginationType=1 Then response.write "selected"%>>自动分页</option>
  133.             <option value="2" <%If PaginationType=2 Then response.write "selected"%>>手动分页</option>
  134.           </select>        
  135.       自动分页时的每页大约字符数(包含HTML标记):<input name="MaxCharPerPage" type="text" value="<%=MaxCharPerPage%>" size="8" maxlength="8">      </td>
  136.     </tr>  
  137.     <tr>
  138.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">点击数初始值:</td>
  139.       <td bgcolor="#FFFFFF"><input name="Hits" type="text" id="Hits" value="<%=Hits%>" size="10" maxlength="10">
  140.       <font color='#0000FF'>这功能是提供给管理员操作用。</font></td>
  141.     </tr>
  142.     <tr>
  143.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">信息录入时间:</td>
  144.       <td bgcolor="#FFFFFF"><input name="UpdateType" type="radio" value="0" <%If UpdateType= 0 Then Response.write "checked"%> >当前时间
  145.        &nbsp;<input name="UpdateType" type="radio" value="1" <%If UpdateType=1 Then Response.write "checked"%> >标签中的时间
  146.        &nbsp;<input name="UpdateType" type="radio" value="2" <%If UpdateType= 2 Then Response.write "checked"%> >自定义:
  147.        <input name="UpdateTime" type="text" value="<%=UpdateTime%>">
  148.        </td>
  149.     </tr>  
  150.     <tr>
  151.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">信息录入:</td>
  152.       <td bgcolor="#FFFFFF"><input name="InputerType" type="radio" value="0" <%If InputerType= 0 Then Response.write "checked"%> >当前用户
  153.        &nbsp;<input name="InputerType" type="radio" value="1" <%If InputerType=1 Then Response.write "checked"%> >指定用户
  154.        <input name="Inputer" type="text" value="<%=Inputer%>">
  155.        </td>
  156.     </tr>
  157.     <tr>
  158.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF">标签过滤:</td>
  159.       <td bgcolor="#FFFFFF">
  160.         <input name="Script_Iframe" type="checkbox" value="yes" <%If Script_Iframe=-1 Then response.write "checked"%> >
  161.         Iframe
  162.         <input name="Script_Object" type="checkbox" value="yes" <%If Script_Object=-1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗?这将删除正文中的所有Object标记,结果将导致该信息中的所有Flash动画被删除!");' >
  163.         Object
  164.         <input name="Script_Script" type="checkbox" value="yes" <%If Script_Script=-1 Then response.write "checked"%> >
  165.         Script
  166.         <input name="Script_Div" type="checkbox"  value="yes" <%If Script_Div=-1 Then response.write "checked"%> >
  167.         Div
  168.         <input name="Script_Class" type="checkbox"  value="yes" <%If Script_Class=-1 Then response.write "checked"%> >
  169.         Class
  170.         <input name="Script_Table" type="checkbox"  value="yes" <%If Script_Table=-1 Then response.write "checked"%> >
  171.         Table
  172.         <input name="Script_Tr" type="checkbox"  value="yes" <%If Script_Tr=-1 Then response.write "checked"%> >
  173.         Tr
  174.         <br>
  175.         <input name="Script_Span" type="checkbox"  value="yes" <%If Script_Span=-1 Then response.write "checked"%> >
  176.         Span&nbsp;&nbsp;
  177.         <input name="Script_Img" type="checkbox" value="yes" <%If Script_Img=-1 Then response.write "checked"%> >
  178.         Img&nbsp;&nbsp;&nbsp;
  179.         <input name="Script_Font" type="checkbox"  value="yes" <%If Script_Font=-1 Then response.write "checked"%> >
  180.         Font&nbsp;&nbsp;
  181.         <input name="Script_A" type="checkbox" value="yes" <%If Script_A=-1 Then response.write "checked"%> >
  182.         A&nbsp;&nbsp;
  183.         <input name="Script_Html" type="checkbox" value="yes" <%If Script_Html=-1 Then response.write "checked"%> onclick='return confirm("确定要选择该标记吗?这将删除正文中的所有Html标记,结果将导致该信息的可阅读性降低!");' >
  184.         Html&nbsp;
  185.         <input name="Script_Td" type="checkbox"  value="yes" <%If Script_Td=-1 Then response.write "checked"%> >
  186.       Td      </td>
  187.     </tr>
  188.     <tr>
  189.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF"> 列表深度:</td>
  190.       <td bgcolor="#FFFFFF">
  191.         <input name="CollecListNum" type="text" id="CollecListNum" value="<%=CollecListNum%>" size="10" maxlength="10">&nbsp;&nbsp;&nbsp;
  192.           <font color='#0000FF'>0为所有的列表</font></td>
  193.     </tr>
  194.     <tr>
  195.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF"> 信息数量:</td>
  196.       <td bgcolor="#FFFFFF">
  197.         <input name="CollecnewsNum" type="text" id="CollecnewsNum" value="<%=CollecnewsNum%>" size="10" maxlength="10">&nbsp;&nbsp;&nbsp;
  198.           <font color='#0000FF'>0为所有的信息<span lang="en-us">(</span>每一列表的信息限制数量<span lang="en-us">)</span></font></td>
  199.     </tr>
  200.     <tr>
  201.       <td width="20%" height="30" align="right" bgcolor="#FFFFFF"> 采集选项:</td>
  202.       <td bgcolor="#FFFFFF">        <input name="SaveFiles" type="checkbox" value="yes" <%if SaveFiles=-1 then response.write "checked"%> <%If IsObjInstalled("Scripting.FileSystemObject")=False Then Response.Write "disabled"%> >
  203.         保存图片
  204.         <input name="CollecOrder" type="checkbox" value="yes" <%if CollecOrder=-1 then response.write "checked"%> >
  205.       倒序采集      </td>
  206.     </tr>
  207.     <tr>
  208.     <td width="20%" height="30" align="right" bgcolor="#FFFFFF"></td>
  209.     <td bgcolor="#FFFFFF" align-"center"><input name="button1" type="button" class="submit1" id="Cancel" onClick="window.location.href='javascript:history.go(-1)'" value=" 上&nbsp;一&nbsp;步 ">
  210.        <input type="hidden" value="<%=ItemID%>" name="ItemID">        
  211.        <input name="submit" type="submit" class="submit1" value=" 完&nbsp;&nbsp;成 "></td>
  212.     </tr>              
  213. </form>        
  214. </table>              
  215. </body>        
  216. </html>
  217. <%End Sub%>
  218. <%
  219. Sub GetTest()
  220.    SqlItem="Select * from Item Where ItemID=" & ItemID
  221.    Set RsItem=server.CreateObject("adodb.recordset")
  222.    RsItem.Open SqlItem,ConnItem,1,1
  223.    If  RsItem.Eof  And  RsItem.Bof  Then
  224.       FoundErr=True
  225.       ErrMsg=ErrMsg & "<br><br><li>参数错误,找不到该项目</li>"
  226.    Else
  227.       ItemName=RsItem("ItemName")
  228.           ChannelID=RsItem("ChannelID")    
  229.       ClassID=RsItem("ClassID")
  230.       PaginationType=RsItem("PaginationType")
  231.       MaxCharPerPage=RsItem("MaxCharPerPage")
  232.       ReadLevel=RsItem("ReadLevel")
  233.       Stars=RsItem("Stars")
  234.       ReadPoint=RsItem("ReadPoint")
  235.       Hits=RsItem("Hits")
  236.       UpdateType=RsItem("UpdateType")
  237.       UpdateTime=RsItem("UpdateTime")
  238.       IncludePicYn=RsItem("IncludePicYn")
  239.       DefaultPicYn=RsItem("DefaultPicYn")
  240.       OnTop=RsItem("OnTop")
  241.       Elite=RsItem("Elite")
  242.       Hot=RsItem("Hot")
  243.       SkinID=RsItem("SkinID")
  244.       TemplateID=RsItem("TemplateID")
  245.       Script_Iframe=RsItem("Script_Iframe")
  246.       Script_Object=RsItem("Script_Object")
  247.       Script_Script=RsItem("Script_Script")
  248.       Script_Div=RsItem("Script_Div")
  249.       Script_Class=RsItem("Script_Class")
  250.       Script_Span=RsItem("Script_Span")
  251.       Script_Img=RsItem("Script_Img")
  252.       Script_Font=RsItem("Script_Font")
  253.       Script_A=RsItem("Script_A")
  254.       Script_Html=RsItem("Script_Html")
  255.       Passed=RsItem("Passed")
  256.       SaveFiles=RsItem("SaveFiles")
  257.       CollecOrder=RsItem("CollecOrder")
  258.       LinkUrlYn=RsItem("LinkUrlYn")
  259.       CollecListNum=RsItem("CollecListNum")
  260.       CollecnewsNum=RsItem("CollecnewsNum")
  261.       InputerType=RsItem("InputerType")
  262.       Inputer=RsItem("Inputer")
  263.       EditorType=RsItem("EditorType")
  264.       Editor=RsItem("Editor")
  265.       ShowCommentLink=RsItem("ShowCommentLink")
  266.       Script_Table=RsItem("Script_Table")
  267.       Script_Tr=RsItem("Script_Tr")
  268.       Script_Td=RsItem("Script_Td")
  269.    End  If
  270.    RsItem.Close
  271.    Set RsItem=Nothing
  272. End  Sub
  273. %>
  274.  <script language="javascript">
  275.     changelocation(document.myform.infoChannelID.options[document.myform.infoChannelID.selectedIndex].value);
  276. </script>
downloadAdmin_ItemAttribute.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