<%
Dim ID
ID = Request("ID") ' 文章编号
If IsNumeric(ID) and len(ID) > 0 and len(ID) < 10 Then
Dim Plus
Set Plus = New Cls_Plus
Plus.Open("count") ' 打开配置文件
If Plus.Config("state") = 0 Then Response.End
On Error Resume Next
Call DB("Update [{pre}Content] Set [Views]=[Views]+1 Where [ID]=" & ID,0) ' 更新统计
If Plus.Config("show") = 1 then
Dim Rs : Set Rs = DB("Select [Views] From [{pre}Content] Where [ID]=" & ID,1)
If Not Rs.Eof Then Response.Write "document.write('" & Rs(0) & "');"
Rs.Close : Set Rs = Nothing
End If
Conn.Close : Set Conn = Nothing
Set Plus = Nothing
End If
%>