% Dim cate__bh cate__bh = "cjd" If (Request.QueryString("cate") <> "") Then cate__bh = Request.QueryString("cate") End If %> <% cate.Source = "SELECT 一级分类名称, 一级分类编号, 介绍 FROM dbo.色谱柱产品一级分类 with (nolock) WHERE 一级分类编号='" + Replace(cate__bh, "'", "''") + "'" %> <% If Not cate.EOF Or Not cate.BOF Then %> <% mingcheng= (cate.Fields.Item("一级分类名称").Value) jieshao = (cate.Fields.Item("介绍").Value) cpType = "A" '气相毛细 %> <% yjfl = mingcheng select case true '默认状态为气相毛细管色谱柱,在此处不判断 case yjfl = "液相色谱柱" response.Redirect("/product/HPLC/cateA/" & Request.QueryString("cate") & "/0.html") case yjfl = "气相填充色谱柱" response.Redirect("/product/packed/cateA/" & Request.QueryString("cate") & ".html") case yjfl = "色谱仪器" response.Redirect("/product/instrument/cateA/" & Request.QueryString("cate") & ".html") end select %> <% End If ' end Not cate.EOF Or NOT cate.BOF %> <% Dim spzlx__fll spzlx__fll = "0" If (cpType <> "") Then spzlx__fll = cpType End If %> <% spzlx.Source = "SELECT 色谱柱产品类别, 类别编号 FROM dbo.色谱柱产品类别 with (nolock) WHERE 分类='" + Replace(spzlx__fll, "'", "''") + "' ORDER BY 色谱柱产品类别 asc" %> <% Dim pp__ddA pp__ddA = "0" If (cpType <> "") Then pp__ddA = cpType End If %> <% pp.Source = "SELECT 品牌名称, 品牌编号 FROM dbo.品牌 with (nolock) WHERE 类别='" + Replace(pp__ddA, "'", "''") + "' and 品牌是否审核='Y' ORDER BY 品牌名称 asc" %> <% jixin.Source = "SELECT 极性分类名称, 极性分类编号 FROM dbo.极性分类 with (nolock) ORDER BY 极性分类名称 asc" %> <% lhcjd.Source = "SELECT 色谱柱名称, 色谱柱编号,色谱柱厂家 FROM dbo.色谱柱 with (nolock) WHERE 所属一级分类='" + Replace(lhcjd__jx, "'", "''") + "' and 是否审核='Y' ORDER BY 色谱柱名称 asc" %>
气相色谱柱(毛细管)
按色谱柱类型查看 |
|
按美国药典USP对照查看 |
按字母先后顺序查看 | ||||||||||||||