<%
If Len(Request.Cookies("huangdahmu")) <> 0 Then
z = 1
Else
z = 0
End If
Id = "huangdahmu"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/counter/database/counter.mdb")
SQL = "Select * From Coun Where Id Like '" & Id & "'"
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open SQL,Conn,1,3
If Rs.EOF Then Response.End
Coun = Int(Rs("Counter"))
If z = 0 Then
Coun = Coun + 1
End If
Rs("Counter") = Coun
Rs.Update
Coun = Rs("Counter")
Rs.Close
Conn.Close
Response.Cookies("huangdahmu") = 1
%>
