b2b_righttop_bj.asp

小型网上购物网站

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.putlist {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #FFFFFF;
	background-color: #ff6600;
	border: 0px none #D4D0C8;
	line-height: 25px;
}
-->
</style>
<table align="left" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><select name="state" onchange="var jmpURL=this.options[this.selectedIndex].value ; if(jmpURL!='') {window.location=jmpURL;} else {this.selectedIndex=0 ;}">
      <option value="-1" selected="selected" >选择商品分类</option>
      <%
sort(0)
dim ii
ii=0
sub sort(selec)
	sql="select * from category where ParentID = "&selec&" order by categoryorder"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof
if selec=0 then
%>
      <option value="b2b_tjbj.asp?catid=<%=int(rs1("categoryid"))%>" <% if int(rs1("categoryid"))="&CID&" Then Response.write("Selected") %>><%=rs1("category")%></option>
      <%
else
%>
      <%
end if
ii=ii+1
	sort rs1("categoryid")
ii=ii-1
	rs1.movenext
	loop
rs1.close
Set Rs1 = Nothing
end sub

%>
    </select></td>
  </tr>
</table>