<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'请尊重作者版权不要删除以下信息
' 程序作者:业一
'  http://yeyi.cn    
'  http://yeyicn.com
' 业一中国 
'--------------------------------------------------
' 承接各类网站制作和系统开发业务
'---------------------------------------------------
%>
<!--#include file="Connections/conn_news.asp" -->
<!--#include file="yns_config.asp" -->
<%
dim hitcounter,CookiesHit
CookiesHit=Request.Cookies("hit")
if CookiesHit = "" Then
   Call CreateCookies
   hitcounter = 1
else
   If DateDiff("n",CookiesHit, Now()) > 1 Then
   hitcounter = 1
   end if
   Call CreateCookies
end if

Sub CreateCookies
   Response.Cookies("hit")=Now()
   Response.Cookies("hit").Expires=date+1
End Sub
%>
<%
if(request.querystring("hit") <> "") then Command1__mmname = request.querystring("hit")
%>
<%
Dim rsn__MMColParam
rsn__MMColParam = "1"
If (Request.QueryString("hit") <> "") Then 
  rsn__MMColParam = Request.QueryString("hit")
End If

Dim rsn
Dim rsn_numRows

Set rsn = Server.CreateObject("ADODB.Recordset")
rsn.ActiveConnection = MM_conn_news_STRING
rsn.Source = "SELECT * FROM t_news WHERE n_fname = '" + Replace(rsn__MMColParam, "'", "''") + "'"
rsn.CursorType = 0
rsn.CursorLocation = 2
rsn.LockType = 2
rsn.Open()
rsn_numRows = 0
rsn("n_hit")= rsn("n_hit") + hitcounter
rsn.UPdate 
%>
document.write('<font color="#990000"><%=(rsn.Fields.Item("n_hit").Value)%></font>');
<%
rsn.Close()
Set rsn = Nothing

%>