<%@language=vbscript codepage=936 %> <% Option Explicit '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有 '************************************************************** '强制浏览器重新访问服务器下载页面，而不是从缓存读取页面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Dim ChannelID, ArticleID, sql, rs, Hits, ShowType, Action %> <% ChannelID = 1008 %> <% Call OpenConn ArticleID = PE_CLng(Trim(request("ArticleID"))) ShowType = PE_CLng1(Trim(request("ShowType"))) Action = Trim(request("Action")) If Action = "Count" Then Set rs = Conn.Execute("select sum(Hits) from PE_Article where ChannelID=" & ChannelID) If IsNull(rs(0)) Then Hits = 0 Else Hits = rs(0) End If rs.Close Set rs = Nothing Else If ArticleID = 0 Then Hits = 0 Else sql = "select Hits from PE_Article where Deleted=" & PE_False & " and Status=3 and ArticleID=" & ArticleID & " and ChannelID=" & ChannelID & "" Set rs = server.CreateObject("ADODB.recordset") rs.open sql, Conn, 1, 3 If rs.bof And rs.EOF Then Hits = 0 Else Hits = rs(0) + 1 rs(0) = Hits rs.Update End If rs.Close Set rs = Nothing End If End If Select Case ShowType Case 0 Case 1 Response.Write "document.write('" & Hits & "');" End Select Call CloseConn %>