<% 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 = QianboLanguageTxt226 ClassSeo = ProSortName & SystemClassDiy ElseIf Not IsNumeric(Request.QueryString("SortID")) Then SeoTitle = QianboLanguageTxt16 ElseIf conn.Execute("Select * From Qianbo_ProductSort Where " & ViewFlag & " And ID = " & Request.QueryString("SortID")).EOF Then SeoTitle = QianboLanguageTxt16 Else Set rs = server.CreateObject("Adodb.Recordset") sql = "Select * From Qianbo_ProductSort Where " & ViewFlag & " And ID = " & Request.QueryString("SortID") rs.Open sql, conn, 1, 1 SeoTitle = rs("SortName" & Language) Keywords = rs("SeoKeywords" & Language) Descriptions = rs("SeoDescription" & Language) ClassSeo = rs("ClassSeo") rs.Close Set rs = Nothing End If %> <%=SeoTitle%> - <%=SiteTitle%>