<% dim alias,clsid clsid = Request("clsid") & "" if clsid = "" then clsid = 0 end if if not isnumeric(clsid) then clsid =0 alias=Request("alias") if alias="" or alias="交易市场" then '数据合法性判断 alias="" end if dim spage,ssale,sbuy,sproduct,sprovider,smerchant,sinfo,stech ssale = " selected" select case Request("class") & "" case "行业网页" ssale = "" spage = " selected" case "求购信息" sbuy = " selected" case "产品大全" sproduct = " selected" case "企业大全" sprovider = " selected" case "其他商机" smerchant = " selected" case "行业资讯" sinfo = " selected" case "技术文章" stech = " selected" case else end select %>