<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<%
If Request.QueryString("tit")="" Then
Response.Redirect "News.asp"
End if
Function PoNews()
Dim PoNhtml
Set big=Conn.Execute("Select * From [BigClassNews]")
If big.Eof Then
PoNhtml=PoNhtml& "没有该类别!"
Else
Do While Not big.Eof
PoNhtml=PoNhtml& "<img src='ziyan/folder.gif'> <a href=TNews.asp?tit=" &big("News_BigClassName")& ">" &big("News_BigClassName")& "</a><br>"
Set rsSmallClass=Conn.Execute("Select * From SmallClassNews Where News_BigClassName='" & big("News_BigClassName") & "' ")
do while not rsSmallClass.eof
PoNhtml = PoNhtml & "<img src='ziyan/page.gif'> <a href=TNews.asp?tit="&big("News_BigClassName")&"&ttit="&rsSmallClass("News_SmallClassName")&">"&rsSmallClass("News_SmallClassName") & "</a><br>"
rsSmallClass.movenext
loop	
big.MoveNext
Loop
End if
PoNews= PoNhtml
End Function
Dim Usite 
Usite=Request.QueryString("tit")
If Request.QueryString("ttit") <> "" Then Usite=Usite & " → " & Request.QueryString("ttit")
Function Lnews()
Dim LnewsH
Set bb=Conn.Execute("Select * From [SmallClassNews] Where [News_BigClassName]='"&checkstr(Request.QueryString("tit"))&"' ")
tt = bb("News_SmallClassName")
sqlstr = " Select * From [News] Where "
If Request.QueryString("tit")<>"" and Request.QueryString("ttit")<>"" Then 
sqlstr =sqlstr & " [News_SmallClassName]='"&checkstr(Request.QueryString("ttit"))&"' and [News_BigClassName]='"&checkstr(Request.QueryString("tit"))&"' Order By News_ID desc"
Else
If Request.QueryString("tit")<>"" Then
sqlstr = sqlstr & " [News_SmallClassName]='"&tt&"' Order By News_ID desc"
End if
End if
Set nn=Server.CreateObject("ADODB.RecordSet")
nn.Open sqlstr,conn,1,1
If Not nn.Eof Then
Do until nn.Eof
ti = nn("Titel")
If Len(ti)>30 Then ti = Left(ti,30) & "..."
LnewsH= LnewsH & "<table width=100% border=0 cellspacing=0 cellpadding=2><tr><td><img src='Image/article_common.gif' width='9' height='15'> "
LnewsH= LnewsH & "<a href=ShowNews.asp?id=" &nn("News_ID")& ">" &ti& "</a>"
LnewsH= LnewsH & "(" &nn("InfoTime")& "," &nn("Hits")& ")"
LnewsH= LnewsH & "</td></tr></table>"
nn.MoveNext
Loop
End if
Lnews=LnewsH
End Function 
Dim Tdnews
Tdnews=application("JaTNews")
Tdnews=Replace(Tdnews,"{用户登陆}",UserLogin())
Tdnews=Replace(Tdnews,"{用户搜索}",FindProd())
Tdnews=replace(Tdnews,"{新闻信息}",TopNews("News_ID"))
Tdnews=Replace(Tdnews,"{用户位置}",Usite)
Tdnews=Replace(Tdnews,"{新闻分类}",PoNews())
Tdnews=Replace(Tdnews,"{新闻列表}",Lnews())
Tdnews=Replace(Tdnews,"{用户投票}",ShowVote())
Response.Write Tdnews
%>
<!--#Include File="bottom.Asp"-->