<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Conn
Dim Db
Dim ConnStr
	      Db = "data.mdb"
	      'ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq= " & Server.MapPath(Db)
              ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(Db)   
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write " Error......"
		Response.End
	End If


If Session("AdminUser")<>"" and Session("AdminPwd")<>"" Then
Dim pp,kq,nana,pwpw
kq = now()
nana = Session("AdminUser")
pwpw = Session("AdminPwd")
Set pp = Conn.Execute("Update [LogNews] Set outTime='"&kq&"' Where loginTime=(Select loginTime From [Admin] Where admin='"&nana&"' and password='"&pwpw&"')")
End if
%>