<%=WebLocation()%>
<%=WebContent("Qianbo_ProductSort",request.QueryString("SortID"),"")%>
<%=content%> |
% 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 = "公司产品" hang = 3 lei = 5 kuan = 170 id = "ProductList.Asp" ElseIf Not IsNumeric(request.QueryString("SortID")) Then SeoTitle = "参数错误" ElseIf conn.Execute("select * from Qianbo_ProductSort Where ViewFlag and ID="&request.QueryString("SortID")).EOF Then SeoTitle = "参数错误" 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("Title") keywords = rs("keywords") Descriptions = rs("descriptions") hang = rs("hang") lei = rs("lei") kuan = rs("kuan") gao = rs("gao") content = rs("content") id = "ProductList.Asp?SortID="&rs("ID")&"" rs.Close Set rs = Nothing End If %>
<%=WebLocation()%>
<%=WebContent("Qianbo_ProductSort",request.QueryString("SortID"),"")%>
<%=content%> |