<%@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
%>
深圳市羚通国际货运代理有限公司
