<% Response.CacheControl = "no-cache"
Response.buffer = "true" %>
<%
set rs = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM SN_Counter Where Table_name='C00101'"
rs.Open StrSQL,Conn,1 ,3
rs("SN") = rs("SN") + 1
rs.Update
rs.Close
set rs = nothing
Set CountRs1=Server.CreateObject("ADODB.Recordset")
StrSQL = "Select Top 1 * From Sum_Counter"
CountRs1.Open StrSQL, Conn, 1, 3
CountRs1.addnew
CountRs1("check_name") = "C00101"
CountRs1("check_time") = now()
CountRs1("check_ip") = Request.ServerVariables("Remote_Addr")
CountRs1.update
CountRs1.close
Set CountRs1 = nothing
%>
議會簡介
