<% dim smenu GetDBConnect set srs = server.CreateObject("ADODB.RECORDSET") srs.open "select * from producttype",conn,1,1 if not(srs.eof and srs.bof) then while not srs.eof smenu = smenu&"
  • "&srs("name")&"
  • " srs.movenext wend srs.close set srs = nothing else smenu = "
  • 尚无产品类型
  • " end if %>