%@ CODEPAGE=65001 %> <% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% dim ac,dc 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 ID=request.QueryString("ID") if ID="" or isnull(ID) then ID=1 end if dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from VS_Products where ViewFlag and ID="&ID rs.open sql,conn,1,1 ProductNo = rs("ProductNo") parentID = rs("sortID") SmallPic=rs("SmallPic") ProductName=rs("ProductName") ProductModel = rs("ProductModel") rsID=rs("ID") rsContent=rs("Content") textContent = rs("textContent") csContent = rs("csContent") xxbContent = rs("xxbContent") buyContent = rs("buyContent") sortID=rs("sortID") pdf = rs("pdf") Maker = rs("Maker") SeoKeywords=rs("SeoKeywords") SeoDescription=rs("SeoDescription") Maker=rs("Maker") protect=rs("protect") current=rs("current") dimension=rs("dimension") prosize = rs("prosize") weight = rs("weight") Stock= rs("Stock") Unit= rs("Unit") rs.close strsql="select top 1 * from VS_Products where ProductNo < "&ProductNo&" order by ProductNo desc" rs.Open strsql, conn, 1, 1 if not rs.eof then BackID = rs("id") backName = rs("ProductName") else BackID = 0 end if rs.close strsql="select top 1 * from VS_Products where ProductNo > "&ProductNo&" order by ProductNo" rs.Open strsql, conn, 1, 1 if not rs.eof then NextID = rs("id") NextName = rs("ProductName") else NextID = 0 end if rs.close sql="select top 1 * from VS_ProductSort where id = "&sortID rs.open sql,conn,1,1 SeoTitle = rs("sortname") rs.close set rs=nothing productNames =SeoTitle&"-"&ProductName %>