<% Call SiteInfo if ISHTML = 1 then Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" End If if request.QueryString("SortID")="" then SeoTitle=LiangjingCMSChLanguage141 ClassSeo=NewSortName elseif not IsNumeric(request.QueryString("SortID")) then SeoTitle=LiangjingCMSChLanguage16 elseif conn.execute("select * from LiangjingCMS_NewsSort Where "&ViewFlag&" and ID="&request.QueryString("SortID")).eof then SeoTitle=LiangjingCMSChLanguage16 else set rs = server.createobject("adodb.recordset") sql="select * from LiangjingCMS_NewsSort where "&ViewFlag&" and ID="&request.QueryString("SortID") rs.open sql,conn,1,1 SeoTitle=rs("SortName"&Language) ClassSeo=rs("ClassSeo") rs.close set rs=nothing end if %> <% =SeoTitle&"-"&ClassSeo %>

<%=LiangjingCMSNewsLWebLocation("LiangjingCMS_NewsSort","Newsurl_","Newsname")%>

<%=LiangjingCMSNewsLWebContent("LiangjingCMS_NewsSort",request.QueryString("SortID"),"","LiangjingCMS_News","Newsurl_")%>