用户名:
密 码:
 
<% sid = request("id") if sid = "" then sid ="16" end if dim ParentID,File ParentID = 6 Set rst2=server.CreateObject("adodb.recordset") strSql2="SELECT * FROM AdminMenu where ParentID="&ParentID&" order by SortNum ASC " rst2.open strSQL2,conn,1,1 if rst2.recordcount>0 then result=rst2.recordcount For i=1 to result File = Split(rst2("AdminMenuFile"),"=") fid = File(1) %> <% ' if fid = bid then ' bg="Images/company/menubg1.gif" ' else ' bg="Images/company/menubg2.gif" ' end if %> <% rst2.MoveNext Next end if rst2.close %>
" class="bg01">
   新品展示
<% Response.Write FH.GetViewMsg(sid,"MsgContent") CloseAll %>