<!--#include file="include/conn.asp"-->
<%If action="hits" Then%>
<%
Dim vhits,vwhits
Set vhits= oConn.Execute("SELECT top 1 Phits FROM [LstNewsInfo] where Id ="&Id)
If vhits.bof And vhits.eof Then
	vwhits = 0
Else 
	vwhits = vhits(0)
End If
oConn.Execute("UPDATE [LstNewsInfo] SET Phits = Phits +1 where Id ="&Id)
%>
document.write('<span class="fmoney"><%=vwhits%></span> 位游客关注');
<%End If%>

<%If action="ding" Then%>
<%
Dim vhits2,vwhits2,vwhits3,vwhits4

Set vwhits3= oConn.Execute("SELECT top 1 Pohits FROM [LstNewsInfo] where Id ="&Id)
If vwhits3.bof And vwhits3.eof Then
	vwhits4 = 0
Else 
	vwhits4 = vwhits3(0)
End If
Set vhits2 = oConn.Execute("SELECT COUNT(ID) as ID FROM [LstOrder] where NewsId ="&Id)
vwhits2 = vhits2(0)
%>
document.write('<span class="fmoney"><%=vwhits2+vwhits4%></span> 位客人预订');
<%End If%>