%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%Option Explicit%> <% Dim id,by,sortid,title id = CompelCLng(Request.QueryString("id"),0) sortid = CompelCLng(Request.QueryString("sortid"),5) by = Request.QueryString("type") Select Case by Case "job" sortid = 18 title = "人才招聘" Case "platform","download" sortid = 19 title = "人才理念" Case "about" sortid = 5 title = "羚通概况" Case "contact","link" sortid = 5 title = "羚通概况" id = 10 by = "about" Case Else by = Empty title = "服务支持" End Select If id=0 and by<>Empty Then id=GetFieldValue("NewsData","d_Id","ClassId="&sortid&" order by d_Id") If id=0 Then id=2 %>