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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > Jsp/Servlet > 查看源码
class.asp
资源名称：blog.rar　[点击查看]
上传用户：syzzy1975
上传日期：2022-07-17
资源大小：670k
文件大小：2k
源码类别：

Jsp/Servlet

开发平台：

Java

class.asp：源码内容
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <%
  5. %><!--#include file="manage/inc/config.asp"--> 
  6. <!--#include file="inc/conn.asp"--> 
  9. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  10. <html>
  11. <head>
  12. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  13. <title>406网络书店</title>
  14. <link href="style.css" rel="stylesheet" type="text/css">
  15. <style type="text/css">
  16. <!--
  17. .title {font-size:14px;color:#415373;font-weight:bold;}
  18. -->
  19. </style>
  21. </head>
  23. <body>
  24. <!--#include file="head.htm"-->
  27. <table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  28.   <tr>
  29.     <td width="219" align="left" valign="top"><!--#include file="left.asp"--></td>
  30.     <td width="561" align="left" valign="top">
  31.       <br>      <table width="100%" border="0" cellpadding="2" cellspacing="2">
  32.   <%        
  33.   set rs=server.CreateObject("adodb.recordset")
  34.   rs.open "select category,categoryid from category",conn,1,1
  35.   if rs.eof then response.write "对不起！还没有添加任何的分类！"
  36.   do while not rs.eof
  37. %>
  38.     <tr>
  39.           <td>
  40.             <table border="0" cellspacing="0" cellpadding="2">
  41.               <tr>
  42.                 <td><img src="images/w.gif"></td>
  43.                 <td><span class="title"><%=rs("category")%></span></td>
  44.               </tr>
  45.             </table></td>
  46.         </tr>
  47.         <tr>
  48.           <td style="PADDING-LEFT: 30px;">
  49.     <%
  50.    dim rsSub
  51. set rsSub=server.CreateObject("adodb.recordset")
  52. rsSub.open "select sorts,sortsid from sorts where categoryid="&rs("categoryid")&" order by sortsorder",conn,1,1
  53. if rsSub.recordcount=0 then response.Write "对不起！此大类没有添加小类！"
  54. do while not rsSub.eof
  55. response.Write "<a href=sub.asp?aid="&rs("categoryid")&"&nid="&rsSub("sortsid")&">"&trim(rsSub("sorts"))&"</a>  "
  56. 'response.write "<A href=class.asp?aid="&rs("categoryid")&"&nid="&rsSub("sortsid")&">"&trim(rsSub("sorts"))&"</A> | " 
  57.              rsSub.movenext
  58.  loop
  59.  rsSub.close
  60.  set rsSub=nothing
  61. %>  
  62.       </td>
  63.         </tr>
  64.   <%
  65.              rs.movenext
  66.  loop
  67.  rs.close
  68.  set rs=nothing
  69. %>
  70.         <tr>
  71.           <td>&nbsp;</td>
  72.         </tr>
  73.       </table>      <br>      </td>
  74.   </tr>
  75. </table>
  77. <!--#include file="foot.htm"-->
  78. </body>
  79. </html>