<%
db_Cate = 1
db_cateTitle = getCateInfo(db_Cate,"title")
sideLink = "productList.asp"
ID = Trim(Request("ID"))
if ID="" or isNull(ID) or not isNumeric(ID) then
Response.Write("")
Response.End()
end if
proSQL = "Select [ProductInfo].*,[CateInfo].Title As [CateTitle] From [ProductInfo] inner join [CateInfo] on [ProductInfo].[Cate]=[CateInfo].[ID] Where [ProductInfo].[LanID]='"&LanID&"' And [ProductInfo].[Locked]='0' And [ProductInfo].[ID]=" & ID
set proRs = conn.Execute(proSQL)
if not(proRs.bof and proRs.eof) then
proTitle = proRs("Title")
proCateTitle = proRs("CateTitle")
proCate = proRs("Cate")
if proCate <> 1 then
States = "你所在位置：首页 > "&db_cateTitle&" > " & proCateTitle
else
States = "你所在位置：首页 > " & db_cateTitle
end if
proPicturesSQl = "select [Pictures],[BPictures] from [productPictures] where [productId]=" & ID
set proPicRs = conn.Execute(proPicturesSQl)
if not(proPicRs.bof and proPicRs.eof) then
proPictures = proPicRs("Pictures")
proBPictures = proPicRs("BPictures")
end if
proPictures = isHttp(proPictures)
proBPictures = isHttp(proBPictures)
proContent = proRs("Content")
proContent = contentPage(proContent,"productDetail.asp?ID=" & ID)
if proBPictures<>"" and not isNull(proBPictures) and proBPictures<>proPictures then
proContent = "" & chr(13) & "" & proContent & "
" & chr(13)
else
proContent = "" & proContent & "
" & chr(13)
end if
else
Response.Write("")
Response.End()
end if
set proRs = nothing
cate = proCate
%>