product_form1.asp.bak

用ASP写的电子购物系统

<% REM ######################################################################### %>
<% REM                                                                           %>
<% REM   PRODUCT_FORM1.ASP                                                       %>
<% REM                                                            %>
<% REM   EPRO E-Commerce Solution 1.0                                            %>
<% REM   Copyright (c) 1999-2000 EPRO(GUANGZHOU) Co,Ltd.  All rights reserved.   %>
<% REM                                                                           %>
<% REM ######################################################################### %>


<table border=0 width=128 bgcolor="#EEFFEE" cellpadding=2 cellspacing=0>
                          <tbody> 
                          <tr> 
                            <td width=128 colspan="3" bgcolor="#fbe691" align="center"> 
                              <img src="newimages/ss1.gif" width="91" height="20"></td>
                          </tr>
                          <tr> 
                            <td align=middle colspan=3 width="128" bgcolor="#EEFFEE"> 
                              <form method=post>
                    <select NAME="level_id">
							<option value="0">所有商品</option>
						<%              
							cmdTemp.CommandText = "select * from product_level where parent_id=0 "
							Set rsDept = Server.CreateObject("ADODB.Recordset")
							rsDept.Open cmdTemp, , adOpenKeyset, adLockReadOnly
							If rsDept.RecordCount > 0 Then 
								While Not rsDept.EOF %>
								    <option value="<% = Cstr(rsDept("level_id").Value) %>">
									 <% = rsDept("name").Value %>
									<% rsDept.MoveNext
								Wend
							End If
						%>
						</select>
                                <br>
                                <input 
            name=searchtext size=13>
                                <br>
                                <input name=Submit type=submit value="检 索">
                                <input 
            name=DoQuery type=hidden value=yes>
                                <input name=parent_id 
            type=hidden>
                                <br>
                              </form>
                            </td>
                          </tr>
                          <tr> 
                            <td align=middle colspan=3 width="128" bgcolor="#EEFFEE">&nbsp; 
                            </td>
                          </tr>
                          <tr bgcolor="#EEFFEE"> 
                            <td align=middle colspan=3 width="128"> <br>
                            </td>
                          </tr>
<%					 
    					
		cmdTemp.CommandText = "select * from product_level where parent_id=" & my_id & ""
		Set rsDept = Server.CreateObject("ADODB.Recordset")
		rsDept.Open cmdTemp, , adOpenStatic, adLockReadOnly
					'rsDept.Open cmdTemp, , adOpenKeyset, adLockReadOnly
					
		if rsDept.RecordCount =0 then
		 cmdTemp.CommandText = "select * from product_level where parent_id=" & parent_id 
		rsDept.Close 
		 rsDept.Open cmdTemp, , adOpenStatic, adLockReadOnly
					     'rsDept.Open cmdTemp, , adOpenKeyset, adLockReadOnly
		else
		parent_id=my_id
		end if
%>
                          <tr> 
                            <td  bgcolor="#fbe691" colspan=3 width="128" align="center"><img src="newimages/ss2.gif" width="91" height="20"></td>
                          </tr>
                          <tr bgcolor="#EEFFEE"> 
                            <td colspan=3 width="128"> 
                              <table border=0 cellpadding=2 cellspacing=2 width=130>
                                <tbody> 
		<%If rsDept.RecordCount > 0 Then 
		While Not rsDept.EOF
       %> 
          <tr>
			<td align="middle" width="40"><img src="newimages/biao_1.gif" valign="top"></td>
            <td width="90"><a class="r1" href="product_list_query.asp?parent_id=<% =parent_id %>&amp;my_id=<% =rsDept("level_id").Value %>">
                <% =rsDept("name").Value %></a></td></tr>
				<%
				rsDept.MoveNext
			Wend
			End If
		%>
                                </tbody> 
                              </table>
                            </td>
                          </tr>
                          </tbody> 
                        </table>