<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Head.asp"-->
<% 
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="update news set [Hits] = Hits+1 Where [News_ID]="&checkstr(cstr(Request("id")))
conn.execute sql
sql="Select * From [News] Where [News_ID]="&checkstr(cstr(Request("id")))
rs.Open sql,conn,1,1
If rs.eof and rs.bof then
response.Write "<center><br><br>数据库出错</center>"
Else
sqlstr = " Select * From [About_Manage] "
If Request.QueryString("tit")<>"" Then
sqlstr = sqlstr & " Where [ManageType]='"&checkstr(Request.QueryString("tit"))&"' Order By [InfoTime] desc"
Else
Sqlstr = sqlstr & " Where [ManageType]='"&Trim(first)&"' Order By [InfoTime] desc"
End If 
ab = Conn.Execute (sqlstr)
Dim ShowHtml
ShowHtml=application("JaShowNews")
ShowHtml=Replace(ShowHtml,"{用户登陆}",UserLogin())
ShowHtml=Replace(ShowHtml,"{用户搜索}",FindProd()) 
ShowHtml=Replace(ShowHtml,"{最新新闻}",TopNews("News_ID"))
ShowHtml=Replace(ShowHtml,"{用户投票}",ShowVote())
ShowHtml=Replace(ShowHtml,"{大分类}",rs("News_BigClassName"))
ShowHtml=Replace(ShowHtml,"{小分类}",rs("News_SmallClassName"))
ShowHtml=Replace(ShowHtml,"{新闻标题}",rs("Titel"))
ShowHtml=Replace(ShowHtml,"{新闻时间}",rs("InfoTime"))
ShowHtml=Replace(ShowHtml,"{阅读次数}",rs("Hits"))
ShowHtml=Replace(ShowHtml,"{新闻内容}",rs("Content"))
Response.Write ShowHtml
rs.close
set rs=nothing
End if%>
<!--#Include File="bottom.Asp"-->