无需数据库循环的无级分类代码

&lt;%@language=&quot;vbscript&quot;%&gt;<br>

&lt;!–数据库表<br>

if exists (select * from dbo.sysobjects where id = object_id(n[dbo].[cat]) and objectproperty(id, nisusertable) = 1)<br>

drop table [dbo].[cat]<br>

go<br>

<br>

create table [dbo].[cat] (<br>

&nbsp;&nbsp;&nbsp;&nbsp;[cat_id] [int] identity (1, 1) not null ,<br>

&nbsp;&nbsp;&nbsp;&nbsp;[cat_name] [nvarchar] (50) collate chinese_prc_ci_as null ,<br>

&nbsp;&nbsp;&nbsp;&nbsp;[cat_parent] [int] null <br>

) on [primary]<br>

go<br>

–&gt;<br>

&lt;%<br>

mm_v2boy_string = &quot;driver={microsoft access driver (*.mdb)};dbq=d:\v2boy.mdb&quot;<br>

dim rscat__mmcolparam<br>

rscat__mmcolparam = &quot;1&quot;<br>

if (request.querystring(&quot;cat_parent&quot;)&nbsp;&nbsp;&lt;&gt; &quot;&quot;) then rscat__mmcolparam = request.querystring(&quot;cat_parent&quot;)(1) <br>

response.write request.querystring & &quot;&lt;hr&gt;&quot; & rscat__mmcolparam<br>

response.end<br>

%&gt;<br>

&lt;%<br>

set rscat = server.createobject(&quot;adodb.recordset&quot;)<br>

rscat.activeconnection = mm_v2boy_string<br>

rscat.source = &quot;select cat_id, cat_name, cat_parent&nbsp;&nbsp;from cat&nbsp;&nbsp;where cat_parent = &quot; + replace(rscat__mmcolparam, &quot;&quot;, &quot;&quot;) + &quot;&quot;<br>

rscat.cursortype = 0<br>

rscat.cursorlocation = 2<br>

rscat.locktype = 3<br>

rscat.open()<br>

rscat_numrows = 0<br>

%&gt;<br>

&lt;%<br>

dim repeat1__numrows<br>

repeat1__numrows = -1<br>

dim repeat1__index<br>

repeat1__index = 0<br>

rscat_numrows = rscat_numrows + repeat1__numrows<br>

%&gt;<br>

&lt;html&gt;<br>

&lt;head&gt;<br>

&lt;title&gt;&icirc;&auml;&micro;&micro;×&ecirc;&aacute;&iuml;&lt;/title&gt;<br>

&lt;meta http-equiv=&quot;content-type&quot; content=&quot;text/html; charset=gb2312&quot;&gt;<br>

&lt;/head&gt;<br>

&lt;body bgcolor=&quot;#ffffff&quot; text=&quot;#000000&quot;&gt;<br>

&lt;%<br>

dim request_all<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if request.querystring &lt;&gt; &quot;&quot; then request_all = &quot;&&quot; & request.querystring<br>

%&gt;<br>

&lt;table width=&quot;100%&quot; border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;4&quot;&gt;<br>

&nbsp;&nbsp;&lt;tr&gt; <br>

&nbsp;&nbsp;&nbsp;&nbsp;&lt;td&gt;&lt;a href=&quot;data.asp&quot;&gt;&icirc;&auml;&micro;&micro;×&ecirc;&aacute;&iuml;&lt;/a&gt;<br>

&lt;% <br>

dim i,j,h<br>

j = request.querystring(&quot;cat_parent&quot;).count<br>

&nbsp;&nbsp;&nbsp;for i = 1 to j<br>

&nbsp;&nbsp;&nbsp;for i = j to 1 step -1<br>

&nbsp;&nbsp;&nbsp;response.write &quot;&lt;a href=data.asp?&quot;<br>

&nbsp;&nbsp;&nbsp;for h = (j – i + 1) to j<br>

&nbsp;&nbsp;&nbsp;&nbsp;for h = j to (j – i + 1) step -1<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write &quot;cat_parent=&quot; & request.querystring(&quot;cat_parent&quot;)(h) & &quot;&cat_name=&quot; & request.querystring(&quot;cat_name&quot;)(h)<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if h &lt;&gt; j then<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write(&quot;&&quot;)<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end if<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;next<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write &quot;&lt;br&gt;&quot;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;response.write &quot;&gt;&quot; & request.querystring(&quot;cat_name&quot;)(j-i+1) & &quot;&lt;/a&gt; &quot;<br>

&nbsp;&nbsp;&nbsp;&nbsp;next<br>

<br>

response.write &quot;&lt;br&gt;&quot;<br>

<br>

while ((repeat1__numrows &lt;&gt; 0) and (not rscat.eof)) <br>

%&gt;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;% if not rscat.eof or not rscat.bof then %&gt;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;a href=&quot;data.asp?cat_parent=&lt;%=(rscat.fields.item(&quot;cat_id&quot;).value)%&gt;&cat_name=&lt;%=(rscat.fields.item(&quot;cat_name&quot;).value)%&gt;&lt;%=request_all%&gt;&quot;&gt;&lt;%=(rscat.fields.item(&quot;cat_name&quot;).value)%&gt;&lt;/a&gt; <br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;% end if end not rscat.eof or not rscat.bof %&gt;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;% <br>

&nbsp;&nbsp;repeat1__index=repeat1__index+1<br>

&nbsp;&nbsp;repeat1__numrows=repeat1__numrows-1<br>

&nbsp;&nbsp;rscat.movenext()<br>

wend<br>

%&gt;<br>

&nbsp;&nbsp;&nbsp;&nbsp;&lt;/td&gt;<br>

&nbsp;&nbsp;&lt;/tr&gt;<br>

&lt;/table&gt;<br>

&lt;/body&gt;<br>

&lt;/html&gt;<br>

&lt;%<br>

rscat.close()<br>

%&gt;<br>