开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > .net编程 > 查看源码
class.asp
资源名称：ASP.RAR　[点击查看]
上传用户：xhjd888
上传日期：2022-07-20
资源大小：203k
文件大小：3k
源码类别：

.net编程

开发平台：

Visual Basic

class.asp：源码内容
  2. <!--#include file="ocdb/ocdb.asp"-->
  4. <%
  5. response.buffer=true
  6. %>
  7. <html>
  8. <head>
  9. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  10. <title>无标题文档</title>
  11. <link href="style/main.css" rel="stylesheet" type="text/css">
  12. <link href="style/scrollbar.css" rel="stylesheet" type="text/css">
  15. <style type="text/css">
  16. <!--
  17. .1 {
  18. font-weight: 200;
  19. color: #FF0000;
  20. font-family: "宋体";
  21. font-size: 12px;
  22. background-color: #000000;
  23. }
  24. .STYLE1 {color: #FF0000}
  25. -->
  26. </style>
  27. </head>
  29. <body>
  30. <table width="100%" border="0" cellpadding="0" cellspacing="0" class="tab01">
  31.   <tr>
  32.     <td class="tab02"> 
  33.       <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  34.         <tr> 
  35.           <td width="1%" height="27" background="images/index_38.gif">&nbsp;</td>
  36.           <td width="99%" valign="bottom" background="images/index_38.gif" class="font01"><font color="#FFFF00">·</font>增加栏目</td>
  37.         </tr>
  38.         <tr> 
  39.           <td colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="tab03">
  40.               <tr>
  41.                 <td>
  42. <table width="100%" border="0" cellpadding="3" cellspacing="1">
  43.                     <tr> 
  44.                       <td colspan="2" align="center" bgcolor="#DFE7EE"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
  45.                         <tr>
  46.                           <td height="30" style="line-height:150%"><span class="STYLE1">提示：不选择栏目分类的时候添加的是一级栏目！ <a href="http://www.bbkan8.cn">比比看制作</a> </span></td>
  47.                         </tr>
  48.                       </table></td>
  49.                     </tr> 
  50.  <form method="post" action="class_add.asp?action=add&csubname=0">
  51.                     <tr> 
  52.                       <td width="40%" height="10" align="center" bgcolor="#DFE7EE">添加栏目名称：</td>
  53.                       <td width="40%" align="center" bgcolor="#DFE7EE"><input type="text" name="cname"></td>
  54.                     </tr>
  55.                     <tr>
  56.                       <td height="11" align="center" bgcolor="#DFE7EE">选择栏目分类：</td>
  57.                       <td width="40%" align="center" bgcolor="#DFE7EE">
  58.  <select name="lanmu" id="lanmu">
  59.                         <option<%if request("submenu")="" then%> selected<%end if%> value="">请选择栏目</option>
  60.   <%
  61. xiayou="├"
  62. you="└"
  63. xia="│"
  64. 'set rs1=conn.execute("select top 1 * from class order by cwar")
  65. 'maxjibie=rs1("cwar")
  67. sql2="select * from class order by csub,lmcd"
  68. set rs2=server.CreateObject("adodb.recordset")
  69. rs2.open sql2,conn,1,3
  70. while not rs2.eof
  72. if rs2("cwar")=0 then
  73. jibie=""
  74. else
  75. jibie=you
  76. for i=1 to rs2("cwar")-1
  77. jibie=xia&jibie
  78. next
  79. end if
  80. %>
  82. <option<%if rs2("cwar")=0 then%> style="color:#FF0000"<%end if%> value="<%=rs2("id")%>"<%if int(request("submenu"))=int(rs2("id")) then%> selected<%end if%>><%=jibie%><%=rs2("cname")%></option>
  83. <%
  84. rs2.movenext
  85. wend
  86. rs2.close
  87. set rs2=nothing
  88. %>
  89. </select></td>
  90.                     </tr>
  91.                     <tr> 
  92.                       <td height="22" colspan="2" align="center" bgcolor="#DFE7EE"><input type="submit" name="Submit" value="提交"></td>
  93.                     </tr></form>
  94.                   </table></td>
  95.               </tr>
  96.             </table></td>
  97.         </tr>
  98.     </table></td>
  99.   </tr>
  100. </table>
  101. </body>
  102. </html>