<%
'**************************************
'* 最后更新 2013-08-03 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Redim NewsInfoValue(5)
Redim NewsInfoProductValue(1)
If show_html = 0 Or InStr(LCase(Request.ServerVariables("URL")),"news/list/")>0 Or InStr(LCase(Request.ServerVariables("URL")),"zhuanti.asp")>0 Then
		If IsDiy <> "1" Then
				Id = request("id")
				page = request("page")
		End If
End If
id = checknum(id,0)
page = checknum(page,1)
Showpath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → <a href='"& Eshop_url & url_7 &"'>"& Lebi_word(18) &"</a>"
Set Rs = conn.execute("select title"& LangTxt &",classid,webhead"& LangTxt &",n_skin,strcolor,sources,infotime,hits,content"& LangTxt &",n_product,n_linenum from [Lebi_news] where id="& Id &"")
If Not rs.eof Then
		If rs(3)<>"" And Request.QueryString<>"" And InStr(LCase(Request.ServerVariables("URL")),"_html_news_list")=0 Then
				Response.Redirect Eshop_url & LangPath &"news/list/"& id &"/"
				Response.End()
		End If
		If show_html = 0 Then
				conn.execute("update [Lebi_news] set hits = hits + 1 where id="& id &"")
		End If
        classid = rs(1)
		If InStr(rs(2),"$$$")> 0 Then 
				If Split(rs(2),"$$$")(0)<>"" Then
						strwebtitle=Split(rs(2),"$$$")(0) &"-"
				Else
						strwebtitle=rs(0) &"-"
				End If
				If Split(rs(2),"$$$")(1)<>"" Then
						keywords=Split(rs(2),"$$$")(1)
				End If
				If Split(rs(2),"$$$")(2)<>"" Then
						description=Split(rs(2),"$$$")(2)
				End If
		Else
				strwebtitle=rs(0) &"-"
		End If 
		arr_category = Split(rs(1),",")
		For category_i = 0 To UBound(arr_category)
				categoryid = checknum(arr_category(category_i),0)
				Dim Rscategory
				set Rscategory = conn.execute("select classname"& LangTxt &",classid,n_foldername,n_filename from [Lebi_newsclass] where classid = "& categoryid &" and parentid = 0")
				If Not Rscategory.eof Then
						Select Case show_html
							   Case "0"
									Select Case ISAPI_Rewrite
										   Case "0"
												Select Case Config_Lebi_Eshop(16)
													   Case "0" : ShowPath = ShowPath & " → <a href="""& LangPath &"zhuanti.asp?action=news_class&classid="& Rscategory(1) &""">"& Rscategory(0) &"</a>"
													   Case "1" : ShowPath = ShowPath & " → <a href="""& Eshop_url & LangPath & "news/"& Rscategory(3) &"/"">"& Rscategory(0) &"</a>"
													   Case "2" : ShowPath = ShowPath & " → <a href="""& Eshop_url & LangPath & "news/"& Rscategory(3) &"/default.asp"">"& Rscategory(0) &"</a>"
												End Select
										   Case "1" ShowPath = ShowPath & " → <a href="""& Eshop_url & LangPath &"news_class-"& Rscategory(1) &".html"">"& Rscategory(0) &"</a>"
									End Select
							   Case "1" : ShowPath = ShowPath & " → <a href="""& Eshop_url & LangPath & Folder(1) & Rscategory(3) &".1."& Sys_Ext &""">"& Rscategory(0) &"</a>"
						End Select
				End If
				Rscategory.Close : set Rscategory = nothing
		Next
		Showpath = Showpath &" → "& rs(0)
		NewsInfoValue(0) = rs(0)
		NewsInfoValue(1) = rs(4)
		NewsInfoValue(2) = rs(5)
		NewsInfoValue(3) = rs(6)
		Select Case show_html
               Case "1" NewsInfoValue(4) = "<script src="""& Eshop_url &"include/Lebi_Html/news.asp?do=info&type=view&id="& id &"""></script>"
               Case "0" NewsInfoValue(4) = rs(7)
		End Select
		Select Case Config_Lebi_Eshop(18)
			   Case "0" NewsInfoValue(5) = rs(8)
			   Case "1" NewsInfoValue(5) = NewsContentPage(rs(8),Config_Lebi_Eshop(20),page)
		End Select
		NewsInfoProductValue(0) = rs(9)
		NewsInfoProductValue(1) = rs(10)
End If
rs.close:Set rs=Nothing
%>