%option explicit call conn_open() dim newscid newscid=trim(request.QueryString("c")) if newscid="" or not isnumeric(newscid) then newscid=1 '默认显示的栏目ID '读取新闻分类的标题 dim newscname,bigname sql="select nc_name_s,nb_name_s from news_class,news_bigclass where news_bigclass.nb_id=news_class.nb_id and nc_id="&newscid rs.open sql,conn,1,1 if rs.eof then call To404() newscname=rs("nc_name_s") bigname=rs("nb_name_s") rs.close %>