 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@LANGUAGE="VBSCRIPT"%> <!--数据库表 if exists (select * from dbo.sysobjects where id = object_id(N\\\'[dbo].[Cat]\\\') and OBJECTPROPERTY(id, N\\\'IsUserTable\\\') = 1) drop table [dbo].[Cat] GO CREATE TABLE [dbo].[Cat] ( [Cat_Id] [int] IDENTITY (1, 1) NOT NULL , [Cat_Name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [Cat_Parent] [int] NULL ) ON [PRIMARY] GO --> <% MM_v2boy_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=d:nsort.mdb" Dim rsCat__MMColParam rsCat__MMColParam = "1" if (Request.QueryString("Cat_Parent") <> "") then rsCat__MMColParam = Request.QueryString("Cat_Parent")(1) \\\'response.write request.querystring & "<hr>" & rsCat__MMColParam \\\'response.end %> <% set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_v2boy_STRING rsCat.Source = "SELECT Cat_Id, Cat_Name, Cat_Parent FROM Cat WHERE Cat_Parent = " + Replace(rsCat__MMColParam, "\\\'", "\\\'\\\'") + "" rsCat.CursorType = 0 rsCat.CursorLocation = 2 rsCat.LockType = 3 rsCat.Open() rsCat_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsCat_numRows = rsCat_numRows + Repeat1__numRows %> <html> <head> <title>Îĵµ×ÊÁÏ</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body bgcolor="#FFFFFF" text="#000000"> <% dim request_all IF request.querystring <> "" then request_all = "&" & request.querystring %> <table width="100%" border="0" cellspacing="1" cellpadding="4"> <tr> <td><a href="data.asp">Îĵµ×ÊÁÏ</a> <% dim i,j,h j = Request.QueryString("Cat_Parent").Count For i = 1 to j \\\'For i = j to 1 step -1 response.write "<a href=data.asp?" for h = (j - i + 1) to j \\\'for h = j to (j - i + 1) step -1 Response.Write "Cat_Parent=" & Request.QueryString("Cat_Parent")(h) & "&Cat_Name=" & Request.QueryString("Cat_Name")(h) if h <> j then response.write("&") end if Next \\\'response.write "<br>" response.write ">" & Request.QueryString("Cat_Name")(j-i+1) & "</a> " Next response.write "<br>" While ((Repeat1__numRows <> 0) AND (NOT rsCat.EOF)) %> <% If Not rsCat.EOF Or Not rsCat.BOF Then %> <a href="data.asp?Cat_Parent=<%=(rsCat.Fields.Item("Cat_Id").Value)%>&Cat_Name=<%=(rsCat.Fields.Item("Cat_Name").Value)%><%=request_all%>"><%=(rsCat.Fields.Item("Cat_Name").Value)%></a> <% End If \\\' end Not rsCat.EOF Or NOT rsCat.BOF %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsCat.MoveNext() Wend %> </td> </tr> </table> </body> </html> <% rsCat.Close() %> 返回类别: 教程 上一教程: 用ASP随机生成文件名的函数 下一教程: DIRECTORY类创建文件夹、删除文件夹 您可以阅读与"无需数据库循环的无级分类代码"相关的教程: · ASP数据库访问代码自动产生工具-ASPRUNNER · 用纯ASP代码实现图片上传并存入数据库中 · ASP中各种数据库连接代码 · 用VB生成DLL封装ASP代码，连接数据库 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
